Mercurial > emacs
changeset 11294:f5079cb33831
(normal-top-level): Copy default-directory
from *scratch* to *Messages*.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 08 Apr 1995 05:05:32 +0000 |
| parents | d24be7d7af5d |
| children | 2bb1a6595c14 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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,