procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
a nil default-directory.
This commit is contained in:
Glenn Morris 2015-06-11 21:57:47 -07:00
parent b7730b299b
commit f7a381382b
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/startup.el
View file

@ -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)))