[Emacs-diffs] Changes to emacs/admin/admin.el

[Miles Bader]

Index: emacs/admin/admin.el
diff -c emacs/admin/admin.el:1.3 emacs/admin/admin.el:1.4
*** emacs/admin/admin.el:1.3    Sun Oct 21 18:51:08 2001
--- emacs/admin/admin.el        Fri Jan 17 09:48:15 2003
***************
*** 48,59 ****
    "Add \"Version VERSION released.\" change log entries in ROOT.
  Root must be the root of an Emacs source tree."
    (interactive "DEmacs root directory: \nNVersion number: ")
    (unless (file-exists-p (expand-file-name "src/emacs.c" root))
      (error "%s doesn't seem to be the root of an Emacs source tree" root))
    (let* ((logs (process-lines "find" root "-name" "ChangeLog"))
         (entry (format "%s  %s  <%s>\n\n\t* Version %s released.\n\n"
!                       (format-time-string "%Y-%m-%d")
!                       (user-full-name) user-mail-address version)))
      (dolist (log logs)
        (unless (string-match "/gnus/" log)
        (find-file log)
--- 48,63 ----
    "Add \"Version VERSION released.\" change log entries in ROOT.
  Root must be the root of an Emacs source tree."
    (interactive "DEmacs root directory: \nNVersion number: ")
+   (setq root (expand-file-name root))
    (unless (file-exists-p (expand-file-name "src/emacs.c" root))
      (error "%s doesn't seem to be the root of an Emacs source tree" root))
    (let* ((logs (process-lines "find" root "-name" "ChangeLog"))
+        (require 'add-log)
         (entry (format "%s  %s  <%s>\n\n\t* Version %s released.\n\n"
!                       (funcall add-log-time-format)
!                       (or add-log-full-name (user-full-name))
!                       (or add-log-mailing-address user-mail-address)
!                       version)))
      (dolist (log logs)
        (unless (string-match "/gnus/" log)
        (find-file log)
***************
*** 84,88 ****
    (set-version-in-file root "man/emacs.texi" version
                       (rx (and "EMACSVER" (1+ space)
                                (submatch (1+ (in "0-9.")))))))
!                            
  ;; admin.el ends here.
--- 88,92 ----
    (set-version-in-file root "man/emacs.texi" version
                       (rx (and "EMACSVER" (1+ space)
                                (submatch (1+ (in "0-9.")))))))
! 
  ;; admin.el ends here.