From bb15e81a9b5b786748721709e81bf156c9ae63e7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 26 Mar 1998 04:26:27 +0000 Subject: [PATCH] (normal-top-level-add-subdirs-to-load-path): Reverse order of subdirs to add. Don't duplicate the parent dir. --- lisp/startup.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index 920fe717377..1f5c63d6993 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -351,7 +351,7 @@ from being initialized." (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) -- 2.39.5