diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2017-01-28 12:06:41 -0500 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-01-28 12:06:41 -0500 |
| commit | c7bbddf0eae653b23430c426cb75e0289e9f3a29 (patch) | |
| tree | 0be882e19ba442a05a50e7d6a7558af82cef87c5 | |
| parent | f83363d30e1c78c228e57fe1a5e9ad8faf89f238 (diff) | |
| download | emacs-c7bbddf0eae653b23430c426cb75e0289e9f3a29.tar.gz | |
Use access-file in EWW to check before downloading a file
* lisp/net/eww.el (eww-download): Check accessibility of
eww-download-directory to prevent starting a download that will fail
to write.
* src/fileio.c (Faccess_file): Clarify the use of string argument in
the docstring.
| -rw-r--r-- | lisp/net/eww.el | 1 | ||||
| -rw-r--r-- | src/fileio.c | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 0282fe68e6a..f7e06341443 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -1501,6 +1501,7 @@ Differences in #targets are ignored." (defun eww-download () "Download URL under point to `eww-download-directory'." (interactive) + (access-file eww-download-directory "Download failed") (let ((url (get-text-property (point) 'shr-url))) (if (not url) (message "No URL under point") diff --git a/src/fileio.c b/src/fileio.c index 81eaa771189..a46cfc7ac69 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -2682,7 +2682,7 @@ DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0, DEFUN ("access-file", Faccess_file, Saccess_file, 2, 2, 0, doc: /* Access file FILENAME, and get an error if that does not work. -The second argument STRING is used in the error message. +The second argument STRING is prepended to the error message. If there is no error, returns nil. */) (Lisp_Object filename, Lisp_Object string) { |