From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 26 Apr 2025 09:22:24 +0000 (+0200)
Subject: New variable 'startup-echo-area-message-function'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5808897b98f4f8c658a9be6d214a9fa790805da8;p=emacs.git

New variable 'startup-echo-area-message-function'
---

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.