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

Ignore case when comparing, if ms-dos or windows-nt.

diff --git a/lisp/startup.el b/lisp/startup.el
index 1093defa0ed7b3b1aad01c01b061c6754aaa1dd0..a1a824ae3da3ae3d0cd811fcee612114433a4c97 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -334,8 +334,13 @@ from being initialized."
 
 ;; This function is called from the subdirs.el file.
 (defun normal-top-level-add-to-load-path (dirs)
-  (let ((tail (or (member (directory-file-name default-directory) load-path)
-                 (member default-directory load-path))))
+  (let ((tail load-path)
+       (thisdir (directory-file-name default-directory)))
+    (while (and tail
+               (not (equal thisdir (car tail)))
+               (not (and (memq system-type '(ms-dos windows-nt))
+                         (equal (downcase thisdir) (downcase (car tail))))))
+      (setq tail (cdr tail)))
     (setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail)))))
 
 (defun normal-top-level ()