From 8bc15fa853bc51247e2a853e8ff74412b2ba5976 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 4 Aug 1997 19:03:37 +0000 Subject: [PATCH] (isearch-quote-char): Fix handling of control characters, copied from quoted-insert. --- lisp/isearch.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index a0b269678bc..1547e7759b7 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -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. -- 2.39.2