mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
from *scratch* to *Messages*.
This commit is contained in:
Richard M. Stallman 1995-04-08 05:05:32 +00:00
parent 1b009b97bc
commit 8d4c2221cd
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/startup.el
View File

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