From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 19 Nov 2002 07:38:38 +0000 (+0000)
Subject: (describe-register-1): Don't assign to val the value returned by
X-Git-Tag: ttn-vms-21-2-B4~12342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f23d31cf496f1fa4d613bf83cacde619380c078;p=emacs.git

(describe-register-1): Don't assign to val the value returned by
`remove-list-of-text-properties'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a02707c152d..1d2fdfeb4a0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-19  Masatake Yamato  <jet@gyve.org>  (tiny change)
+
+	* register.el (describe-register-1): Don't assign to val the value
+	returned by `remove-list-of-text-properties'.
+
 2002-11-18  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
 	* calendar/diary-lib.el (fancy-diary-font-lock-keywords): Grok
diff --git a/lisp/register.el b/lisp/register.el
index 3adb84ba8b6..d149dee200e 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -140,7 +140,7 @@ If NUMBER is nil, a decimal number is read from the buffer starting
 at point, and point moves to the end of that number.
 Interactively, NUMBER is the prefix arg (none means nil)."
   (interactive "P\ncNumber to register: ")
-  (set-register register 
+  (set-register register
 		(if number
 		    (prefix-numeric-value number)
 		  (if (looking-at "\\s-*-?[0-9]+")
@@ -227,9 +227,8 @@ The Lisp value REGISTER is a character."
 	(princ (car val))))
 
      ((stringp val)
-      (setq val
-	    (remove-list-of-text-properties 0 (length val)
-					    yank-excluded-properties val))
+      (remove-list-of-text-properties 0 (length val)
+                                      yank-excluded-properties val)
       (if verbose
 	  (progn
 	    (princ "the text:\n")