[Top][All Lists]
[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 ----
============================================================
- patch for copyright.el.,
Luc Teirlinck <=