From 9c7cc04bffffc21dd864b384e9c7a612515c2643 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 27 Feb 2005 10:34:59 +0000 Subject: [PATCH] (describe-register-1): Explicitly handle yank-excluded-properties = t. --- lisp/register.el | 6 ++++-- 1 file 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") -- 2.39.2