aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa2008-02-28 01:58:07 +0000
committerKenichi Handa2008-02-28 01:58:07 +0000
commit758710cb94511217f61909dbb48708a29503f44b (patch)
tree37e88ea1a95cb0c1ca809626196e41a326aaee92
parent20e70daf7f4a7d1cf8a03fb668d64496d87791e0 (diff)
downloademacs-758710cb94511217f61909dbb48708a29503f44b.tar.gz
emacs-758710cb94511217f61909dbb48708a29503f44b.zip
(isearch-printing-char): Don't check
keyboard-coding-system. Call isearch-process-search-multibyte-characters only when current-input-method is non-nil.
-rw-r--r--lisp/ChangeLog7
-rw-r--r--lisp/isearch.el12
2 files changed, 10 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88f6b68b40d..b8adc68d0eb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
12008-02-28 Kenichi Handa <handa@ni.aist.go.jp>
2
3 * isearch.el (isearch-printing-char): Don't check
4 keyboard-coding-system. Call
5 isearch-process-search-multibyte-characters only when
6 current-input-method is non-nil.
7
12008-02-27 Kim F. Storm <storm@cua.dk> 82008-02-27 Kim F. Storm <storm@cua.dk>
2 9
3 * disp-table.el (make-glyph-code): Encode as cons if face id > 63. 10 * disp-table.el (make-glyph-code): Encode as cons if face id > 63.
diff --git a/lisp/isearch.el b/lisp/isearch.el
index bbe2363d57b..750ed129b7e 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1842,15 +1842,9 @@ Isearch mode."
1842 (let ((char last-command-char)) 1842 (let ((char last-command-char))
1843 (if (= char ?\S-\ ) 1843 (if (= char ?\S-\ )
1844 (setq char ?\s)) 1844 (setq char ?\s))
1845 (if (and enable-multibyte-characters 1845 (if current-input-method
1846 (>= char ?\200) 1846 (isearch-process-search-multibyte-characters char)
1847 (<= char ?\377)) 1847 (isearch-process-search-char char))))
1848 (if (keyboard-coding-system)
1849 (isearch-process-search-multibyte-characters char)
1850 (isearch-process-search-char (unibyte-char-to-multibyte char)))
1851 (if current-input-method
1852 (isearch-process-search-multibyte-characters char)
1853 (isearch-process-search-char char)))))
1854 1848
1855(defun isearch-process-search-char (char) 1849(defun isearch-process-search-char (char)
1856 ;; * and ? are special in regexps when not preceded by \. 1850 ;; * and ? are special in regexps when not preceded by \.