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 | 99c382a423c65d9109523f957b6d99fcc29098e3 (patch) | |
tree | 90bb18f4d2b95eb8ada4791f9170e2bf1b566ac5 /lisp/isearch.el | |
parent | cd7973b143a1c87f71e74872cbbccc6fc61a899e (diff) | |
download | emacs-99c382a423c65d9109523f957b6d99fcc29098e3.tar.gz |
(isearch-message-prefix): Adjusted
for the previous change of variables related to input methods.
Diffstat (limited to 'lisp/isearch.el')
-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))) |