From: yamaoka Date: Fri, 26 Feb 1999 05:09:19 +0000 (+0000) Subject: * gnus.el (gnus-revision-number): Increment to 05. X-Git-Tag: t-gnus-6_10_059-05~3 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=23b3fb4943dce1becea6efd75f9f988e50bbed52;p=elisp%2Fgnus.git- * gnus.el (gnus-revision-number): Increment to 05. * dgnushack.el (dgnushack-add-info-suffix-maybe): Chdir ../texi first. (dgnushack-install-package): Don't refer to `package-path'; error if the package path does not found. (TopLevel): Don't define `gnus-revision-number', `gnus-version-number' and `package-path'. --- diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index 6caab34..54debf1 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -89,11 +89,8 @@ Modify to suit your needs.")) ;; Avoid byte-compile warnings. -(defvar gnus-revision-number) -(defvar gnus-version-number) (defvar gnus-product-name) (defvar configure-package-path) -(defvar package-path) (defconst dgnushack-info-file-regexp (concat "^\\(gnus\\|message\\|emacs-mime\\|gnus-ja\\|message-ja\\)" @@ -141,11 +138,18 @@ Modify to suit your needs.")) (write-file (concat "../MANIFEST." product-name))))) (defun dgnushack-install-package () - (let* ((package-dir (file-name-as-directory - (or (car command-line-args-left) - (if (boundp 'configure-package-path) - (car configure-package-path) - (car package-path))))) + (let* ((package-dir + (file-name-as-directory + (or (car command-line-args-left) + (car configure-package-path) + (error "%s" " +You must specify the name of the package path as follows: + +% make install-package PACKAGEDIR=/usr/local/lib/xemacs/xemacs-packages + + - GAME OVER - +" + )))) (info-dir (expand-file-name "info/" package-dir)) (pkginfo-dir (expand-file-name "pkginfo/" package-dir)) product-name lisp-dir manifest files) @@ -194,7 +198,8 @@ Modify to suit your needs.")) (message "Done"))) (defun dgnushack-add-info-suffix-maybe () - ;; This function must be invoked from texi directory. + ;; This function must be invoked from lisp directory. + (setq default-directory "../texi/") (let ((coding-system-for-read 'raw-text) (coding-system-for-write 'raw-text) (files (directory-files "." nil dgnushack-texi-file-regexp)) diff --git a/lisp/gnus.el b/lisp/gnus.el index e61c166..b7a7901 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -267,7 +267,7 @@ is restarted, and sometimes reloaded." (defconst gnus-version-number "6.10.059" "Version number for this version of gnus.") -(defconst gnus-revision-number "04" +(defconst gnus-revision-number "05" "Revision number for this version of gnus.") (defconst gnus-original-version-number "0.77"