diff options
Diffstat (limited to 'lisp/net/eww.el')
| -rw-r--r-- | lisp/net/eww.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 3c16942e7c0..4dbd5de2ef7 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -363,7 +363,9 @@ new buffer instead of reusing the default EWW buffer. If BUFFER, the data to be rendered is in that buffer. In that case, this function doesn't actually fetch URL. BUFFER will be -killed after rendering." +killed after rendering. + +For more information, see Info node `(eww) Top'." (interactive (let ((uris (eww-suggested-uris))) (list (read-string (format-prompt "Enter URL or keywords" @@ -932,9 +934,9 @@ The renaming scheme is performed in accordance with (defun eww-links-at-point () "Return list of URIs, if any, linked at point." - (remq nil - (list (get-text-property (point) 'shr-url) - (get-text-property (point) 'image-url)))) + (seq-filter #'stringp + (list (get-text-property (point) 'shr-url) + (get-text-property (point) 'image-url)))) (defun eww-view-source () "View the HTML source code of the current page." @@ -1207,6 +1209,8 @@ instead of `browse-url-new-window-flag'." (let ((url-allow-non-local-files t)) (eww url))) +(function-put 'eww-browse-url 'browse-url-browser-kind 'internal) + (defun eww-back-url () "Go to the previously displayed page." (interactive nil eww-mode) |