diff options
| author | Kenichi Handa | 1998-07-06 06:33:55 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-07-06 06:33:55 +0000 |
| commit | 52e3ccbf8da2355817268d7a96b5fa21f628d6db (patch) | |
| tree | ba4c0376d72330200a141fc4be1fc4cf85ec646c | |
| parent | 8a73a7048475eaab1f75310a30017ad126b48123 (diff) | |
| download | emacs-52e3ccbf8da2355817268d7a96b5fa21f628d6db.tar.gz emacs-52e3ccbf8da2355817268d7a96b5fa21f628d6db.zip | |
(isearch-mode-map): Make all multibyte characters
search for themselves.
| -rw-r--r-- | lisp/isearch.el | 13 |
1 files changed, 6 insertions, 7 deletions
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." | |||
| 229 | (or (vectorp (nth 1 map)) | 229 | (or (vectorp (nth 1 map)) |
| 230 | (char-table-p (nth 1 map)) | 230 | (char-table-p (nth 1 map)) |
| 231 | (error "The initialization of isearch-mode-map must be updated")) | 231 | (error "The initialization of isearch-mode-map must be updated")) |
| 232 | ;; Make Latin-1, Latin-2, Latin-3 and Latin-4 characters | 232 | ;; Make all multibyte characters search for themselves. |
| 233 | ;; search for themselves. | 233 | (let ((l (generic-character-list)) |
| 234 | (aset (nth 1 map) (make-char 'latin-iso8859-1) 'isearch-printing-char) | 234 | (table (nth 1 map))) |
| 235 | (aset (nth 1 map) (make-char 'latin-iso8859-2) 'isearch-printing-char) | 235 | (while l |
| 236 | (aset (nth 1 map) (make-char 'latin-iso8859-3) 'isearch-printing-char) | 236 | (set-char-table-default table (car l) 'isearch-printing-char) |
| 237 | (aset (nth 1 map) (make-char 'latin-iso8859-4) 'isearch-printing-char) | 237 | (setq l (cdr l)))) |
| 238 | (aset (nth 1 map) (make-char 'latin-iso8859-9) 'isearch-printing-char) | ||
| 239 | ;; Make function keys, etc, exit the search. | 238 | ;; Make function keys, etc, exit the search. |
| 240 | (define-key map [t] 'isearch-other-control-char) | 239 | (define-key map [t] 'isearch-other-control-char) |
| 241 | ;; Control chars, by default, end isearch mode transparently. | 240 | ;; Control chars, by default, end isearch mode transparently. |