# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 890886387 0
# Node ID 5d62016adafd70f52e19b4afb112fe03f106024b
# Parent  b039d32d8399f149e602dfadf77f82848e90f855
(normal-top-level-add-subdirs-to-load-path):
Reverse order of subdirs to add.  Don't duplicate the parent dir.

diff -r b039d32d8399 -r 5d62016adafd lisp/startup.el
--- a/lisp/startup.el	Thu Mar 26 04:22:13 1998 +0000
+++ b/lisp/startup.el	Thu Mar 26 04:26:27 1998 +0000
@@ -351,7 +351,7 @@
 	      (setq pending (nconc pending
 				   (list (expand-file-name (car contents)))))))
 	  (setq contents (cdr contents)))))
-    (normal-top-level-add-to-load-path dirs)))
+    (normal-top-level-add-to-load-path (cdr (nreverse dirs)))))
 
 ;; This function is called from the subdirs.el file.
 (defun normal-top-level-add-to-load-path (dirs)