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.