Mercurial > emacs
comparison lisp/startup.el @ 76095:85a1c1106f69
(fancy-splash-screens): Make cursor-type buffer-local in splash
screen.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 23 Feb 2007 16:26:28 +0000 |
| parents | b391b0c782f4 |
| children | 99573326a46c |
comparison
equal
deleted
inserted
replaced
| 76094:7301ce1c18e8 | 76095:85a1c1106f69 |
|---|---|
| 1386 (frame (fancy-splash-frame)) | 1386 (frame (fancy-splash-frame)) |
| 1387 timer) | 1387 timer) |
| 1388 (save-selected-window | 1388 (save-selected-window |
| 1389 (select-frame frame) | 1389 (select-frame frame) |
| 1390 (switch-to-buffer " GNU Emacs") | 1390 (switch-to-buffer " GNU Emacs") |
| 1391 (make-local-variable 'cursor-type) | |
| 1391 (setq splash-buffer (current-buffer)) | 1392 (setq splash-buffer (current-buffer)) |
| 1392 (catch 'stop-splashing | 1393 (catch 'stop-splashing |
| 1393 (unwind-protect | 1394 (unwind-protect |
| 1394 (let ((map (make-sparse-keymap)) | 1395 (let ((map (make-sparse-keymap)) |
| 1395 (cursor-type nil)) | 1396 (cursor-type nil)) |