diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-02-27 10:34:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-02-27 10:34:59 +0000 |
| commit | 9c7cc04bffffc21dd864b384e9c7a612515c2643 (patch) | |
| tree | d82185b1d6c703219e879cf82ef3468c98a8af76 /lisp/register.el | |
| parent | 1833b7b36fa0ce9d9a9c48941101d9baf96bab3e (diff) | |
| download | emacs-9c7cc04bffffc21dd864b384e9c7a612515c2643.tar.gz | |
(describe-register-1): Explicitly handle yank-excluded-properties = t.
Diffstat (limited to 'lisp/register.el')
| -rw-r--r-- | lisp/register.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/register.el b/lisp/register.el index bab9d01edf2..253207c3140 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -227,8 +227,10 @@ The Lisp value REGISTER is a character." (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") |