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

diff --git a/lisp/register.el b/lisp/register.el
index bab9d01edf2b0a33953b72a1e18191fa065bfcad..253207c31406bcfd7fd1451c20033025113b2312 100644 (file)
--- 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")