[Emacs-diffs] Changes to emacs/lisp/register.el

[Juanma Barranquero]

Index: emacs/lisp/register.el
diff -c emacs/lisp/register.el:1.41 emacs/lisp/register.el:1.42
*** emacs/lisp/register.el:1.41 Fri Sep 27 13:47:38 2002
--- emacs/lisp/register.el      Tue Nov 19 02:37:59 2002
***************
*** 140,146 ****
  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 
                (if number
                    (prefix-numeric-value number)
                  (if (looking-at "\\s-*-?[0-9]+")
--- 140,146 ----
  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
                (if number
                    (prefix-numeric-value number)
                  (if (looking-at "\\s-*-?[0-9]+")
***************
*** 227,235 ****
        (princ (car val))))
  
       ((stringp val)
!       (setq val
!           (remove-list-of-text-properties 0 (length val)
!                                           yank-excluded-properties val))
        (if verbose
          (progn
            (princ "the text:\n")
--- 227,234 ----
        (princ (car val))))
  
       ((stringp val)
!       (remove-list-of-text-properties 0 (length val)
!                                       yank-excluded-properties val)
        (if verbose
          (progn
            (princ "the text:\n")