From 9ace9cd9af96278359dc6d3606c542be3d30f318 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 28 Apr 2003 12:43:00 +0000 Subject: [PATCH] * dgnushack.el (dgnushack-remove-extra-files-in-package): Clear the value for `command-line-args-left'. (dgnushack-install-package-manifest): Ditto. --- ChangeLog | 4 ++++ lisp/dgnushack.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0ed76bf..2a01b58 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2003-04-28 Katsumi Yamaoka + * 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 diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index 43f6d02..c1a27e9 100644 --- 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)) -- 1.7.10.4