Commit cd1c10f6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

Ignore case when comparing, if ms-dos or windows-nt.
parent 9af275a3
......@@ -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 ()
......
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