Mercurial > emacs
comparison lisp/startup.el @ 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 | 2c55e8ceb8b4 |
children | 5e836a7d213d |
comparison
equal
deleted
inserted
replaced
11293:d24be7d7af5d | 11294:f5079cb33831 |
---|---|
179 | 179 |
180 (defun normal-top-level () | 180 (defun normal-top-level () |
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, |
187 (let ((tail load-path) | 193 (let ((tail load-path) |
188 new) | 194 new) |