From: Glenn Morris <rgm@gnu.org>
Date: Fri, 12 Jun 2015 04:57:47 +0000 (-0700)
Subject: * lisp/startup.el (normal-top-level): Don't let *Messages* get
X-Git-Tag: emacs-25.0.90~1791
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7a381382b2468b1616e0649263c0c0e4bcf0748;p=emacs.git

* lisp/startup.el (normal-top-level): Don't let *Messages* get

a nil default-directory.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index e614466aa23..ec222b3a38d 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -581,7 +581,7 @@ It is the default value of the variable `top-level'."
         (set (make-local-variable 'window-point-insertion-type) t)
         ;; Give *Messages* the same default-directory as *scratch*,
         ;; just to keep things predictable.
-	(setq default-directory dir)))
+	(setq default-directory (or dir (expand-file-name "~/")))))
     ;; `user-full-name' is now known; reset its standard-value here.
     (put 'user-full-name 'standard-value
 	 (list (default-value 'user-full-name)))