Mercurial > emacs
changeset 88398:d8c9fc60016e
(isearch-mode-map): Call set-char-table-range to bind
characters to isearch-printing-char.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 01 Mar 2002 01:59:51 +0000 |
| parents | 40dcdefd77b0 |
| children | c93a7728939b |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 2 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Fri Mar 01 01:59:32 2002 +0000 +++ b/lisp/isearch.el Fri Mar 01 01:59:51 2002 +0000 @@ -235,11 +235,8 @@ (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)))) + (set-char-table-range (nth 1 map) (cons #x100 #x2FFFFF) + '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.