Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 633:4bf478127536

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-07-20 02:41:28 by youngs] 2001-07-20 Steve Youngs <youngs@xemacs.org> * packages.el (locate-data-file): Revert Karl's patch.
author youngs
date Fri, 20 Jul 2001 02:41:29 +0000
parents 59c2a61efa7d
children 6a0eecc6df0e
comparison
equal deleted inserted replaced
632:406bf4f67ac1 633:4bf478127536
342 342
343 (defun locate-data-file (name &optional dir-list) 343 (defun locate-data-file (name &optional dir-list)
344 "Locate a file in a search path DIR-LIST (a list of directories). 344 "Locate a file in a search path DIR-LIST (a list of directories).
345 If no DIR-LIST is supplied, it defaults to `data-directory-list'. 345 If no DIR-LIST is supplied, it defaults to `data-directory-list'.
346 This function is basically a wrapper over `locate-file'." 346 This function is basically a wrapper over `locate-file'."
347 (locate-file name (or dir-list data-directory-list) '("" ".gz" ".bz2"))) 347 (locate-file name (or dir-list data-directory-list)))
348 348
349 ;; Path setup 349 ;; Path setup
350 350
351 (defun packages-find-package-directories (roots base) 351 (defun packages-find-package-directories (roots base)
352 "Find a set of package directories." 352 "Find a set of package directories."