mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(isearch-quote-char): Fix handling of control

Browse source 
characters, copied from quoted-insert.
This commit is contained in:
Richard M. Stallman 1997-08-04 19:03:37 +00:00
parent cb2fdcfa49
commit 8bc15fa853
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/isearch.el
View file

@ -1164,8 +1164,15 @@ and the meta character is unread so that it applies to editing the string."
(defun isearch-quote-char ()
"Quote special characters for incremental search."
(interactive)
(isearch-process-search-char (+ (read-quoted-char (isearch-message t))
nonascii-insert-offset)))
(let ((char (read-quoted-char (isearch-message t))))
;; Assume character codes 0200 - 0377 stand for
;; European characters in Latin-1, and convert them
;; to Emacs characters.
(and enable-multibyte-characters
(>= char ?\200)
(<= char ?\377)
(setq char (+ char nonascii-insert-offset)))
(isearch-process-search-char char)))
(defun isearch-return-char ()
"Convert return into newline for incremental search.