(read-passwd): Copy PROMPT before changing its properties.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd92a0c5111d13337a11c94d80d82bc66df8809e..11a86401271db40d51b8f2926a063d8bd72cbd88 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-05-24  Richard Stallman  <rms@gnu.org>
+
+       * subr.el (read-passwd): Copy PROMPT before changing its properties.
+
 2006-05-25  Mathias Dahl  <mathias.dahl@gmail.com>
 
        * tumme.el (tumme-display-dired-image): Renamed to

diff --git a/lisp/subr.el b/lisp/subr.el
index 54361e92eecfe7a170de5037e506d257d216fb45..67731f4d4c643968195177448103ae388d9bbfca 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1637,6 +1637,9 @@ by doing (clear-string STRING)."
                (sit-for 1))))
          success)
       (let ((pass nil)
+           ;; Copy it so that add-text-properties won't modify
+           ;; the object that was passed in by the caller.
+           (prompt (copy-sequence prompt))
            (c 0)
            (echo-keystrokes 0)
            (cursor-in-echo-area t)