mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(isearch-mode-map): Extend the dense keymap to 256 chars.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-18 15:46:30 +00:00
parent 096855a66a
commit fcf8ba1584
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/isearch.el
View file

@ -4,7 +4,7 @@
;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
;; |$Date: 1993/05/15 20:05:36 $|$Revision: 1.33 $
;; |$Date: 1993/05/17 18:22:37 $|$Revision: 1.34 $
;; This file is not yet part of GNU Emacs, but it is based almost
;; entirely on isearch.el which is part of GNU Emacs.
@ -92,8 +92,11 @@
;;;====================================================================
;;; Change History
;;; $Header: /home/fsf/rms/e19/lisp/RCS/isearch.el,v 1.33 1993/05/15 20:05:36 rms Exp rms $
;;; $Header: /home/fsf/rms/e19/lisp/RCS/isearch.el,v 1.34 1993/05/17 18:22:37 rms Exp rms $
;;; $Log: isearch.el,v $
; Revision 1.34 1993/05/17 18:22:37 rms
; (isearch-mode): Set deactivate-mark.
;
; Revision 1.33 1993/05/15 20:05:36 rms
; (isearch-done): Don't activate mark.
;
@ -323,6 +326,11 @@ Default value, nil, means edit the string instead.")
(or isearch-mode-map
(let* ((i 0)
(map (make-keymap)))
(or (vectorp (nth 1 map))
(error "The initialization of isearch-mode-map must be updated"))
;; Give this map a vector 256 long, for dense binding
;; of a larger range of ordinary characters.
(setcar (cdr map) (make-vector 256 nil))
;; Make function keys, etc, exit the search.
(define-key map [t] 'isearch-other-control-char)
@ -336,8 +344,6 @@ Default value, nil, means edit the string instead.")
;; Printing chars extend the selection by default.
(setq i ?\ )
(or (vectorp (nth 1 map))
(error "The initialization of isearch-mode-map must be updated"))
(while (< i (length (nth 1 map)))
(define-key map (make-string 1 i) 'isearch-printing-char)
(setq i (1+ i)))