Mercurial > emacs
comparison lisp/startup.el @ 32150:70cdcabc7bbc
(fancy-splash-screens): Remove the code for debugging;
`(trace-to-stderr "EXITTT\n")'.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 05 Oct 2000 00:25:01 +0000 |
| parents | ad30e402b113 |
| children | c743497a67e3 |
comparison
equal
deleted
inserted
replaced
| 32149:504f15a7d36d | 32150:70cdcabc7bbc |
|---|---|
| 1035 (propertize "---- %b %-" 'face '(:weight bold)) | 1035 (propertize "---- %b %-" 'face '(:weight bold)) |
| 1036 timer (run-with-timer 0 5 #'fancy-splash-screens-1 | 1036 timer (run-with-timer 0 5 #'fancy-splash-screens-1 |
| 1037 splash-buffer)) | 1037 splash-buffer)) |
| 1038 (add-hook 'pre-command-hook 'fancy-splash-pre-command) | 1038 (add-hook 'pre-command-hook 'fancy-splash-pre-command) |
| 1039 (recursive-edit)) | 1039 (recursive-edit)) |
| 1040 (trace-to-stderr "EXITTT\n") | |
| 1041 (cancel-timer timer) | 1040 (cancel-timer timer) |
| 1042 (remove-hook 'pre-command-hook 'fancy-splash-pre-command) | 1041 (remove-hook 'pre-command-hook 'fancy-splash-pre-command) |
| 1043 (use-global-map old-global-map) | 1042 (use-global-map old-global-map) |
| 1044 (setq display-busy-cursor old-busy-cursor) | 1043 (setq display-busy-cursor old-busy-cursor) |
| 1045 (kill-buffer splash-buffer)))) | 1044 (kill-buffer splash-buffer)))) |