* (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 7057e62..e99d400 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -90,11 +90,8 @@ Modify to suit your needs."))
 
 \f
 ;; 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
   "^\\(gnus\\|message\\|gnus-ja\\|message-ja\\)\\.info\\(-[0-9]+\\)?$")
@@ -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))