procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix duplicate defcustom in eww.el

Browse source 
* lisp/net/eww.el (eww-default-download-directory): Renamed back
from 'eww-download-directory'; all users changed.  Doc fix.
(Bug#62531)
This commit is contained in:
Eli Zaretskii 2023-03-29 21:27:09 +03:00
parent e45bd10a3d
commit 09fece5722
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/eww.el
View file

@ -64,8 +64,9 @@ The action to be taken can be further customized via
:version "28.1" :version "28.1"
:type 'regexp) :type 'regexp)
(defcustom eww-download-directory "~/Downloads/" (defcustom eww-default-download-directory "~/Downloads/"
"Default directory where `eww' saves downloaded files." "Default directory where `eww' saves downloaded files.
Used by `eww--download-directory', which see."
:version "29.1" :version "29.1"
:group 'eww :group 'eww
:type 'directory) :type 'directory)
@ -76,10 +77,10 @@ The default is specified by `eww-download-directory'; however,
if that directory doesn't exist and the DOWNLOAD XDG user directory if that directory doesn't exist and the DOWNLOAD XDG user directory
is defined, use the latter instead." is defined, use the latter instead."
(or (and (file-exists-p eww-download-directory) (or (and (file-exists-p eww-download-directory)
eww-download-directory) eww-default-download-directory)
(when-let ((dir (xdg-user-dir "DOWNLOAD"))) (when-let ((dir (xdg-user-dir "DOWNLOAD")))
(file-name-as-directory dir)) (file-name-as-directory dir))
eww-download-directory)) eww-default-download-directory))
(defcustom eww-download-directory 'eww--download-directory (defcustom eww-download-directory 'eww--download-directory
"Directory where files will downloaded. "Directory where files will downloaded.