diff options
Diffstat (limited to 'src/macfns.c')
| -rw-r--r-- | src/macfns.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/macfns.c b/src/macfns.c index 2d004be9962..e18d6089df7 100644 --- a/src/macfns.c +++ b/src/macfns.c | |||
| @@ -4342,13 +4342,14 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */) | |||
| 4342 | (prompt, dir, default_filename, mustmatch, only_dir_p) | 4342 | (prompt, dir, default_filename, mustmatch, only_dir_p) |
| 4343 | Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p; | 4343 | Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p; |
| 4344 | { | 4344 | { |
| 4345 | struct frame *f = SELECTED_FRAME (); | ||
| 4346 | Lisp_Object file = Qnil; | 4345 | Lisp_Object file = Qnil; |
| 4347 | int count = SPECPDL_INDEX (); | 4346 | int count = SPECPDL_INDEX (); |
| 4348 | struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6; | 4347 | struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6; |
| 4349 | char filename[MAXPATHLEN]; | 4348 | char filename[MAXPATHLEN]; |
| 4350 | static NavEventUPP mac_nav_event_callbackUPP = NULL; | 4349 | static NavEventUPP mac_nav_event_callbackUPP = NULL; |
| 4351 | 4350 | ||
| 4351 | check_mac (); | ||
| 4352 | |||
| 4352 | GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p); | 4353 | GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p); |
| 4353 | CHECK_STRING (prompt); | 4354 | CHECK_STRING (prompt); |
| 4354 | CHECK_STRING (dir); | 4355 | CHECK_STRING (dir); |