Mercurial > emacs

diff lisp/register.el @ 44677:b8ccc58cc821

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(insert-register): Use insert-for-yank. (describe-register-1): Discard text props in yank-excluded-properties.
author Richard M. Stallman <rms@gnu.org>
date Fri, 19 Apr 2002 00:23:18 +0000
parents d6866cd43406
children 0e418919d79e
line wrap: on
line diff
--- a/lisp/register.el	Fri Apr 19 00:23:08 2002 +0000
+++ b/lisp/register.el	Fri Apr 19 00:23:18 2002 +0000
@@ -230,6 +230,9 @@
 	(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 @@
      ((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))