(describe-register-1): Explicitly handle yank-excluded-properties = t.

9c7cc04b · Richard M. Stallman · 1833b7b3 · 9c7cc04b
Commit 9c7cc04b authored Feb 27, 2005 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/register.el lisp/register.el +4 -2

No files found.
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -227,8 +227,10 @@ The Lisp value REGISTER is a character."
 	(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")