235 |
(char-table-p (nth 1 map)) |
(char-table-p (nth 1 map)) |
236 |
(error "The initialization of isearch-mode-map must be updated")) |
(error "The initialization of isearch-mode-map must be updated")) |
237 |
;; Make all multibyte characters search for themselves. |
;; Make all multibyte characters search for themselves. |
238 |
(let ((l (generic-character-list)) |
(set-char-table-range (nth 1 map) (cons #x100 #x2FFFFF) |
239 |
(table (nth 1 map))) |
'isearch-printing-char) |
|
(while l |
|
|
(set-char-table-default table (car l) 'isearch-printing-char) |
|
|
(setq l (cdr l)))) |
|
240 |
;; Make function keys, etc, exit the search. |
;; Make function keys, etc, exit the search. |
241 |
(define-key map [t] 'isearch-other-control-char) |
(define-key map [t] 'isearch-other-control-char) |
242 |
;; Control chars, by default, end isearch mode transparently. |
;; Control chars, by default, end isearch mode transparently. |