Commit e7c765c3 authored by Richard M. Stallman's avatar Richard M. Stallman

(insert-register): Use insert-for-yank.

(describe-register-1): Discard text props in yank-excluded-properties.
parent afa0467f
......@@ -230,6 +230,9 @@ The Lisp value REGISTER is a character."
(princ (car val))))
((stringp val)
(setq val
(remove-list-of-text-properties 0 (length val)
yank-excluded-properties val))
(if verbose
(progn
(princ "the text:\n")
......@@ -253,7 +256,7 @@ Interactively, second arg is non-nil if prefix arg is supplied."
((consp val)
(insert-rectangle val))
((stringp val)
(insert val))
(insert-for-yank val))
((numberp val)
(princ val (current-buffer)))
((and (markerp val) (marker-position val))
......
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