From: yamaoka <yamaoka>
Date: Mon, 1 Mar 1999 07:48:47 +0000 (+0000)
Subject: * (dgnushack-install-package): Don't refer to `configure-package-path'.
X-Git-Tag: semi-gnus-6_10_10~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3536a6f4aa61aba4872aba1e0dac29fa78b72953;p=elisp%2Fgnus.git-

* (dgnushack-install-package): Don't refer to `configure-package-path'.
Use `early-packages', `late-packages' or `last-packages' instead.
---

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index e99d400..8224ba1 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -91,7 +91,12 @@ Modify to suit your needs."))
 
 ;; Avoid byte-compile warnings.
 (defvar gnus-product-name)
-(defvar configure-package-path)
+(defvar early-package-load-path)
+(defvar early-packages)
+(defvar last-package-load-path)
+(defvar last-packages)
+(defvar late-package-load-path)
+(defvar late-packages)
 
 (defconst dgnushack-info-file-regexp
   "^\\(gnus\\|message\\|gnus-ja\\|message-ja\\)\\.info\\(-[0-9]+\\)?$")
@@ -138,21 +143,29 @@ 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)
-	       (car configure-package-path)
-	       (error "%s" "
+  (let ((package-dir (car command-line-args-left))
+	dirs info-dir pkginfo-dir product-name lisp-dir manifest files)
+    (unless package-dir
+      (when (boundp 'early-packages)
+	(setq dirs (delq nil (append (when early-package-load-path
+				       early-packages)
+				     (when late-package-load-path
+				       late-packages)
+				     (when last-package-load-path
+				       last-packages))))
+	(while (and dirs (not package-dir))
+	  (when (file-exists-p (car dirs))
+	    (setq package-dir (car dirs)
+		  dirs (cdr dirs))))))
+    (unless package-dir
+      (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)
+	     ))
+    (setq info-dir (expand-file-name "info/" package-dir)
+	  pkginfo-dir (expand-file-name "pkginfo/" package-dir))
     (require 'gnus)
     (setq product-name (downcase gnus-product-name)
 	  lisp-dir (expand-file-name (concat "lisp/" product-name "/")