/[emacs]/emacs/admin/admin.el
ViewVC logotype

Diff of /emacs/admin/admin.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by gerd, Sun Oct 21 22:51:08 2001 UTC revision 1.3.4.1 by miles, Fri Apr 4 06:19:49 2003 UTC
# Line 48  Signal an error if the program returns w Line 48  Signal an error if the program returns w
48    "Add \"Version VERSION released.\" change log entries in ROOT.    "Add \"Version VERSION released.\" change log entries in ROOT.
49  Root must be the root of an Emacs source tree."  Root must be the root of an Emacs source tree."
50    (interactive "DEmacs root directory: \nNVersion number: ")    (interactive "DEmacs root directory: \nNVersion number: ")
51      (setq root (expand-file-name root))
52    (unless (file-exists-p (expand-file-name "src/emacs.c" root))    (unless (file-exists-p (expand-file-name "src/emacs.c" root))
53      (error "%s doesn't seem to be the root of an Emacs source tree" root))      (error "%s doesn't seem to be the root of an Emacs source tree" root))
54    (let* ((logs (process-lines "find" root "-name" "ChangeLog"))    (let* ((logs (process-lines "find" root "-name" "ChangeLog"))
55             (require 'add-log)
56           (entry (format "%s  %s  <%s>\n\n\t* Version %s released.\n\n"           (entry (format "%s  %s  <%s>\n\n\t* Version %s released.\n\n"
57                          (format-time-string "%Y-%m-%d")                          (funcall add-log-time-format)
58                          (user-full-name) user-mail-address version)))                          (or add-log-full-name (user-full-name))
59                            (or add-log-mailing-address user-mail-address)
60                            version)))
61      (dolist (log logs)      (dolist (log logs)
62        (unless (string-match "/gnus/" log)        (unless (string-match "/gnus/" log)
63          (find-file log)          (find-file log)
# Line 84  Root must be the root of an Emacs source Line 88  Root must be the root of an Emacs source
88    (set-version-in-file root "man/emacs.texi" version    (set-version-in-file root "man/emacs.texi" version
89                         (rx (and "EMACSVER" (1+ space)                         (rx (and "EMACSVER" (1+ space)
90                                  (submatch (1+ (in "0-9.")))))))                                  (submatch (1+ (in "0-9.")))))))
91                                
92  ;; admin.el ends here.  ;; admin.el ends here.

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26