Mercurial > emacs

changeset 60281:90ca0ff28286

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 f0850dec46a9
children b6fcc94c2d6a
files lisp/register.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
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")