Mercurial > hg > xemacs-beta

comparison src/gui-x.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 8eaf7971accc
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
214 wv->next = (widget_value *) 0xDEADBEEF; 214 wv->next = (widget_value *) 0xDEADBEEF;
215 } 215 }
216 free_widget_value (wv); 216 free_widget_value (wv);
217 } 217 }
218 218
219 DEFUN ("popup-up-p", Fpopup_up_p, Spopup_up_p, 0, 0, 0 /* 219 DEFUN ("popup-up-p", Fpopup_up_p, 0, 0, 0, /*
220 Return t if a popup menu or dialog box is up, nil otherwise. 220 Return t if a popup menu or dialog box is up, nil otherwise.
221 See `popup-menu' and `popup-dialog-box'. 221 See `popup-menu' and `popup-dialog-box'.
222 */ ) 222 */
223 () 223 ())
224 { 224 {
225 return popup_up_p ? Qt : Qnil; 225 return popup_up_p ? Qt : Qnil;
226 } 226 }
227 227
228 /* The following is actually called from somewhere within XtDispatchEvent(), 228 /* The following is actually called from somewhere within XtDispatchEvent(),
592 592
593 void 593 void
594 syms_of_gui_x (void) 594 syms_of_gui_x (void)
595 { 595 {
596 #ifdef HAVE_POPUPS 596 #ifdef HAVE_POPUPS
597 defsubr (&Spopup_up_p); 597 DEFSUBR (Fpopup_up_p);
598 defsymbol (&Qmenu_no_selection_hook, "menu-no-selection-hook"); 598 defsymbol (&Qmenu_no_selection_hook, "menu-no-selection-hook");
599 #endif 599 #endif
600 } 600 }
601 601
602 void 602 void