# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1037691479 0
# Node ID c623c9adbefe7684820a8b71b8296461edfa3fe3
# Parent  6c28bad9d549084317bd5f4847378bdeaf39cad4
(describe-register-1): Don't assign to val the value returned by
`remove-list-of-text-properties'.

diff -r 6c28bad9d549 -r c623c9adbefe lisp/register.el
--- a/lisp/register.el	Mon Nov 18 23:07:39 2002 +0000
+++ b/lisp/register.el	Tue Nov 19 07:37:59 2002 +0000
@@ -140,7 +140,7 @@
 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 @@
 	(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")