procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
case that the default directory is not in load-path.
This commit is contained in:
Gerd Moellmann 2000-04-26 17:34:37 +00:00
parent 349c034d9e
commit 138e541fe6
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/startup.el
View file

@ -382,11 +382,15 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(let ((tail load-path)
(thisdir (directory-file-name default-directory)))
(while (and tail
;;Don't go all the way to the nil terminator.
(cdr 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)))))
;;Splice the new section in.
(when tail
(setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail))))))
(defun normal-top-level ()
(if command-line-processed