From: yamaoka <yamaoka>
Date: Tue, 27 Jul 1999 04:07:29 +0000 (+0000)
Subject: (dgnushack-install-package): Don't install dgnuspath.el nor dgnuspath.elc.
X-Git-Tag: et-gnus-6_11_08-03~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fbea3cdb8acee18a6835a2258ed6d24244bcbea2;p=elisp%2Fgnus.git-

(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.
---

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)