; * lisp/startup.el (normal-top-level): Fix previous change.

diff --git a/lisp/startup.el b/lisp/startup.el
index b638ed50cc668d9585b95e333a4442f0f4308f49..370e7aee771e726875967687aa2691d045a07f5d 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -590,12 +590,12 @@ It is the default value of the variable `top-level'."
       (and (stringp pwd)
           ;; Use FOO/., so that if FOO is a symlink, file-attributes
           ;; describes the directory linked to, not FOO itself.
-          (or (equal (file-attributes
+          (or (and default-directory
+                   (equal (file-attributes
                       (concat (file-name-as-directory pwd) "."))
-                     (if default-directory
-                         (file-attributes
-                          (concat (file-name-as-directory default-directory)
-                                  "."))))
+                     (file-attributes
+                      (concat (file-name-as-directory default-directory)
+                              "."))))
               (setq process-environment
                     (delete (concat "PWD=" pwd)
                             process-environment)))))