diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-06-11 21:57:47 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-06-11 21:57:47 -0700 |
| commit | f7a381382b2468b1616e0649263c0c0e4bcf0748 (patch) | |
| tree | 59fedbaa428aeb5393af1ddf29f7308a6fb79cb1 /lisp/startup.el | |
| parent | b7730b299b0d421ba9789d992f4c8a7df3fde208 (diff) | |
| download | emacs-f7a381382b2468b1616e0649263c0c0e4bcf0748.tar.gz | |
* lisp/startup.el (normal-top-level): Don't let *Messages* get
a nil default-directory.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |