[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f7a3813: * lisp/startup.el (normal-top-level): Don'
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master f7a3813: * lisp/startup.el (normal-top-level): Don't let *Messages* get |
Date: |
Fri, 12 Jun 2015 04:57:59 +0000 |
branch: master
commit f7a381382b2468b1616e0649263c0c0e4bcf0748
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* lisp/startup.el (normal-top-level): Don't let *Messages* get
a nil default-directory.
---
lisp/startup.el | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lisp/startup.el b/lisp/startup.el
index e614466..ec222b3 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f7a3813: * lisp/startup.el (normal-top-level): Don't let *Messages* get,
Glenn Morris <=