Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
characters to isearch-printing-char.
This commit is contained in:
Kenichi Handa 2002-03-01 01:59:51 +00:00
parent 5ee54361ba
commit 5760cdc1d4
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/isearch.el
View file

@ -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.