Initial revision

1 files changed, 85 insertions, 0 deletions

diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
new file mode 100644
index 00000000000..cf858a25fcf
--- /dev/null
+++ b/lisp/emacs-lisp/copyright.el
@@ -0,0 +1,85 @@
+;;; Copyright (C) 1991 Free Software Foundation, Inc.
+;;; Written by Roland McGrath
+;;;
+;;; This program is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 2, or (at your option)
+;;; any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; A copy of the GNU General Public License can be obtained from this
+;;; program's author (send electronic mail to roland@ai.mit.edu) or from
+;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
+;;; 02139, USA.
+
+(defconst current-year (substring (current-time-string) -4)
+  "String representing the current year.")
+
+(defvar current-gpl-version "2"
+  "String representing the current version of the GPL.")
+
+(defvar replace-copying-with nil
+  "*If non-nil, replace copying notices with this file.")
+
+;;;###autoload
+(defun update-copyright (&optional replace)
+  "Update the copyright notice at the beginning of the buffer
+to indicate the current year.  If optional arg REPLACE is given
+\(interactively, with prefix arg\) replace the years in the notice
+rather than adding the current year after them.
+If `replace-copying-with' is set, the copying permissions following the
+copyright are replaced as well."
+  (interactive "*P")
+  (save-excursion
+    (save-restriction
+      (widen)
+      (goto-char (point-min))
+      (if (search-forward current-year nil t)
+          (message "Copyright notice already includes %s." current-year)
+        (goto-char (point-min))
+        (or (re-search-forward
+             "[Cc]opyright[^0-9]*\\(\\([-, \t]*\\([0-9]+\\)\\)\\)+"
+              nil t)
+            (error "This buffer contains no copyright notice!"))
+        (if replace
+            (delete-region (match-beginning 1) (match-end 1))
+          (insert ", "))
+        (insert current-year)
+        (message "Copyright updated to %s%s."
+                 (if replace "" "include ") current-year))
+      (if replace-copying-with
+          (let ((case-fold-search t)
+                beg)
+            (goto-char (point-min))
+            ;; Find the beginning of the copyright.
+            (or (search-forward "copyright" nil t)
+                (error "Copyright notice not found!"))
+            ;; Look for a blank line or a line containing only comment chars.
+            (if (re-search-forward "^\\(\\s \\s<\\|\\s>\\)*$" nil t)
+                (forward-line 1)
+              (with-output-to-temp-buffer "*Help*"
+                (princ (substitute-command-keys "\
+I don't know where the copying notice begins.
+Put point there and hit \\[exit-recursive-edit]."))
+                (recursive-edit)))
+            (setq beg (point))
+            (or (search-forward "02139, USA." nil t)
+                (with-output-to-temp-buffer "*Help*"
+                  (princ (substitute-command-keys "\
+I don't know where the copying notie ends.
+Put point there and hit \\[exit-recursive-edit]."))
+                  (recursive-edit)))
+            (delete-region beg (point))
+            (insert-file replace-copying-with))
+        (if (re-search-forward "; either version \\(.+\\), or (at your option)"
+                               nil t)
+            (progn
+              (goto-char (match-beginning 1))
+              (delete-region (point) (match-end 1))
+              (insert current-gpl-version)))))))
+
+(provide 'upd-copyr)