Mercurial > emacs

comparison src/macfns.c @ 72772:caccf1b92ded

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fx_file_dialog): Remove unused variable `f'. Call check_mac.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Sun, 10 Sep 2006 05:51:45 +0000
parents d51cd08a3471
children 1dc889aea3bf
comparison
equal deleted inserted replaced
72771:0bddfbc5a0a5 72772:caccf1b92ded
4343 specified. Ensure that file exists if MUSTMATCH is non-nil. 4343 specified. Ensure that file exists if MUSTMATCH is non-nil.
4344 If ONLY-DIR-P is non-nil, the user can only select directories. */) 4344 If ONLY-DIR-P is non-nil, the user can only select directories. */)
4345 (prompt, dir, default_filename, mustmatch, only_dir_p) 4345 (prompt, dir, default_filename, mustmatch, only_dir_p)
4346 Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p; 4346 Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p;
4347 { 4347 {
4348 struct frame *f = SELECTED_FRAME ();
4349 Lisp_Object file = Qnil; 4348 Lisp_Object file = Qnil;
4350 int count = SPECPDL_INDEX (); 4349 int count = SPECPDL_INDEX ();
4351 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6; 4350 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
4352 char filename[MAXPATHLEN]; 4351 char filename[MAXPATHLEN];
4353 static NavEventUPP mac_nav_event_callbackUPP = NULL; 4352 static NavEventUPP mac_nav_event_callbackUPP = NULL;
4353
4354 check_mac ();
4354 4355
4355 GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p); 4356 GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p);
4356 CHECK_STRING (prompt); 4357 CHECK_STRING (prompt);
4357 CHECK_STRING (dir); 4358 CHECK_STRING (dir);
4358 4359