From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 19 Apr 2002 00:23:18 +0000 (+0000)
Subject: (insert-register): Use insert-for-yank.
X-Git-Tag: ttn-vms-21-2-B4~15541
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7c765c3fc0adbfd1f397bae54b6d24f985927f9;p=emacs.git

(insert-register): Use insert-for-yank.
(describe-register-1): Discard text props in yank-excluded-properties.
---

diff --git a/lisp/register.el b/lisp/register.el
index c93d52c9f9b..98adce7ae86 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -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))