From fbea3cdb8acee18a6835a2258ed6d24244bcbea2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 27 Jul 1999 04:07:29 +0000 Subject: [PATCH] (dgnushack-install-package): Don't install dgnuspath.el nor dgnuspath.elc. (dgnushack-make-package): Don't enter dgnuspath.el nor dgnuspath.elc to MANIFEST file. (dgnushack-compile): Don't compile dgnuspath.el. (TopLevel): Use `expand-file-name' for the file "./dgnuspath.el"; use dgnuspath.el instead of paths.el. --- lisp/dgnushack.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index b18cd04..7f7556f 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -52,7 +52,7 @@ (require 'bytecomp) ;; Attempt to pickup the additional load-path(s). -(load "./paths.el" nil nil t) +(load (expand-file-name "./dgnuspath.el") nil nil t) (condition-case err (load "~/.lpath.el" t nil t) (error (message "Error in \"~/.lpath.el\" file: %s" err))) @@ -154,7 +154,8 @@ You also then need to add the following to the lisp/dgnushack.el file: (push \"~/lisp/custom\" load-path) Modify to suit your needs.")) - (let ((files (directory-files "." nil "^[^=].*\\.el$")) + (let ((files (delete "dgnuspath.el" + (directory-files "." nil "^[^=].*\\.el$"))) (xemacs (string-match "XEmacs" emacs-version)) ;;(byte-compile-generate-call-tree t) file elc) @@ -232,7 +233,9 @@ Modify to suit your needs.")) lisp-dir (mapconcat 'identity - (sort (directory-files "." nil "\\.elc?$") + (sort (delete "dgnuspath.el" + (delete "patchs.elc" + (directory-files "." nil "\\.elc?$"))) 'string-lessp) (concat "\n" lisp-dir)) "\ninfo/" @@ -282,7 +285,11 @@ You must specify the name of the package path as follows: (unless (file-directory-p pkginfo-dir) (make-directory pkginfo-dir)) - (setq files (sort (directory-files "." nil "\\.elc?$") 'string-lessp)) + (setq files + (sort (delete "dgnuspath.el" + (delete "dgnuspath.elc" + (directory-files "." nil "\\.elc?$"))) + 'string-lessp)) (mapcar (lambda (file) (unless (member file files) -- 1.7.10.4