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

[Richard M . Stallman]

Index: emacs/lisp/emacs-lisp/copyright.el
diff -c emacs/lisp/emacs-lisp/copyright.el:1.51 
emacs/lisp/emacs-lisp/copyright.el:1.52
*** emacs/lisp/emacs-lisp/copyright.el:1.51     Tue Apr  5 23:18:35 2005
--- emacs/lisp/emacs-lisp/copyright.el  Sun May 15 22:02:39 2005
***************
*** 189,194 ****
--- 189,196 ----
            last)
        (set-marker e (1+ (match-end 2)))
        (goto-char s)
+       ;; Back up one character so that our search can match the first year.
+       (backward-char 1)
        (while (and (< (point) (marker-position e))
                    (re-search-forward "\\([^0-9]\\)\\([0-9]+\\)[^0-9]"
                                       (marker-position e) t))
***************
*** 204,211 ****
            (setq last p)))
        (when last
          (goto-char last)
!         (let ((fill-prefix "     "))
!           (fill-region s last))
          )
        (set-marker e nil)
        (copyright-update nil t))
--- 206,217 ----
            (setq last p)))
        (when last
          (goto-char last)
!         ;; Don't mess up whitespace after the years.
!         (skip-chars-backward " \t")
!         (save-restriction
!           (narrow-to-region (point-min) (point))
!           (let ((fill-prefix "     "))
!             (fill-region s last)))
          )
        (set-marker e nil)
        (copyright-update nil t))