diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-12 00:08:09 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-12 00:08:09 +0000 |
| commit | 8cb5478b38301f24143831761fdbfb29d6471562 (patch) | |
| tree | 0b41eb7de10940cb4858bf2989f4b63d7d48c67f | |
| parent | 217acac61d248288e8123259559ba1322fd01666 (diff) | |
| download | emacs-8cb5478b38301f24143831761fdbfb29d6471562.tar.gz | |
(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.") ;; This function is called from the subdirs.el file. (defun normal-top-level-add-to-load-path (dirs) - (let ((tail (member default-directory load-path))) + (let ((tail (member (directory-file-name default-directory) load-path))) (setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail))))) (defun normal-top-level () |