From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 8 Apr 1995 05:05:32 +0000 (+0000)
Subject: (normal-top-level): Copy default-directory
X-Git-Tag: emacs-19.34~4564
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d4c2221cd8ff2acb627a16c1154560be80e5e54;p=emacs.git

(normal-top-level): Copy default-directory
from *scratch* to *Messages*.
---

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,