mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(Fy_or_n_p): Don't use dialog box if not an X frame.

Browse Source 
(Fyes_or_no_p): Likewise.
This commit is contained in:
Richard M. Stallman 1994-06-05 11:55:23 +00:00
parent 42b31bf937
commit 588064ce4e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/fns.c
View File

@ -1132,7 +1132,8 @@ Also accepts Space to mean yes, or Delete to mean no.")
while (1)
{
#ifdef HAVE_X_MENU
if (NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
&& using_x_p ())
{
Lisp_Object pane, menu;
pane = Fcons (Fcons (build_string ("Yes"), Qt),
@ -1233,7 +1234,8 @@ and can edit it until it as been confirmed.")
CHECK_STRING (prompt, 0);
#ifdef HAVE_X_MENU
if (NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
&& using_x_p ())
{
Lisp_Object pane, menu, obj;
pane = Fcons (Fcons (build_string ("Yes"), Qt),