]> git.eshelyaron.com Git - emacs.git/commitdiff
(normal-top-level-add-to-load-path): Handle
authorGerd Moellmann <gerd@gnu.org>
Wed, 26 Apr 2000 17:34:37 +0000 (17:34 +0000)
committerGerd Moellmann <gerd@gnu.org>
Wed, 26 Apr 2000 17:34:37 +0000 (17:34 +0000)
case that the default directory is not in load-path.

lisp/startup.el

index 230988f21043151318239eb7bddbb974e802518a..e2b227c7bfe7f3bc11ac2b3ee800102b82cede0a 100644 (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