From 4f23d31cf496f1fa4d613bf83cacde619380c078 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 19 Nov 2002 07:38:38 +0000 Subject: [PATCH] (describe-register-1): Don't assign to val the value returned by `remove-list-of-text-properties'. --- lisp/ChangeLog | 5 +++++ lisp/register.el | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a02707c152..1d2fdfeb4a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-11-19 Masatake Yamato (tiny change) + + * register.el (describe-register-1): Don't assign to val the value + returned by `remove-list-of-text-properties'. + 2002-11-18 Kai Gro,A_(Bjohann * calendar/diary-lib.el (fancy-diary-font-lock-keywords): Grok diff --git a/lisp/register.el b/lisp/register.el index 3adb84ba8b..d149dee200 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -140,7 +140,7 @@ If NUMBER is nil, a decimal number is read from the buffer starting at point, and point moves to the end of that number. Interactively, NUMBER is the prefix arg (none means nil)." (interactive "P\ncNumber to register: ") - (set-register register + (set-register register (if number (prefix-numeric-value number) (if (looking-at "\\s-*-?[0-9]+") @@ -227,9 +227,8 @@ The Lisp value REGISTER is a character." (princ (car val)))) ((stringp val) - (setq val - (remove-list-of-text-properties 0 (length val) - yank-excluded-properties val)) + (remove-list-of-text-properties 0 (length val) + yank-excluded-properties val) (if verbose (progn (princ "the text:\n") -- 2.20.1