diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-19 18:15:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-19 18:15:57 +0000 |
| commit | cd1c10f6aec7b680f94df42dec61798a57322eac (patch) | |
| tree | 59e02bba039249a4ffc067c6c4b0f150294de650 /lisp/startup.el | |
| parent | 9af275a32ef9244d578ddf17291b16f318c9929f (diff) | |
| download | emacs-cd1c10f6aec7b680f94df42dec61798a57322eac.tar.gz | |
(normal-top-level-add-to-load-path):
Ignore case when comparing, if ms-dos or windows-nt.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 1093defa0ed..a1a824ae3da 100644 --- 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 () |