Mercurial > emacs
comparison src/xfns.c @ 72774:e00572984112
(Fx_file_dialog): Call check_x.
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
---|---|
date | Sun, 10 Sep 2006 05:52:09 +0000 |
parents | 892ea79efee6 |
children | 049cdc4ea1a1 |
comparison
equal
deleted
inserted
replaced
72773:15d914de92fd | 72774:e00572984112 |
---|---|
5326 extern XtAppContext Xt_app_con; | 5326 extern XtAppContext Xt_app_con; |
5327 XmString dir_xmstring, pattern_xmstring; | 5327 XmString dir_xmstring, pattern_xmstring; |
5328 int count = SPECPDL_INDEX (); | 5328 int count = SPECPDL_INDEX (); |
5329 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6; | 5329 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6; |
5330 | 5330 |
5331 check_x (); | |
5332 | |
5331 GCPRO6 (prompt, dir, default_filename, mustmatch, only_dir_p, file); | 5333 GCPRO6 (prompt, dir, default_filename, mustmatch, only_dir_p, file); |
5332 | 5334 |
5333 if (popup_activated ()) | 5335 if (popup_activated ()) |
5334 error ("Trying to use a menu from within a menu-entry"); | 5336 error ("Trying to use a menu from within a menu-entry"); |
5335 | 5337 |
5492 Lisp_Object file = Qnil; | 5494 Lisp_Object file = Qnil; |
5493 Lisp_Object decoded_file; | 5495 Lisp_Object decoded_file; |
5494 int count = SPECPDL_INDEX (); | 5496 int count = SPECPDL_INDEX (); |
5495 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6; | 5497 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6; |
5496 char *cdef_file; | 5498 char *cdef_file; |
5499 | |
5500 check_x (); | |
5497 | 5501 |
5498 GCPRO6 (prompt, dir, default_filename, mustmatch, only_dir_p, file); | 5502 GCPRO6 (prompt, dir, default_filename, mustmatch, only_dir_p, file); |
5499 | 5503 |
5500 if (popup_activated ()) | 5504 if (popup_activated ()) |
5501 error ("Trying to use a menu from within a menu-entry"); | 5505 error ("Trying to use a menu from within a menu-entry"); |