Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
03d6484e
Commit
03d6484e
authored
Nov 29, 2003
by
Jan Djärv
Browse files
Add variable use-file-dialog to control use of file dialogs.
parent
442d3fd0
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
26 additions
and
0 deletions
+26
-0
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/cus-start.el
lisp/cus-start.el
+1
-0
src/ChangeLog
src/ChangeLog
+8
-0
src/fileio.c
src/fileio.c
+2
-0
src/fns.c
src/fns.c
+11
-0
No files found.
lisp/ChangeLog
View file @
03d6484e
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.
...
...
lisp/cus-start.el
View file @
03d6484e
...
...
@@ -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"
...
...
src/ChangeLog
View file @
03d6484e
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.
...
...
src/fileio.c
View file @
03d6484e
...
...
@@ -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. */
...
...
src/fns.c
View file @
03d6484e
...
...
@@ -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);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment