diff options
| author | Kenichi Handa | 2008-02-28 01:58:07 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2008-02-28 01:58:07 +0000 |
| commit | 758710cb94511217f61909dbb48708a29503f44b (patch) | |
| tree | 37e88ea1a95cb0c1ca809626196e41a326aaee92 | |
| parent | 20e70daf7f4a7d1cf8a03fb668d64496d87791e0 (diff) | |
| download | emacs-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/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/isearch.el | 12 |
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 @@ | |||
| 1 | 2008-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 | |||
| 1 | 2008-02-27 Kim F. Storm <storm@cua.dk> | 8 | 2008-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 \. |