# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1148509639 0
# Node ID b08d75867f7f6c5eb32ae29314692c8851611ec1
# Parent  dc6b16a79fd53b66006e89e168f831f478379125
(read-passwd): Copy PROMPT before changing its properties.

diff -r dc6b16a79fd5 -r b08d75867f7f lisp/subr.el
--- a/lisp/subr.el	Wed May 24 22:27:00 2006 +0000
+++ b/lisp/subr.el	Wed May 24 22:27:19 2006 +0000
@@ -1637,6 +1637,9 @@
 		(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)