aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1997-07-10 06:44:55 +0000
committerKenichi Handa1997-07-10 06:44:55 +0000
commit8c5d9782ecd21dc57e803b20e3435adf7e7910dd (patch)
treedce9b4eac17c5c045fed1c7d92881b3adce5017b
parent77bc05c744086ed1634ad57c4d0c9df6154a1a5f (diff)
downloademacs-8c5d9782ecd21dc57e803b20e3435adf7e7910dd.tar.gz
emacs-8c5d9782ecd21dc57e803b20e3435adf7e7910dd.zip
(isearch-message-prefix): Adjusted
for the previous change of variables related to input methods.
-rw-r--r--lisp/isearch.el7
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."
522 isearch-small-window nil 522 isearch-small-window nil
523 isearch-just-started t 523 isearch-just-started t
524 isearch-multibyte-characters-flag nil 524 isearch-multibyte-characters-flag nil
525 isearch-input-method nil
525 526
526 isearch-opoint (point) 527 isearch-opoint (point)
527 search-ring-yank-pointer nil 528 search-ring-yank-pointer nil
@@ -1172,7 +1173,7 @@ Obsolete."
1172(defun isearch-printing-char () 1173(defun isearch-printing-char ()
1173 "Add this ordinary printing character to the search string and search." 1174 "Add this ordinary printing character to the search string and search."
1174 (interactive) 1175 (interactive)
1175 (if isearch-multibyte-characters-flag 1176 (if isearch-input-method
1176 (isearch-process-search-multibyte-characters (isearch-last-command-char)) 1177 (isearch-process-search-multibyte-characters (isearch-last-command-char))
1177 (isearch-process-search-char (isearch-last-command-char)))) 1178 (isearch-process-search-char (isearch-last-command-char))))
1178 1179
@@ -1408,8 +1409,8 @@ If there is no completion possible, say so and continue searching."
1408 (if isearch-regexp "regexp " "") 1409 (if isearch-regexp "regexp " "")
1409 (if nonincremental "search" "I-search") 1410 (if nonincremental "search" "I-search")
1410 (if isearch-forward "" " backward") 1411 (if isearch-forward "" " backward")
1411 (if isearch-multibyte-characters-flag 1412 (if isearch-input-method
1412 (concat " [" default-input-method-title "]: ") 1413 (concat " [" isearch-input-method-title "]: ")
1413 ": ") 1414 ": ")
1414 ))) 1415 )))
1415 (aset m 0 (upcase (aref m 0))) 1416 (aset m 0 (upcase (aref m 0)))