Mercurial > hg > xemacs-beta
changeset 5115:54700d784be9
Correct the #'delete-duplicates calls, setup-paths.el
2010-03-11 Aidan Kehoe <kehoea@parhasard.net>
* setup-paths.el (paths-find-emacs-roots)
(paths-construct-info-path):
Pass :from-end t to the delete-duplicates calls in these
functions, now the compiler macro no longer defaults it to t.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 11 Mar 2010 15:41:10 +0000 |
| parents | 85b327aa1b47 |
| children | 9f2f39c80660 |
| files | lisp/ChangeLog lisp/setup-paths.el |
| diffstat | 2 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Mar 08 14:37:15 2010 -0500 +++ b/lisp/ChangeLog Thu Mar 11 15:41:10 2010 +0000 @@ -1,3 +1,10 @@ +2010-03-11 Aidan Kehoe <kehoea@parhasard.net> + + * setup-paths.el (paths-find-emacs-roots) + (paths-construct-info-path): + Pass :from-end t to the delete-duplicates calls in these + functions, now the compiler macro no longer defaults it to t. + 2010-03-07 Ben Wing <ben@xemacs.org> * disp-table.el:
--- a/lisp/setup-paths.el Mon Mar 08 14:37:15 2010 -0500 +++ b/lisp/setup-paths.el Thu Mar 11 15:41:10 2010 +0000 @@ -150,11 +150,11 @@ (and configure-prefix-directory (list (file-name-as-directory configure-prefix-directory)))) - :test #'equal)) + :test #'equal :from-end t)) (installation-roots (remove-if-not root-p potential-installation-roots))) (delete-duplicates (nconc invocation-roots installation-roots) - :test #'equal))) + :test #'equal :from-end t))) (defun paths-find-site-lisp-directory (roots) "Find the site Lisp directory of the XEmacs hierarchy. @@ -281,8 +281,8 @@ (nconc (paths-directories-which-exist configure-info-path) (paths-directories-which-exist paths-default-info-directories)) - :test #'equal))) - :test #'equal))) + :test #'equal :from-end t))) + :test #'equal :from-end t))) (defun paths-find-doc-directory (roots) "Find the documentation directory.