emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

patch for copyright.el.


From: Luc Teirlinck
Subject: patch for copyright.el.
Date: Mon, 16 Aug 2004 22:00:00 -0500 (CDT)

copyright.el took the following line:

@c Copyright (C) 1985,86,87,93,94,95,97,2000,2001,2002,2003

and transformed it into:

@c Copyright (C) 1985,86,87,93,94,95,97,2000,2001,2002,03,2004

If I understood correctly, we do not want that any more.

The following patch keeps the 2003.  If there are no objections, I
will install it.

===File ~/copyright.el-diff=================================
*** copyright.el        16 Aug 2004 21:15:51 -0500      1.47
--- copyright.el        16 Aug 2004 21:18:06 -0500      
***************
*** 124,149 ****
                           (eq (char-after (+ (point) size -2)) ?-)))
                  ;; This is a range so just replace the end part.
                  (delete-char size)
-               ;; Detect if this is using the following shorthand:
-               ;; (C) 1993, 94, 95, 1998, 2000, 01, 02, 2003
-               (if (and
-                    ;; Check that the last year was 4-chars and same century.
-                    (eq size -4)
-                    (equal (buffer-substring (- (point) 4) (- (point) 2))
-                           (substring copyright-current-year 0 2))
-                    ;; Check that there are 2-char years as well.
-                    (save-excursion
-                      (re-search-backward "[^0-9][0-9][0-9][^0-9]"
-                                          (line-beginning-position) t))
-                    ;; Make sure we don't remove the first century marker.
-                    (save-excursion
-                      (forward-char size)
-                      (re-search-backward
-                       (concat (buffer-substring (point) (+ (point) 2))
-                               "[0-9][0-9]")
-                       (line-beginning-position) t)))
-                   ;; Remove the century marker of the last entry.
-                   (delete-region (- (point) 4) (- (point) 2)))
                ;; Insert a comma with the preferred number of spaces.
                (insert
                 (save-excursion
--- 124,129 ----
============================================================




reply via email to

[Prev in Thread] Current Thread [Next in Thread]