# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797317532 0
# Node ID f5079cb338319e98db8b8c7592725044ef4e3326
# Parent  d24be7d7af5d0c2bd18902b7c0214a15b8d7e554
(normal-top-level): Copy default-directory
from *scratch* to *Messages*.

diff -r d24be7d7af5d -r f5079cb33831 lisp/startup.el
--- a/lisp/startup.el	Sat Apr 08 05:01:03 1995 +0000
+++ b/lisp/startup.el	Sat Apr 08 05:05:32 1995 +0000
@@ -181,6 +181,12 @@
   (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,