mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Ignore case when comparing, if ms-dos or windows-nt.
This commit is contained in:
Richard M. Stallman 1997-09-19 18:15:57 +00:00
parent 9af275a32e
commit cd1c10f6ae
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/startup.el
View file

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