diff lisp/startup.el @ 19955:1593da1bdfec

(normal-top-level-add-to-load-path): Ignore case when comparing, if ms-dos or windows-nt.
author Richard M. Stallman <rms@gnu.org>
date Fri, 19 Sep 1997 18:15:57 +0000
parents d21ea4b5978e
children 4e45c8db30cb
line wrap: on
line diff
--- a/lisp/startup.el	Fri Sep 19 17:36:36 1997 +0000
+++ b/lisp/startup.el	Fri Sep 19 18:15:57 1997 +0000
@@ -334,8 +334,13 @@
 
 ;; 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 ()