[PATCH] Correct the #'delete-duplicates calls, setup-paths.el

[Aidan Kehoe]

changeset:   5151:54700d784be9
user:        Aidan Kehoe <kehoea at parhasard.net>
date:        Thu Mar 11 15:41:10 2010 +0000
files:       lisp/ChangeLog lisp/setup-paths.el
description:
Correct the #'delete-duplicates calls, setup-paths.el

2010-03-11  Aidan Kehoe  <kehoea at 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 at 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 at 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.