summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1996-07-12 00:08:09 +0000
committerKarl Heuer <kwzh@gnu.org>1996-07-12 00:08:09 +0000
commit8cb5478b38301f24143831761fdbfb29d6471562 (patch)
tree0b41eb7de10940cb4858bf2989f4b63d7d48c67f /lisp
parent217acac61d248288e8123259559ba1322fd01666 (diff)
downloademacs-8cb5478b38301f24143831761fdbfb29d6471562.tar.gz
(normal-top-level-add-to-load-path):
Use directory-file-name since load-path elements don't end in /.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/startup.el2
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 ()