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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/03/07 18:48:33

Index: international/isearch-x.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/isearch-x.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- international/isearch-x.el  21 Jan 2007 02:56:40 -0000      1.24
+++ international/isearch-x.el  7 Mar 2007 18:48:33 -0000       1.25
@@ -103,6 +103,15 @@
            (prompt (isearch-message-prefix))
            (minibuffer-local-map isearch-minibuffer-local-map)
            str junk-hist)
+
+       ;; PROMPT contains text-properties from
+       ;; `minibuffer-prompt-properties', and some of these can screw up
+       ;; its use in `read-string' below (specifically, a read-only
+       ;; property will cause it to signal an error), so strip them here;
+       ;; read-string will add the same properties itself anyway.
+       ;;
+       (set-text-properties 0 (length prompt) nil prompt)
+
        (if isearch-input-method-function
            (let (;; Let input method work rather tersely.
                  (input-method-verbose-flag nil))