Mercurial > emacs
changeset 18710:e960f779eed3
(isearch-message-prefix): Adjusted
for the previous change of variables related to input methods.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 10 Jul 1997 06:44:55 +0000 |
| parents | a82b89790f9c |
| children | 46c1ad5f61e0 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Thu Jul 10 06:43:19 1997 +0000 +++ b/lisp/isearch.el Thu Jul 10 06:44:55 1997 +0000 @@ -522,6 +522,7 @@ 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 @@ (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 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)))