Mercurial > emacs
diff lisp/register.el @ 60281:90ca0ff28286
(describe-register-1): Explicitly handle yank-excluded-properties = t.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 27 Feb 2005 10:34:59 +0000 |
| parents | 1647b704e48e |
| children | c0f29f51c65c e4694597cbf4 |
line wrap: on
line diff
--- a/lisp/register.el Sun Feb 27 10:34:05 2005 +0000 +++ b/lisp/register.el Sun Feb 27 10:34:59 2005 +0000 @@ -227,8 +227,10 @@ (princ (car val)))) ((stringp val) - (remove-list-of-text-properties 0 (length val) - yank-excluded-properties 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")