Commit 9c7cc04b authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent 1833b7b3
...@@ -227,8 +227,10 @@ The Lisp value REGISTER is a character." ...@@ -227,8 +227,10 @@ The Lisp value REGISTER is a character."
(princ (car val)))) (princ (car val))))
((stringp val) ((stringp val)
(remove-list-of-text-properties 0 (length val) (if (eq yank-excluded-properties t)
yank-excluded-properties val) (set-text-properties 0 (length val) nil val)
(remove-list-of-text-properties 0 (length val)
yank-excluded-properties val))
(if verbose (if verbose
(progn (progn
(princ "the text:\n") (princ "the text:\n")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment