Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 312:d1b52dcaa789 r21-0b54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b54
author cvs
date Mon, 13 Aug 2007 10:43:55 +0200
parents 33bdb3d4b97f
children afd57c14dfc8
comparison
equal deleted inserted replaced
311:b4ad76366919 312:d1b52dcaa789
221 autoload-file-name) 221 autoload-file-name)
222 autoloads))) 222 autoloads)))
223 (setq path (cdr path))) 223 (setq path (cdr path)))
224 autoloads)) 224 autoloads))
225 225
226 (defun packages-list-autoloads () 226 (defun packages-list-autoloads (source-directory)
227 "List autoload files in (what will be) the normal lisp search path. 227 "List autoload files in (what will be) the normal lisp search path.
228 This function is used during build to find where the global symbol files so 228 This function is used during build to find where the global symbol files so
229 they can be perused for their useful information." 229 they can be perused for their useful information."
230 ;; Source directory may not be initialized yet.
231 ;; (print (prin1-to-string load-path))
232 (if (null source-directory)
233 (setq source-directory (car load-path)))
234 (let ((files (directory-files (file-name-as-directory source-directory) 230 (let ((files (directory-files (file-name-as-directory source-directory)
235 t ".*")) 231 t ".*"))
236 file autolist) 232 file autolist)
237 ;; (print (prin1-to-string source-directory)) 233 ;; (print (prin1-to-string source-directory))
238 ;; (print (prin1-to-string files)) 234 ;; (print (prin1-to-string files))