diff options
| author | Karl Heuer | 1996-07-12 00:08:09 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-07-12 00:08:09 +0000 |
| commit | 6bb9d4b8f3394be9262a93c12927e9cfc99e2bfa (patch) | |
| tree | 87d7d1ce554f5652c2aaf9c759461c144765e82b | |
| parent | 87850793c3c5351531e26a2f47797ddef82eb722 (diff) | |
| download | emacs-6bb9d4b8f3394be9262a93c12927e9cfc99e2bfa.tar.gz emacs-6bb9d4b8f3394be9262a93c12927e9cfc99e2bfa.zip | |
(normal-top-level-add-to-load-path):
Use directory-file-name since load-path elements don't end in /.
| -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 a3aafc7454f..69642d82ac4 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -304,7 +304,7 @@ from being initialized.") | |||
| 304 | 304 | ||
| 305 | ;; This function is called from the subdirs.el file. | 305 | ;; This function is called from the subdirs.el file. |
| 306 | (defun normal-top-level-add-to-load-path (dirs) | 306 | (defun normal-top-level-add-to-load-path (dirs) |
| 307 | (let ((tail (member default-directory load-path))) | 307 | (let ((tail (member (directory-file-name default-directory) load-path))) |
| 308 | (setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail))))) | 308 | (setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail))))) |
| 309 | 309 | ||
| 310 | (defun normal-top-level () | 310 | (defun normal-top-level () |