diff options
| author | Richard M. Stallman | 1995-04-08 05:05:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-04-08 05:05:32 +0000 |
| commit | 8d4c2221cd8ff2acb627a16c1154560be80e5e54 (patch) | |
| tree | d2948bb54c42add2f48af89fe381fe30178b8fc3 | |
| parent | 1b009b97bcad56fee09f86dc260562de7c2b8824 (diff) | |
| download | emacs-8d4c2221cd8ff2acb627a16c1154560be80e5e54.tar.gz emacs-8d4c2221cd8ff2acb627a16c1154560be80e5e54.zip | |
(normal-top-level): Copy default-directory
from *scratch* to *Messages*.
| -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.") | |||
| 181 | (if command-line-processed | 181 | (if command-line-processed |
| 182 | (message "Back to top level.") | 182 | (message "Back to top level.") |
| 183 | (setq command-line-processed t) | 183 | (setq command-line-processed t) |
| 184 | ;; Give *Messages* the same default-directory as *scratch*, | ||
| 185 | ;; just to keep things predictable. | ||
| 186 | (let ((dir default-directory)) | ||
| 187 | (save-excursion | ||
| 188 | (set-buffer (get-buffer "*Messages*")) | ||
| 189 | (setq default-directory dir))) | ||
| 184 | ;; Look in each dir in load-path for a subdirs.el file. | 190 | ;; Look in each dir in load-path for a subdirs.el file. |
| 185 | ;; If we find one, load it, which will add the appropriate subdirs | 191 | ;; If we find one, load it, which will add the appropriate subdirs |
| 186 | ;; of that dir into load-path, | 192 | ;; of that dir into load-path, |