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

diff --git a/lisp/startup.el b/lisp/startup.el
index d1f6a0c17accf0f2955a17a6fe442915f374f4b5..0c0dffa32f6f35c0842eb3bb3aeec7d9ef3ad735 100644 (file)
--- 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.