Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
212:d8688acf4c5b 213:78f53ef88e17
135 This function is used during build to find where the global symbol files so 135 This function is used during build to find where the global symbol files so
136 they can be perused for their useful information." 136 they can be perused for their useful information."
137 ;; Source directory may not be initialized yet. 137 ;; Source directory may not be initialized yet.
138 ;; (print (prin1-to-string load-path)) 138 ;; (print (prin1-to-string load-path))
139 (if (null source-directory) 139 (if (null source-directory)
140 (setq source-directory (concat (car load-path) "/.."))) 140 (setq source-directory (concat (car load-path) "/./")))
141 (let ((files (directory-files source-directory t ".*")) 141 (let ((files (directory-files (file-name-as-directory source-directory) t ".*"))
142 file autolist) 142 file autolist)
143 (while (setq file (car-safe files)) 143 (while (setq file (car-safe files))
144 (if (and (file-directory-p file) 144 (if (and (file-directory-p file)
145 (file-exists-p (concat file "/" autoload-file-name))) 145 (file-exists-p (concat file "/" autoload-file-name)))
146 (setq autolist (cons (concat file "/" autoload-file-name) 146 (setq autolist (cons (concat file "/" autoload-file-name)