From 754a29c978aaa227760634996c2cf4307efafe31 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 18 Oct 2000 14:23:10 +0000 Subject: [PATCH] (fancy-splash-screens): Set buffer-undo-list to t. --- lisp/startup.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index e5cb37fd082..ba4d043edb3 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1014,13 +1014,13 @@ where FACE is a valid face specification, as it can be used with (define-key map [mouse-movement] 'ignore) (setq cursor-type nil display-busy-cursor nil + buffer-undo-list t mode-line-format (propertize "---- %b %-" 'face '(:weight bold)) timer (run-with-timer 0 5 #'fancy-splash-screens-1 splash-buffer)) (recursive-edit)) (cancel-timer timer) - (remove-hook 'pre-command-hook 'fancy-splash-pre-command) (setq display-busy-cursor old-busy-cursor) (kill-buffer splash-buffer)))) -- 2.39.5