]> git.eshelyaron.com Git - emacs.git/commitdiff
; * lisp/startup.el (normal-top-level): Fix previous change.
authorGlenn Morris <rgm@gnu.org>
Fri, 12 Jun 2015 00:47:45 +0000 (20:47 -0400)
committerGlenn Morris <rgm@gnu.org>
Fri, 12 Jun 2015 00:47:45 +0000 (20:47 -0400)
lisp/startup.el

index b638ed50cc668d9585b95e333a4442f0f4308f49..370e7aee771e726875967687aa2691d045a07f5d 100644 (file)
@@ -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)))))