Mercurial > hg > xemacs-beta

diff lisp/make-docfile.el @ 269:b2472a1930f2 r20-5b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b33
author cvs
date Mon, 13 Aug 2007 10:27:19 +0200
parents 966663fcf606
children c5d627a313b1
line wrap: on
line diff
--- a/lisp/make-docfile.el	Mon Aug 13 10:26:31 2007 +0200
+++ b/lisp/make-docfile.el	Mon Aug 13 10:27:19 2007 +0200
@@ -79,14 +79,6 @@
 
 (setq load-path (decode-path-internal (getenv "EMACSBOOTSTRAPLOADPATH")))
 
-(let ((temp-path (expand-file-name "." (car load-path))))
-  (setq load-path (nconc (mapcar
-			  #'(lambda (i) (concat i "/"))
-			  (directory-files temp-path t "^[^-.]"
-					   nil 'dirs-only))
-			 (cons (file-name-as-directory temp-path)
-			       load-path))))
-
 ;; Then process the autoloads
 (setq autoload-file-name "auto-autoloads.elc")
 (setq source-directory (concat default-directory "../lisp"))
@@ -96,6 +88,10 @@
 (load "setup-paths.el")
 (load "dump-paths.el")
 
+(setq
+ load-path
+ (nconc load-path (decode-path-internal (getenv "EMACSBOOTSTRAPLOADPATH"))))
+
 (let (preloaded-file-list)
   (load (concat default-directory "../lisp/dumped-lisp.el"))