From: yamaoka <yamaoka>
Date: Mon, 28 Apr 2003 12:43:12 +0000 (+0000)
Subject: * dgnushack.el (dgnushack-remove-extra-files-in-package): Clear the value for
X-Git-Tag: t-gnus-6_15_21-00-quimby~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4920ac08128f485773a523afad36e62629423e68;p=elisp%2Fgnus.git-

* dgnushack.el (dgnushack-remove-extra-files-in-package): Clear the value for
 `command-line-args-left'.
(dgnushack-install-package-manifest): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 16944db..15b81d4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,9 @@
 	* lisp/dgnushack.el: Make sure `dolist' is available; require
 	`advice' before `path-util'; revoke the bogus change of 2003-04-17
 	(removing function bindings for XEmacs).
+	(dgnushack-remove-extra-files-in-package): Clear the value for
+	`command-line-args-left'.
+	(dgnushack-install-package-manifest): Ditto.
 
 	* texi/infohack.el: Load dgnushack.el and ptexinfmt.el first.
 
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 196bd0f..fca918f 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -869,6 +869,7 @@ Re-splitting gnus-load.el into custom-load.el and auto-autoloads.el...done
 					    "/")
 				    ;; PACKAGEDIR
 				    (car command-line-args-left))))
+    (setq command-line-args-left nil)
     (when (file-directory-p lisp-dir)
       (let (files)
 	(dolist (file dgnushack-exporting-files)
@@ -883,8 +884,8 @@ Re-splitting gnus-load.el into custom-load.el and auto-autoloads.el...done
 
 (defun dgnushack-install-package-manifest ()
   "Install MANIFEST file as an XEmacs package."
-  (let* ((package-dir (car command-line-args-left))
-	 (product-name (cadr command-line-args-left))
+  (let* ((package-dir (pop command-line-args-left))
+	 (product-name (pop command-line-args-left))
 	 (pkginfo-dir (expand-file-name "pkginfo" package-dir))
 	 (name (expand-file-name (concat "MANIFEST." product-name)
 				 pkginfo-dir))