# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1268322070 0
# Node ID 54700d784be92f947a4c68de3b1221d46c7819e2
# Parent  85b327aa1b472670f575b9db581d4b98ea54c763
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.

diff -r 85b327aa1b47 -r 54700d784be9 lisp/ChangeLog
--- 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:
diff -r 85b327aa1b47 -r 54700d784be9 lisp/setup-paths.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.