Mercurial > emacs
changeset 22704:f148cf6092bb
(isearch-mode-map): Make all multibyte characters
search for themselves.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 06 Jul 1998 06:33:55 +0000 |
| parents | 15e0119749cf |
| children | 34b38e5d0e9d |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 6 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Mon Jul 06 06:33:55 1998 +0000 +++ b/lisp/isearch.el Mon Jul 06 06:33:55 1998 +0000 @@ -229,13 +229,12 @@ (or (vectorp (nth 1 map)) (char-table-p (nth 1 map)) (error "The initialization of isearch-mode-map must be updated")) - ;; Make Latin-1, Latin-2, Latin-3 and Latin-4 characters - ;; search for themselves. - (aset (nth 1 map) (make-char 'latin-iso8859-1) 'isearch-printing-char) - (aset (nth 1 map) (make-char 'latin-iso8859-2) 'isearch-printing-char) - (aset (nth 1 map) (make-char 'latin-iso8859-3) 'isearch-printing-char) - (aset (nth 1 map) (make-char 'latin-iso8859-4) 'isearch-printing-char) - (aset (nth 1 map) (make-char 'latin-iso8859-9) 'isearch-printing-char) + ;; 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)))) ;; Make function keys, etc, exit the search. (define-key map [t] 'isearch-other-control-char) ;; Control chars, by default, end isearch mode transparently.