[Emacs-diffs] Changes to emacs/lisp/register.el

[Richard M. Stallman]

Index: emacs/lisp/register.el
diff -c emacs/lisp/register.el:1.39 emacs/lisp/register.el:1.40
*** emacs/lisp/register.el:1.39 Wed Feb 13 20:47:50 2002
--- emacs/lisp/register.el      Thu Apr 18 20:23:18 2002
***************
*** 230,235 ****
--- 230,238 ----
        (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,259 ****
       ((consp val)
        (insert-rectangle val))
       ((stringp val)
!       (insert val))
       ((numberp val)
        (princ val (current-buffer)))
       ((and (markerp val) (marker-position val))
--- 256,262 ----
       ((consp val)
        (insert-rectangle val))
       ((stringp val)
!       (insert-for-yank val))
       ((numberp val)
        (princ val (current-buffer)))
       ((and (markerp val) (marker-position val))