Comment changes.

[bpt/emacs.git] / lisp / emacs-lisp / copyright.el

diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 86056f0..8527c68 100644 (file)
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -1,6 +1,6 @@
 ;;; upd-copyr.el --- update the copyright notice in a GNU Emacs Lisp file
 
-;;; Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
+;;; Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
 
 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
 ;; Keywords: maint
@@ -56,9 +56,11 @@ than adding to it."
     (save-restriction
       (widen)
       (goto-char (point-min))
-      ;; Handle abbreviated year lists like "1800, 01, 02, 03".
-      (if (re-search-forward (concat (substring current-year 0 2)
-                                    "\\([0-9][0-9]\\(,\\s \\)+\\)*"
+      ;; Handle abbreviated year lists like "1800, 01, 02, 03"
+      ;; or "1900, '01, '02, '03".
+      (if (re-search-forward (concat "\\(" (substring current-year 0 2)
+                                    "\\)?"
+                                    "\\([0-9][0-9]\\(,\\s \\)+\\)*'?"
                                     (substring current-year 2))
                             nil t)
          (or ask-upd
@@ -72,7 +74,7 @@ than adding to it."
                         (search-forward "is free software" nil t)
                       (goto-char (point-min))))
                 (re-search-forward
-                 "[Cc]opyright[^0-9]*\\(\\([-, \t]*\\([0-9]+\\)\\)\\)+"
+                 "[Cc]opyright[^0-9]*\\(\\(\\([-, \t]*\\([0-9]+\\)\\)\\)+\\)"
                  nil t)
                 (or (not ask-upd)
                     (save-window-excursion
@@ -118,6 +120,9 @@ than adding to it."
                          (princ (substitute-command-keys "\
 I don't know where the copying notice begins.
 Put point there and hit \\[exit-recursive-edit]."))
+                         (save-excursion
+                           (set-buffer standard-output)
+                           (help-mode))
                          (recursive-edit)))
                      (setq beg (point))
                      (or (search-forward "02139, USA." nil t)
@@ -125,6 +130,9 @@ Put point there and hit \\[exit-recursive-edit]."))
                            (princ (substitute-command-keys "\
 I don't know where the copying notice ends.
 Put point there and hit \\[exit-recursive-edit]."))
+                           (save-excursion
+                             (set-buffer standard-output)
+                             (help-mode))
                            (recursive-edit)))
                      (delete-region beg (point))))
                (insert-file replace-copying-with))