Mercurial > hg > xemacs-beta

diff lisp/simple.el @ 1703:f561c3904bb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-09-20 01:46:53 by youngs] 2003-09-20 Ilya N. Golubev <gin@mo.msk.ru> * simple.el (raw-append-message): Allow user to specify alternative function for displaying message. (redisplay-echo-area-function): New. (clear-message): Allow user to specify function for finishing message display. (undisplay-echo-area-function): New. 2003-09-20 Ilya N. Golubev <gin@mo.msk.ru> * xemacs/mini.texi (Minibuffer): Add customizing message display reference. * lispref/display.texi (Customizing Message Display): New, describe `redisplay-echo-area-function', `undisplay-echo-area-function', `minibuffer-echo-wait-function'. (The Echo Area): Add menu. 2003-09-20 Ilya N. Golubev <gin@mo.msk.ru> * cmdloop.c (Fcommand_loop_1): Allow specifying elisp function for waiting user input while displaying message while in minibuffer. (Vminibuffer_echo_wait_function): New, associated variable... (vars_of_cmdloop): ... initialize it.
author youngs
date Sat, 20 Sep 2003 01:47:03 +0000
parents 01c57eb70ae9
children 292ead991a10
line wrap: on
line diff
--- a/lisp/simple.el	Sat Sep 20 01:25:48 2003 +0000
+++ b/lisp/simple.el	Sat Sep 20 01:47:03 2003 +0000
@@ -4052,6 +4052,16 @@
   :type '(repeat (symbol :tag "Label"))
   :group 'log-message)
 
+(defcustom redisplay-echo-area-function 'redisplay-echo-area
+  "The function to call to display echo area buffer."
+:type 'function
+:group 'log-message)
+
+(defcustom undisplay-echo-area-function nil
+  "The function to call to undisplay echo area buffer."
+:type 'function
+:group 'log-message)
+
 ;;Subsumed by view-lossage
 ;; Not really, I'm adding it back by popular demand. -slb
 (defun show-message-log ()
@@ -4145,6 +4155,8 @@
     (remove-message label frame)
     (let ((inhibit-read-only t))
       (erase-buffer " *Echo Area*"))
+    (if undisplay-echo-area-function
+	(funcall undisplay-echo-area-function))
     ;; If outputting to the terminal, make sure we clear the left side.
     (when (or clear-stream
 	      (and (eq 'stream (frame-type frame))
@@ -4226,7 +4238,7 @@
       (if (not executing-kbd-macro)
 	  (if (eq 'stream (frame-type frame))
 	      (send-string-to-terminal message stdout-p (frame-device frame))
-	    (redisplay-echo-area))))))
+	    (funcall redisplay-echo-area-function))))))
 
 (defun display-message (label message &optional frame stdout-p)
   "Print a one-line message at the bottom of the frame.  First argument