procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fmessage_box): If the frame is not under a window

Browse source 
system, output the message in the echo area.
This commit is contained in:
Eli Zaretskii 2001-06-15 11:31:11 +00:00
parent 17a37d874c
commit 0ae833485b
2 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2001-06-15 Eli Zaretskii <eliz@is.elta.co.il>
* editfns.c (Fmessage_box): If the frame is not under a window
system, output the message in the echo area.
2001-06-14 Richard M. Stallman <rms@gnu.org>
* xdisp.c (try_window_id): When EOB is visible, don't treat

14
src/editfns.c
View file

@ -38,6 +38,7 @@ Boston, MA 02111-1307, USA. */
#include "buffer.h"
#include "charset.h"
#include "coding.h"
#include "frame.h"
#include "window.h"
#include "systime.h"
@ -2915,16 +2916,12 @@ use `save-excursion' outermost:\n\
return unbind_to (count, val);
}
#ifndef HAVE_MENUS
/* Buffer for the most recent text displayed by Fmessage. */
/* Buffer for the most recent text displayed by Fmessage_box. */
static char *message_text;
/* Allocated length of that buffer. */
static int message_length;
#endif /* not HAVE_MENUS */
DEFUN ("message", Fmessage, Smessage, 1, MANY, 0,
"Print a one-line message at the bottom of the screen.\n\
The first argument is a format control string, and the rest are data\n\
@ -2972,6 +2969,10 @@ minibuffer contents show.")
register Lisp_Object val;
val = Fformat (nargs, args);
#ifdef HAVE_MENUS
/* The MS-DOS frames support popup menus even though they are
not FRAME_WINDOW_P. */
if (FRAME_WINDOW_P (XFRAME (selected_frame))
|| FRAME_MSDOS_P (XFRAME (selected_frame)))
{
Lisp_Object pane, menu, obj;
struct gcpro gcpro1;
@ -2982,7 +2983,7 @@ minibuffer contents show.")
UNGCPRO;
return val;
}
#else /* not HAVE_MENUS */
#endif /* HAVE_MENUS */
/* Copy the data so that it won't move when we GC. */
if (! message_text)
{
@ -2998,7 +2999,6 @@ minibuffer contents show.")
message2 (message_text, STRING_BYTES (XSTRING (val)),
STRING_MULTIBYTE (val));
return val;
#endif /* not HAVE_MENUS */
}
}
#ifdef HAVE_MENUS