(isearch-mode-map): Call set-char-table-range to bind

characters to isearch-printing-char.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 502285a357baa58eb7cade9e4dbf448a09499a06..a3d85dd636a6064609b3625512a5b6a3c343e148 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -235,11 +235,8 @@ Default value, nil, means edit the string instead."
        (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.