summaryrefslogtreecommitdiff
path: root/src/editfns.c
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-12-28 16:48:52 +0000
committerRichard M. Stallman <rms@gnu.org>1995-12-28 16:48:52 +0000
commit9152edaca9bfb171bde5929e3bf7c34e11a6bfa6 (patch)
tree8d1307150f1c40acc0c412cb3f194491197a6315 /src/editfns.c
parent53f25270b416e0345fea2706eb6bb7fd5e8e8e4b (diff)
downloademacs-9152edaca9bfb171bde5929e3bf7c34e11a6bfa6.tar.gz
(Fmessage_box, Fmessage_or_box):
HAVE_X_MENU renamed to HAVE_MENUS. Doc fixes.
Diffstat (limited to 'src/editfns.c')
-rw-r--r--src/editfns.c28
1 files changed, 11 insertions, 17 deletions
diff --git a/src/editfns.c b/src/editfns.c
index ac0e140503a..e115300e24b 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1750,12 +1750,9 @@ minibuffer contents show.")
DEFUN ("message-box", Fmessage_box, Smessage_box, 1, MANY, 0,
"Display a message, in a dialog box if possible.\n\
If a dialog box is not available, use the echo area.\n\
-The first argument is a control string.\n\
-It may contain %s or %d or %c to print successive following arguments.\n\
-%s means print an argument as a string, %d means print as number in decimal,\n\
-%c means print a number as a single character.\n\
-The argument used by %s must be a string or a symbol;\n\
-the argument used by %d or %c must be a number.\n\
+The first argument is a format control string, and the rest are data\n\
+to be formatted under control of the string. See `format' for details.\n\
+\n\
If the first argument is nil, clear any existing message; let the\n\
minibuffer contents show.")
(nargs, args)
@@ -1771,7 +1768,7 @@ minibuffer contents show.")
{
register Lisp_Object val;
val = Fformat (nargs, args);
-#ifdef HAVE_X_MENU
+#ifdef HAVE_MENUS
{
Lisp_Object pane, menu, obj;
struct gcpro gcpro1;
@@ -1782,7 +1779,7 @@ minibuffer contents show.")
UNGCPRO;
return val;
}
-#else
+#else /* not HAVE_MENUS */
/* Copy the data so that it won't move when we GC. */
if (! message_text)
{
@@ -1797,30 +1794,27 @@ minibuffer contents show.")
bcopy (XSTRING (val)->data, message_text, XSTRING (val)->size);
message2 (message_text, XSTRING (val)->size);
return val;
-#endif
+#endif /* not HAVE_MENUS */
}
}
-#ifdef HAVE_X_MENU
+#ifdef HAVE_MENUS
extern Lisp_Object last_nonmenu_event;
#endif
+
DEFUN ("message-or-box", Fmessage_or_box, Smessage_or_box, 1, MANY, 0,
"Display a message in a dialog box or in the echo area.\n\
If this command was invoked with the mouse, use a dialog box.\n\
Otherwise, use the echo area.\n\
+The first argument is a format control string, and the rest are data\n\
+to be formatted under control of the string. See `format' for details.\n\
\n\
-The first argument is a control string.\n\
-It may contain %s or %d or %c to print successive following arguments.\n\
-%s means print an argument as a string, %d means print as number in decimal,\n\
-%c means print a number as a single character.\n\
-The argument used by %s must be a string or a symbol;\n\
-the argument used by %d or %c must be a number.\n\
If the first argument is nil, clear any existing message; let the\n\
minibuffer contents show.")
(nargs, args)
int nargs;
Lisp_Object *args;
{
-#ifdef HAVE_X_MENU
+#ifdef HAVE_MENUS
if (NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
return Fmessage_box (nargs, args);
#endif