diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-07-10 06:44:55 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-07-10 06:44:55 +0000 |
| commit | 8c5d9782ecd21dc57e803b20e3435adf7e7910dd (patch) | |
| tree | dce9b4eac17c5c045fed1c7d92881b3adce5017b /lisp | |
| parent | 77bc05c744086ed1634ad57c4d0c9df6154a1a5f (diff) | |
| download | emacs-8c5d9782ecd21dc57e803b20e3435adf7e7910dd.tar.gz | |
(isearch-message-prefix): Adjusted
for the previous change of variables related to input methods.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/isearch.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 05c659f574f..1fc4ce97d63 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -522,6 +522,7 @@ is treated as a regexp. See \\[isearch-forward] for more info." isearch-small-window nil isearch-just-started t isearch-multibyte-characters-flag nil + isearch-input-method nil isearch-opoint (point) search-ring-yank-pointer nil @@ -1172,7 +1173,7 @@ Obsolete." (defun isearch-printing-char () "Add this ordinary printing character to the search string and search." (interactive) - (if isearch-multibyte-characters-flag + (if isearch-input-method (isearch-process-search-multibyte-characters (isearch-last-command-char)) (isearch-process-search-char (isearch-last-command-char)))) @@ -1408,8 +1409,8 @@ If there is no completion possible, say so and continue searching." (if isearch-regexp "regexp " "") (if nonincremental "search" "I-search") (if isearch-forward "" " backward") - (if isearch-multibyte-characters-flag - (concat " [" default-input-method-title "]: ") + (if isearch-input-method + (concat " [" isearch-input-method-title "]: ") ": ") ))) (aset m 0 (upcase (aref m 0))) |