mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(isearch-printing-char): Don't check

Browse Source 
keyboard-coding-system.  Call
isearch-process-search-multibyte-characters only when
current-input-method is non-nil.
This commit is contained in:
Kenichi Handa 2008-02-28 01:58:07 +00:00
parent 20e70daf7f
commit 758710cb94
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2008-02-28 Kenichi Handa <handa@ni.aist.go.jp>
* isearch.el (isearch-printing-char): Don't check
keyboard-coding-system. Call
isearch-process-search-multibyte-characters only when
current-input-method is non-nil.
2008-02-27 Kim F. Storm <storm@cua.dk>
* disp-table.el (make-glyph-code): Encode as cons if face id > 63.

12
lisp/isearch.el
View File

@ -1842,15 +1842,9 @@ Isearch mode."
(let ((char last-command-char))
(if (= char ?\S-\ )
(setq char ?\s))
(if (and enable-multibyte-characters
(>= char ?\200)
(<= char ?\377))
(if (keyboard-coding-system)
(isearch-process-search-multibyte-characters char)
(isearch-process-search-char (unibyte-char-to-multibyte char)))
(if current-input-method
(isearch-process-search-multibyte-characters char)
(isearch-process-search-char char)))))
(if current-input-method
(isearch-process-search-multibyte-characters char)
(isearch-process-search-char char))))
(defun isearch-process-search-char (char)
;; * and ? are special in regexps when not preceded by \.