diff options
| author | Kenichi Handa | 1997-07-10 06:44:55 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-07-10 06:44:55 +0000 |
| commit | 8c5d9782ecd21dc57e803b20e3435adf7e7910dd (patch) | |
| tree | dce9b4eac17c5c045fed1c7d92881b3adce5017b | |
| parent | 77bc05c744086ed1634ad57c4d0c9df6154a1a5f (diff) | |
| download | emacs-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.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." | |||
| 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))) |