From af56433dc515b465aa87d229252103cf3fdd3a41 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 28 Aug 1997 00:33:03 +0000 Subject: [PATCH] (isearch-printing-char): Handle nonascii-insert-offset. --- lisp/isearch.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 2a57d505fc0..c0196113bcd 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1178,9 +1178,14 @@ Obsolete." (defun isearch-printing-char () "Add this ordinary printing character to the search string and search." (interactive) - (if current-input-method - (isearch-process-search-multibyte-characters (isearch-last-command-char)) - (isearch-process-search-char (isearch-last-command-char)))) + (let ((char (isearch-last-command-char))) + (if (and enable-multibyte-characters + (>= char ?\200) + (<= char ?\377)) + (isearch-process-search-char (+ char nonascii-insert-offset)) + (if current-input-method + (isearch-process-search-multibyte-characters char) + (isearch-process-search-char char))))) (defun isearch-whitespace-chars () "Match all whitespace chars, if in regexp mode. -- 2.39.5