From 5808897b98f4f8c658a9be6d214a9fa790805da8 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sat, 26 Apr 2025 11:22:24 +0200 Subject: [PATCH] New variable 'startup-echo-area-message-function' --- lisp/startup.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index d1f6a0c17ac..0c0dffa32f6 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -2370,10 +2370,12 @@ Type \\[describe-distribution] for information on ")) "For information about GNU Emacs and the GNU system, type \ \\[about-emacs]."))) +(defvar startup-echo-area-message-function #'startup-echo-area-message) + (defun display-startup-echo-area-message () (let ((resize-mini-windows t)) (or noninteractive inhibit-startup-echo-area-message - (message "%s" (startup-echo-area-message))))) + (message "%s" (funcall startup-echo-area-message-function))))) (defun display-startup-screen (&optional concise) "Display startup screen according to display. -- 2.39.5