diff options
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r-- | lisp/isearch.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 04f8c4464ef..f647c6052e5 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -233,15 +233,12 @@ Default value, nil, means edit the string instead." (defvar isearch-mode-map (let* ((i 0) (map (make-keymap))) - (or (vectorp (nth 1 map)) - (char-table-p (nth 1 map)) + (or (char-table-p (nth 1 map)) (error "The initialization of isearch-mode-map must be updated")) ;; Make all multibyte characters search for themselves. - (let ((l (generic-character-list)) - (table (nth 1 map))) - (while l - (set-char-table-default table (car l) 'isearch-printing-char) - (setq l (cdr l)))) + ;; Fixme: is this range right? + (set-char-table-range (nth 1 map) (cons #x100 #x3FFFFF) + 'isearch-printing-char) ;; Make function keys, etc, exit the search. (define-key map [t] 'isearch-other-control-char) ;; Control chars, by default, end isearch mode transparently. |