Mercurial > emacs
changeset 48451:c623c9adbefe
(describe-register-1): Don't assign to val the value returned by
`remove-list-of-text-properties'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 19 Nov 2002 07:37:59 +0000 |
| parents | 6c28bad9d549 |
| children | c3c6dba0e42c |
| files | lisp/register.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/register.el Mon Nov 18 23:07:39 2002 +0000 +++ b/lisp/register.el Tue Nov 19 07:37:59 2002 +0000 @@ -140,7 +140,7 @@ 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 @@ (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")