Mercurial > hg > xemacs-beta

diff lisp/prim/loadup.el @ 187:b405438285a2 r20-3b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b20
author cvs
date Mon, 13 Aug 2007 09:56:28 +0200
parents 85ec50267440
children 489f57a838ef
line wrap: on
line diff
--- a/lisp/prim/loadup.el	Mon Aug 13 09:55:30 2007 +0200
+++ b/lisp/prim/loadup.el	Mon Aug 13 09:56:28 2007 +0200
@@ -59,8 +59,10 @@
      ;;
      (let ((temp-path (expand-file-name ".." (car load-path))))
        (setq source-directory temp-path)
-       (setq load-path (nconc (directory-files temp-path t "^[^-.]"
-					       nil 'dirs-only)
+       (setq load-path (nconc (mapcar
+			       #'(lambda (i) (concat i "/"))
+			       (directory-files temp-path t "^[^-.]"
+						nil 'dirs-only))
 			      (cons temp-path load-path))))
 
      (setq load-warn-when-source-newer t ; set to nil at the end