Mercurial > emacs
comparison lisp/startup.el @ 80113:5b4e8ae6e892
(fancy-startup-screen, normal-splash-screen):
Set default-directory to command-line-default-directory.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Tue, 12 Feb 2008 23:29:19 +0000 |
parents | 73661ddc7ac7 |
children | 962e043b10b5 |
comparison
equal
deleted
inserted
replaced
80112:c0a87fab3914 | 80113:5b4e8ae6e892 |
---|---|
1454 splash screen in another window." | 1454 splash screen in another window." |
1455 (let ((splash-buffer (get-buffer-create "*GNU Emacs*"))) | 1455 (let ((splash-buffer (get-buffer-create "*GNU Emacs*"))) |
1456 (with-current-buffer splash-buffer | 1456 (with-current-buffer splash-buffer |
1457 (let ((inhibit-read-only t)) | 1457 (let ((inhibit-read-only t)) |
1458 (erase-buffer) | 1458 (erase-buffer) |
1459 (setq default-directory command-line-default-directory) | |
1459 (make-local-variable 'startup-screen-inhibit-startup-screen) | 1460 (make-local-variable 'startup-screen-inhibit-startup-screen) |
1460 (if pure-space-overflow | 1461 (if pure-space-overflow |
1461 (insert pure-space-overflow-message)) | 1462 (insert pure-space-overflow-message)) |
1462 (unless concise | 1463 (unless concise |
1463 (fancy-splash-head)) | 1464 (fancy-splash-head)) |
1552 after Emacs starts. If STARTUP is nil, display the About screen." | 1553 after Emacs starts. If STARTUP is nil, display the About screen." |
1553 (let ((prev-buffer (current-buffer))) | 1554 (let ((prev-buffer (current-buffer))) |
1554 (with-current-buffer (get-buffer-create "*About GNU Emacs*") | 1555 (with-current-buffer (get-buffer-create "*About GNU Emacs*") |
1555 (setq buffer-read-only nil) | 1556 (setq buffer-read-only nil) |
1556 (erase-buffer) | 1557 (erase-buffer) |
1558 (setq default-directory command-line-default-directory) | |
1557 (set (make-local-variable 'tab-width) 8) | 1559 (set (make-local-variable 'tab-width) 8) |
1558 (if (not startup) | 1560 (if (not startup) |
1559 (set (make-local-variable 'mode-line-format) | 1561 (set (make-local-variable 'mode-line-format) |
1560 (propertize "---- %b %-" 'face 'mode-line-buffer-id))) | 1562 (propertize "---- %b %-" 'face 'mode-line-buffer-id))) |
1561 | 1563 |