Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b272d624
Commit
b272d624
authored
Apr 24, 2000
by
Gerd Moellmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fdo_auto_save): Create directories for auto-save
list file if necessary.
parent
fa78f71b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
1 deletion
+10
-1
src/fileio.c
src/fileio.c
+10
-1
No files found.
src/fileio.c
View file @
b272d624
...
...
@@ -299,6 +299,7 @@ Lisp_Object Qunhandled_file_name_directory;
Lisp_Object
Qfile_name_as_directory
;
Lisp_Object
Qcopy_file
;
Lisp_Object
Qmake_directory_internal
;
Lisp_Object
Qmake_directory
;
Lisp_Object
Qdelete_directory
;
Lisp_Object
Qdelete_file
;
Lisp_Object
Qrename_file
;
...
...
@@ -5225,8 +5226,14 @@ A non-nil CURRENT-ONLY argument means save only current buffer.")
if
(
STRINGP
(
Vauto_save_list_file_name
))
{
Lisp_Object
listfile
;
Lisp_Object
listfile
,
dir
;
listfile
=
Fexpand_file_name
(
Vauto_save_list_file_name
,
Qnil
);
dir
=
Ffile_name_directory
(
listfile
);
if
(
NILP
(
Ffile_directory_p
(
dir
)))
call2
(
Qmake_directory
,
dir
,
Qt
);
stream
=
fopen
(
XSTRING
(
listfile
)
->
data
,
"w"
);
if
(
stream
!=
NULL
)
{
...
...
@@ -5700,6 +5707,7 @@ syms_of_fileio ()
Qfile_name_as_directory
=
intern
(
"file-name-as-directory"
);
Qcopy_file
=
intern
(
"copy-file"
);
Qmake_directory_internal
=
intern
(
"make-directory-internal"
);
Qmake_directory
=
intern
(
"make-directory"
);
Qdelete_directory
=
intern
(
"delete-directory"
);
Qdelete_file
=
intern
(
"delete-file"
);
Qrename_file
=
intern
(
"rename-file"
);
...
...
@@ -5731,6 +5739,7 @@ syms_of_fileio ()
staticpro
(
&
Qfile_name_as_directory
);
staticpro
(
&
Qcopy_file
);
staticpro
(
&
Qmake_directory_internal
);
staticpro
(
&
Qmake_directory
);
staticpro
(
&
Qdelete_directory
);
staticpro
(
&
Qdelete_file
);
staticpro
(
&
Qrename_file
);
...
...
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