From 5daea6b4fbe59512a0c93c894b30d5a9bcd57ff7 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Fri, 26 Feb 1999 05:16:04 +0000
Subject: [PATCH] * (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'.

---
 lisp/dgnushack.el |   23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 7057e62..e99d400 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -90,11 +90,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
   "^\\(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))
-- 
1.7.10.4