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." ...@@ -230,6 +230,9 @@ The Lisp value REGISTER is a character."
(princ (car val)))) (princ (car val))))
((stringp val) ((stringp val)
(setq 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")
...@@ -253,7 +256,7 @@ Interactively, second arg is non-nil if prefix arg is supplied." ...@@ -253,7 +256,7 @@ Interactively, second arg is non-nil if prefix arg is supplied."
((consp val) ((consp val)
(insert-rectangle val)) (insert-rectangle val))
((stringp val) ((stringp val)
(insert val)) (insert-for-yank val))
((numberp val) ((numberp val)
(princ val (current-buffer))) (princ val (current-buffer)))
((and (markerp val) (marker-position val)) ((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