Mercurial > emacs
comparison lisp/startup.el @ 32616:21ca5e42d4f6
(fancy-splash-screens): Set buffer-undo-list to t.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 18 Oct 2000 14:23:10 +0000 |
| parents | b41e3ebd087e |
| children | 5bc952938b50 |
comparison
equal
deleted
inserted
replaced
| 32615:5f6178a60e6b | 32616:21ca5e42d4f6 |
|---|---|
| 1012 (use-local-map map) | 1012 (use-local-map map) |
| 1013 (define-key map [t] 'fancy-splash-default-action) | 1013 (define-key map [t] 'fancy-splash-default-action) |
| 1014 (define-key map [mouse-movement] 'ignore) | 1014 (define-key map [mouse-movement] 'ignore) |
| 1015 (setq cursor-type nil | 1015 (setq cursor-type nil |
| 1016 display-busy-cursor nil | 1016 display-busy-cursor nil |
| 1017 buffer-undo-list t | |
| 1017 mode-line-format | 1018 mode-line-format |
| 1018 (propertize "---- %b %-" 'face '(:weight bold)) | 1019 (propertize "---- %b %-" 'face '(:weight bold)) |
| 1019 timer (run-with-timer 0 5 #'fancy-splash-screens-1 | 1020 timer (run-with-timer 0 5 #'fancy-splash-screens-1 |
| 1020 splash-buffer)) | 1021 splash-buffer)) |
| 1021 (recursive-edit)) | 1022 (recursive-edit)) |
| 1022 (cancel-timer timer) | 1023 (cancel-timer timer) |
| 1023 (remove-hook 'pre-command-hook 'fancy-splash-pre-command) | |
| 1024 (setq display-busy-cursor old-busy-cursor) | 1024 (setq display-busy-cursor old-busy-cursor) |
| 1025 (kill-buffer splash-buffer)))) | 1025 (kill-buffer splash-buffer)))) |
| 1026 | 1026 |
| 1027 | 1027 |
| 1028 (defun startup-echo-area-message () | 1028 (defun startup-echo-area-message () |