mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(isearch-printing-char): Handle nonascii-insert-offset.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-08-28 00:33:03 +00:00
parent 02cf578193
commit af56433dc5
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/isearch.el
View File

@ -1178,9 +1178,14 @@ Obsolete."
(defun isearch-printing-char () (defun isearch-printing-char ()
"Add this ordinary printing character to the search string and search." "Add this ordinary printing character to the search string and search."
(interactive) (interactive)
(if current-input-method (let ((char (isearch-last-command-char)))
(isearch-process-search-multibyte-characters (isearch-last-command-char)) (if (and enable-multibyte-characters
(isearch-process-search-char (isearch-last-command-char)))) (>= 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 () (defun isearch-whitespace-chars ()
"Match all whitespace chars, if in regexp mode. "Match all whitespace chars, if in regexp mode.