Commit 6bb9d4b8 authored by Karl Heuer's avatar Karl Heuer
Browse files

(normal-top-level-add-to-load-path):

Use directory-file-name since load-path elements don't end in /.
parent 87850793
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment