changeset 62375:6a8938e81aa7

(copyright-fix-years): Match properly if the first year is 2-digit. Don't mess up the whitespace after the years by filling.
author Richard M. Stallman <rms@gnu.org>
date Sun, 15 May 2005 22:02:39 +0000
parents 2500e1e082cd
children 7f557cdf54e7
files lisp/emacs-lisp/copyright.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/copyright.el	Sun May 15 21:34:47 2005 +0000
+++ b/lisp/emacs-lisp/copyright.el	Sun May 15 22:02:39 2005 +0000
@@ -189,6 +189,8 @@
 	    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,8 +206,12 @@
 	    (setq last p)))
 	(when last
 	  (goto-char last)
-	  (let ((fill-prefix "     "))
-	    (fill-region s 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))