Mercurial > emacs
changeset 58912:f0538bd79bc1
(isearch-process-search-multibyte-characters):
Use `isearch-message' as initial input for `read-string' instead
of adding it to the minibuffer prompt. After reading a string
remove the initial value of `isearch-message' from the string.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sun, 12 Dec 2004 21:57:28 +0000 |
| parents | 50c8d5bb29a0 |
| children | 0b183affb969 |
| files | lisp/international/isearch-x.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/isearch-x.el Sun Dec 12 21:53:14 2004 +0000 +++ b/lisp/international/isearch-x.el Sun Dec 12 21:57:28 2004 +0000 @@ -97,7 +97,7 @@ (defun isearch-process-search-multibyte-characters (last-char) (if (eq this-command 'isearch-printing-char) (let ((overriding-terminal-local-map nil) - (prompt (concat (isearch-message-prefix) isearch-message)) + (prompt (concat (isearch-message-prefix))) (minibuffer-local-map isearch-minibuffer-local-map) str) (if isearch-input-method-function @@ -107,11 +107,12 @@ (cons 'with-input-method (cons last-char unread-command-events)) ;; Inherit current-input-method in a minibuffer. - str (read-string prompt nil nil nil t)) + str (read-string prompt isearch-message nil nil t)) (if (not str) ;; All inputs were deleted while the input method ;; was working. (setq str "") + (setq str (substring str (length isearch-message))) (if (and (= (length str) 1) (= (aref str 0) last-char) (>= last-char 128))