From 848c7757ae7848dd4572a9eba1d4140256d29329 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 21 Feb 2001 14:08:38 +0000 Subject: [PATCH] (fancy-splash-screens): Use display-hourglass instead of display-busy-cursor. --- lisp/startup.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 489f7775a3e..a759a409dbb 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1,6 +1,6 @@ ;;; startup.el --- process Emacs shell arguments -;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000 +;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 2001 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -1134,7 +1134,9 @@ where FACE is a valid face specification, as it can be used with (defun fancy-splash-default-action () "Default action for events in the splash screen buffer." (interactive) + (setq hansi last-nonmenu-event) (push last-command-event unread-command-events) + (setq unread (copy-sequence unread-command-events)) (throw 'exit nil)) @@ -1143,7 +1145,7 @@ where FACE is a valid face specification, as it can be used with (setq fancy-splash-help-echo (startup-echo-area-message)) (switch-to-buffer "GNU Emacs") (setq tab-width 20) - (let ((old-busy-cursor display-busy-cursor) + (let ((old-hourglass display-hourglass) (splash-buffer (current-buffer)) timer) (catch 'stop-splashing @@ -1153,7 +1155,7 @@ where FACE is a valid face specification, as it can be used with (define-key map [t] 'fancy-splash-default-action) (define-key map [mouse-movement] 'ignore) (setq cursor-type nil - display-busy-cursor nil + display-hourglass nil buffer-undo-list t mode-line-format (propertize "---- %b %-" 'face '(:weight bold)) @@ -1164,8 +1166,10 @@ where FACE is a valid face specification, as it can be used with splash-buffer)) (recursive-edit)) (cancel-timer timer) - (setq display-busy-cursor old-busy-cursor) - (kill-buffer splash-buffer))))) + (setq display-hourglass old-hourglass) + (kill-buffer splash-buffer) + (setq hansi2 last-nonmenu-event) + )))) (defun use-fancy-splash-screens-p () -- 2.39.5