From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 10 Oct 2006 00:33:02 +0000 (+0000)
Subject: * minibuf.c (temp_echo_area_glyphs): Sit for
X-Git-Tag: emacs-pretest-22.0.90~175
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=394ccd7d8bf47c9ecef244631cfda61e065e777d;p=emacs.git

* minibuf.c (temp_echo_area_glyphs): Sit for
	`minibuffer-message-timeout' seconds.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 91e7fff4347..1a6c151b4b1 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-09  Chong Yidong  <cyd@stupidchicken.com>
+
+	* minibuf.c (temp_echo_area_glyphs): Sit for
+	`minibuffer-message-timeout' seconds.
+
 2006-10-08  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
 	* macterm.c (mac_draw_image_string, mac_draw_image_string_16): Add
diff --git a/src/minibuf.c b/src/minibuf.c
index ea065a6b4e8..19b06acc471 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -2692,6 +2692,8 @@ If no minibuffer is active, return nil.  */)
    that has no possible completions, and other quick, unobtrusive
    messages.  */
 
+extern Lisp_Object Vminibuffer_message_timeout;
+
 void
 temp_echo_area_glyphs (string)
      Lisp_Object string;
@@ -2710,7 +2712,15 @@ temp_echo_area_glyphs (string)
   insert_from_string (string, 0, 0, SCHARS (string), SBYTES (string), 0);
   SET_PT_BOTH (opoint, opoint_byte);
   Vinhibit_quit = Qt;
-  sit_for (make_number (2), 0, 2);
+
+  if (NUMBERP (Vminibuffer_message_timeout))
+    {
+      if (Fgtr (Vminibuffer_message_timeout, make_number (0)))
+	sit_for (Vminibuffer_message_timeout, 0, 2);
+    }
+  else
+    sit_for (make_number (-1), 0, 2);
+
   del_range_both (osize, osize_byte, ZV, ZV_BYTE, 1);
   SET_PT_BOTH (opoint, opoint_byte);
   if (!NILP (Vquit_flag))