mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Add variable use-file-dialog to control use of file dialogs.

Browse source
This commit is contained in:
Jan Djärv 2003-11-29 10:44:36 +00:00
parent 442d3fd048
commit 03d6484ea4
5 changed files with 26 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2003-11-29 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* cus-start.el (all): Add use-file-dialog.
2003-11-27 Kim F. Storm <storm@cua.dk>
* subr.el (posn-object-x-y): New defun.

1
lisp/cus-start.el
View file

@ -123,6 +123,7 @@
(insert-default-directory minibuffer boolean)
;; fns.c
(use-dialog-box menu boolean "21.1")
(use-file-dialog menu boolean "21.4")
;; frame.c
(default-frame-alist frames
(repeat (cons :format "%v"

8
src/ChangeLog
View file

@ -1,3 +1,11 @@
2003-11-29 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* fileio.c (Fread_file_name): Check use_file_dialog also before
calling Fx_file_dialog.
* fns.c: use_file_dialog: New variable.
(syms_of_fns): DEFVAR_BOOL use-file-dialog.
2003-11-29 Kim F. Storm <storm@cua.dk>
* msdos.c (Qcursor_type, Qbar, Qhbar): Declare extern.

2
src/fileio.c
View file

@ -134,6 +134,7 @@ extern int errno;
#include "commands.h"
extern int use_dialog_box;
extern int use_file_dialog;
#ifndef O_WRONLY
#define O_WRONLY 1
@ -6212,6 +6213,7 @@ provides a file dialog box. */)
#if defined (USE_MOTIF) || defined (HAVE_NTGUI) || defined (USE_GTK)
if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
&& use_dialog_box
&& use_file_dialog
&& have_menus_p ())
{
/* If DIR contains a file name, split it. */

11
src/fns.c
View file

@ -59,6 +59,10 @@ Boston, MA 02111-1307, USA. */
asked by mouse commands. */
int use_dialog_box;
/* Nonzero enables use of a file dialog for file name
questions asked by mouse commands. */
int use_file_dialog;
extern int minibuffer_auto_raise;
extern Lisp_Object minibuf_window;
extern Lisp_Object Vlocale_coding_system;
@ -5638,6 +5642,13 @@ This applies to `y-or-n-p' and `yes-or-no-p' questions asked by commands
invoked by mouse clicks and mouse menu items. */);
use_dialog_box = 1;
DEFVAR_BOOL ("use-file-dialog", &use_file_dialog,
doc: /* *Non-nil means mouse commands use a file dialog to ask for files.
This applies to commands from menus and tool bar buttons. The value of
`use-dialog-box' takes precedence over this variable, so a file dialog is only
used if both `use-dialog-box' and this variable are non-nil. */);
use_file_dialog = 1;
defsubr (&Sidentity);
defsubr (&Srandom);
defsubr (&Slength);