Re: describe-register-1 with yank-excluded-properties=t

[Richard Stallman]

Given that it is nontrivial to make remove-yank-excluded-properties
operate on strings, I think this is the best fix.

*** register.el 19 Mar 2004 11:59:41 -0500      1.48
--- register.el 24 Feb 2005 06:04:44 -0500      
***************
*** 227,234 ****
        (princ (car val))))
  
       ((stringp val)
!       (remove-list-of-text-properties 0 (length val)
!                                       yank-excluded-properties val)
        (if verbose
          (progn
            (princ "the text:\n")
--- 227,236 ----
        (princ (car val))))
  
       ((stringp val)
!       (if (eq yank-excluded-properties t)
!         (set-text-properties 0 (length val) nil val)
!       (remove-list-of-text-properties 0 (length val)
!                                       yank-excluded-properties val))
        (if verbose
          (progn
            (princ "the text:\n")