From 6bb9d4b8f3394be9262a93c12927e9cfc99e2bfa Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 12 Jul 1996 00:08:09 +0000 Subject: [PATCH] (normal-top-level-add-to-load-path): Use directory-file-name since load-path elements don't end in /. --- lisp/startup.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 () -- 2.39.2