Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1691b32b
Commit
1691b32b
authored
May 22, 1994
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fdelete_directory): Allow dir names as well as file names.
parent
bb55b64d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
src/fileio.c
src/fileio.c
+2
-2
No files found.
src/fileio.c
View file @
1691b32b
...
...
@@ -1856,7 +1856,7 @@ DEFUN ("make-directory-internal", Fmake_directory_internal,
}
DEFUN
(
"delete-directory"
,
Fdelete_directory
,
Sdelete_directory
,
1
,
1
,
"FDelete directory: "
,
"Delete a directory. One argument, a file name string."
)
"Delete a directory. One argument, a file name
or directory name
string."
)
(
dirname
)
Lisp_Object
dirname
;
{
...
...
@@ -1864,7 +1864,7 @@ DEFUN ("delete-directory", Fdelete_directory, Sdelete_directory, 1, 1, "FDelete
Lisp_Object
handler
;
CHECK_STRING
(
dirname
,
0
);
dirname
=
Fexpand_file_name
(
dirname
,
Qnil
);
dirname
=
Fdirectory_file_name
(
Fexpand_file_name
(
dirname
,
Qnil
)
)
;
dir
=
XSTRING
(
dirname
)
->
data
;
handler
=
Ffind_file_name_handler
(
dirname
,
Qdelete_directory
);
...
...
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