Commit 8d4c2221 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(normal-top-level): Copy default-directory

from *scratch* to *Messages*.
parent 1b009b97
......@@ -181,6 +181,12 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
(if command-line-processed
(message "Back to top level.")
(setq command-line-processed t)
;; Give *Messages* the same default-directory as *scratch*,
;; just to keep things predictable.
(let ((dir default-directory))
(save-excursion
(set-buffer (get-buffer "*Messages*"))
(setq default-directory dir)))
;; Look in each dir in load-path for a subdirs.el file.
;; If we find one, load it, which will add the appropriate subdirs
;; of that dir into load-path,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment