* 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 0ed76bf..2a01b58 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2003-04-28  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * lisp/dgnushack.el (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.
 
 2003-04-28  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 43f6d02..c1a27e9 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -806,6 +806,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)
@@ -820,8 +821,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))