From: Kenichi Handa <handa@m17n.org>
Date: Mon, 6 Jul 1998 06:33:55 +0000 (+0000)
Subject: (isearch-mode-map): Make all multibyte characters
X-Git-Tag: emacs-20.3~375
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52e3ccbf8da2355817268d7a96b5fa21f628d6db;p=emacs.git

(isearch-mode-map): Make all multibyte characters
search for themselves.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 91a0d971d83..ec1f20abecb 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -229,13 +229,12 @@ Default value, nil, means edit the string instead."
       (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.