diff options
| author | Richard M. Stallman | 1998-03-26 04:26:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-03-26 04:26:27 +0000 |
| commit | bb15e81a9b5b786748721709e81bf156c9ae63e7 (patch) | |
| tree | e6580fd0d0725247908566fb837c7021b6128c6f | |
| parent | 8f6b04114499af675c3365ad8f6e06ee8c8bb9ef (diff) | |
| download | emacs-bb15e81a9b5b786748721709e81bf156c9ae63e7.tar.gz emacs-bb15e81a9b5b786748721709e81bf156c9ae63e7.zip | |
(normal-top-level-add-subdirs-to-load-path):
Reverse order of subdirs to add. Don't duplicate the parent dir.
| -rw-r--r-- | lisp/startup.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 351 | (setq pending (nconc pending | 351 | (setq pending (nconc pending |
| 352 | (list (expand-file-name (car contents))))))) | 352 | (list (expand-file-name (car contents))))))) |
| 353 | (setq contents (cdr contents))))) | 353 | (setq contents (cdr contents))))) |
| 354 | (normal-top-level-add-to-load-path dirs))) | 354 | (normal-top-level-add-to-load-path (cdr (nreverse dirs))))) |
| 355 | 355 | ||
| 356 | ;; This function is called from the subdirs.el file. | 356 | ;; This function is called from the subdirs.el file. |
| 357 | (defun normal-top-level-add-to-load-path (dirs) | 357 | (defun normal-top-level-add-to-load-path (dirs) |