# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1109500499 0
# Node ID 90ca0ff282866eba8a741abb1fee2ef85aa3376e
# Parent  f0850dec46a9c7b418968ae5bd0ca4df6ee90f1b
(describe-register-1): Explicitly handle yank-excluded-properties = t.

diff -r f0850dec46a9 -r 90ca0ff28286 lisp/register.el
--- a/lisp/register.el	Sun Feb 27 10:34:05 2005 +0000
+++ b/lisp/register.el	Sun Feb 27 10:34:59 2005 +0000
@@ -227,8 +227,10 @@
 	(princ (car val))))
 
      ((stringp val)
-      (remove-list-of-text-properties 0 (length val)
-                                      yank-excluded-properties val)
+      (if (eq yank-excluded-properties t)
+	  (set-text-properties 0 (length val) nil val)
+	(remove-list-of-text-properties 0 (length val)
+					yank-excluded-properties val))
       (if verbose
 	  (progn
 	    (princ "the text:\n")