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."
(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")
......
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