aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2019-02-08 09:53:32 +0200
committerEli Zaretskii2019-02-08 09:53:32 +0200
commit24905e92179c2ee8cd02c26b4a7058fbd238ece7 (patch)
tree3b894962e3be56f2b8791807166f9822ccadccfc
parent51e6e0694acb6ecb54962d702193ec5b21e57128 (diff)
downloademacs-24905e92179c2ee8cd02c26b4a7058fbd238ece7.tar.gz
emacs-24905e92179c2ee8cd02c26b4a7058fbd238ece7.zip
Minor fixes for last change
* etc/NEWS: Announce the change in EWW download behavior. * lisp/net/eww.el (eww-download): Doc fix. (Bug#34291)
-rw-r--r--etc/NEWS5
-rw-r--r--lisp/net/eww.el2
2 files changed, 6 insertions, 1 deletions
diff --git a/etc/NEWS b/etc/NEWS
index 7ee49bf6b54..75c8dc0b8e0 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -654,6 +654,11 @@ and its value has been changed to Duck Duck Go.
654 654
655** eww/shr 655** eww/shr
656 656
657+++
658*** The 'd' ('eww-download') command now falls back to current page's URL.
659If this command is invoked with no URL at point, it now downloads the
660current page instead of signaling an error.
661
657*** When opening external links in eww/shr (typically with the 662*** When opening external links in eww/shr (typically with the
658'C-u RET' keystroke on a link), the link will be flashed with the new 663'C-u RET' keystroke on a link), the link will be flashed with the new
659'shr-selected-link' face to give the user feedback that the command 664'shr-selected-link' face to give the user feedback that the command
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 0c8bffa579b..a3f22aeb8a0 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1532,7 +1532,7 @@ Differences in #targets are ignored."
1532 1532
1533(defun eww-download () 1533(defun eww-download ()
1534 "Download URL to `eww-download-directory'. 1534 "Download URL to `eww-download-directory'.
1535Use link under point if there is one, else the current page URL." 1535Use link at point if there is one, else the current page's URL."
1536 (interactive) 1536 (interactive)
1537 (access-file eww-download-directory "Download failed") 1537 (access-file eww-download-directory "Download failed")
1538 (let ((url (or (get-text-property (point) 'shr-url) 1538 (let ((url (or (get-text-property (point) 'shr-url)