/[emacs]/emacs/lisp/emacs-lisp/copyright.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/copyright.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by lute, Tue Apr 5 23:18:35 2005 UTC revision 1.52 by rms, Sun May 15 22:02:39 2005 UTC
# Line 189  Uses heuristic: year >= 50 means 19xx, < Line 189  Uses heuristic: year >= 50 means 19xx, <
189              last)              last)
190          (set-marker e (1+ (match-end 2)))          (set-marker e (1+ (match-end 2)))
191          (goto-char s)          (goto-char s)
192            ;; Back up one character so that our search can match the first year.
193            (backward-char 1)
194          (while (and (< (point) (marker-position e))          (while (and (< (point) (marker-position e))
195                      (re-search-forward "\\([^0-9]\\)\\([0-9]+\\)[^0-9]"                      (re-search-forward "\\([^0-9]\\)\\([0-9]+\\)[^0-9]"
196                                         (marker-position e) t))                                         (marker-position e) t))
# Line 204  Uses heuristic: year >= 50 means 19xx, < Line 206  Uses heuristic: year >= 50 means 19xx, <
206              (setq last p)))              (setq last p)))
207          (when last          (when last
208            (goto-char last)            (goto-char last)
209            (let ((fill-prefix "     "))            ;; Don't mess up whitespace after the years.
210              (fill-region s last))            (skip-chars-backward " \t")
211              (save-restriction
212                (narrow-to-region (point-min) (point))
213                (let ((fill-prefix "     "))
214                  (fill-region s last)))
215            )            )
216          (set-marker e nil)          (set-marker e nil)
217          (copyright-update nil t))          (copyright-update nil t))

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26