diff options
-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") |