Mercurial > hg > xemacs-beta

diff lisp/setup-paths.el @ 5115:54700d784be9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 6b6b0f8ab749
children 308d34e9f07d
line wrap: on
line diff
--- 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.