Mercurial > emacs
changeset 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 | 9c37afba82bc |
| children | 4304c48c29c5 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
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 ()