Mercurial > emacs

changeset 19146:0f89b8543e19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-quote-char): Fix handling of control characters, copied from quoted-insert.
author Richard M. Stallman <rms@gnu.org>
date Mon, 04 Aug 1997 19:03:37 +0000
parents 68b212facca8
children ec57f19bc39c
files lisp/isearch.el
diffstat 1 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/isearch.el	Mon Aug 04 18:56:42 1997 +0000
+++ b/lisp/isearch.el	Mon Aug 04 19:03:37 1997 +0000
@@ -1164,8 +1164,15 @@
 (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.