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

from *scratch* to *Messages*.

diff --git a/lisp/startup.el b/lisp/startup.el
index cab5b3225cff540c2f2d2c1834025908f599f1dd..783fb9c4dfe6e869e1b4cca93127fd6b34078265 100644 (file)
--- 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,