diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-08 05:05:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-08 05:05:32 +0000 |
| commit | 645dae056fbdb7d21df4d9039230cdb562bfed3e (patch) | |
| tree | 753e7ae6cf0fb4c1f77f36d2a5dd307273b95e89 /lisp/startup.el | |
| parent | 57d501b2fb88b689a78f978f1bcc44412c0d03df (diff) | |
| download | emacs-645dae056fbdb7d21df4d9039230cdb562bfed3e.tar.gz | |
(normal-top-level): Copy default-directory
from *scratch* to *Messages*.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index cab5b3225cf..783fb9c4dfe 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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, |