Mercurial > hg > xemacs-beta

diff lisp/packages.el @ 213:78f53ef88e17 r20-4b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents 41ff10fd062f
children 1f0dabaa0855
line wrap: on
line diff
--- a/lisp/packages.el	Mon Aug 13 10:05:53 2007 +0200
+++ b/lisp/packages.el	Mon Aug 13 10:06:47 2007 +0200
@@ -137,8 +137,8 @@
   ;; Source directory may not be initialized yet.
   ;; (print (prin1-to-string load-path))
   (if (null source-directory)
-      (setq source-directory (concat (car load-path) "/..")))
-  (let ((files (directory-files source-directory t ".*"))
+      (setq source-directory (concat (car load-path) "/./")))
+  (let ((files (directory-files (file-name-as-directory source-directory) t ".*"))
 	file autolist)
     (while (setq file (car-safe files))
       (if (and (file-directory-p file)