From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 12 Jul 1996 00:08:09 +0000 (+0000)
Subject: (normal-top-level-add-to-load-path):
X-Git-Tag: emacs-19.34~215
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6bb9d4b8f3394be9262a93c12927e9cfc99e2bfa;p=emacs.git

(normal-top-level-add-to-load-path):
Use directory-file-name since load-path elements don't end in /.
---

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 ()