From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 24 May 2006 22:28:02 +0000 (+0000)
Subject: (read-passwd): Copy PROMPT before changing its properties.
X-Git-Tag: emacs-pretest-22.0.90~2352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=870560eb10c04f48f7b657664c45894a4820f874;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd92a0c5111..11a86401271 100644
--- 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 54361e92eec..67731f4d4c6 100644
--- 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)