Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 5003:6b6b0f8ab749

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#'union doesn't preserve relative order; use #'delete-duplicates instead. 2010-02-07 Aidan Kehoe <kehoea@parhasard.net> * setup-paths.el (paths-find-emacs-roots) (paths-construct-info-path): * packages.el (packages-find-installation-package-directories): #'union doesn't guarantee that it will preserve the relative order of elements in its arguments; use #'delete-duplicates instead. Thank you for the bug reports, Robert Pluim, Stephen Turnbull.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 07 Feb 2010 14:37:35 +0000
parents 9c6ea1581159
children 5efbd1253905
comparison
equal deleted inserted replaced
5002:0cd784a6ec44 5003:6b6b0f8ab749
383 (apply consumer list)) 383 (apply consumer list))
384 384
385 (defun packages-find-installation-package-directories (roots) 385 (defun packages-find-installation-package-directories (roots)
386 "Find the package directories in the XEmacs installation. 386 "Find the package directories in the XEmacs installation.
387 ROOTS is a list of installation roots." 387 ROOTS is a list of installation roots."
388 (union (paths-find-version-directories roots (list "") nil nil nil t) 388 (delete-duplicates
389 (paths-find-site-directories roots (list "") nil) :test #'equal)) 389 (nconc (paths-find-version-directories roots (list "") nil nil nil t)
390 (paths-find-site-directories roots (list "") nil))
391 :test #'equal))
390 392
391 (defun packages-find-package-hierarchies (package-directories &optional envvar default) 393 (defun packages-find-package-hierarchies (package-directories &optional envvar default)
392 "Find package hierarchies in a list of package directories. 394 "Find package hierarchies in a list of package directories.
393 PACKAGE-DIRECTORIES is a list of package directories. 395 PACKAGE-DIRECTORIES is a list of package directories.
394 DEFAULT is a default list of package hierarchies. 396 DEFAULT is a default list of package hierarchies.