[Emacs-diffs] Changes to emacs/lisp/international/isearch-x.el

[Juri Linkov]

Index: emacs/lisp/international/isearch-x.el
diff -c emacs/lisp/international/isearch-x.el:1.17 
emacs/lisp/international/isearch-x.el:1.18
*** emacs/lisp/international/isearch-x.el:1.17  Mon Sep  1 15:45:28 2003
--- emacs/lisp/international/isearch-x.el       Sun Dec 12 21:57:28 2004
***************
*** 97,103 ****
  (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))
            (minibuffer-local-map isearch-minibuffer-local-map)
            str)
        (if isearch-input-method-function
--- 97,103 ----
  (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)))
            (minibuffer-local-map isearch-minibuffer-local-map)
            str)
        (if isearch-input-method-function
***************
*** 107,117 ****
                    (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))
              (if (not str)
                  ;; All inputs were deleted while the input method
                  ;; was working.
                  (setq str "")
                (if (and (= (length str) 1)
                         (= (aref str 0) last-char)
                         (>= last-char 128))
--- 107,118 ----
                    (cons 'with-input-method
                          (cons last-char unread-command-events))
                    ;; Inherit current-input-method in a minibuffer.
!                   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))