mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

Make browse-url-default-browser fall back to EWW

Browse source 
* lisp/net/browse-url.el (browse-url-default-browser): Fall back
to EWW.
This commit is contained in:
Stefan Kangas 2022-07-07 13:43:53 +02:00
parent 2a8d083607
commit 96bf08a0ec
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/net/browse-url.el
View file

@ -1031,12 +1031,11 @@ instead of `browse-url-new-window-flag'."
((executable-find browse-url-chrome-program) 'browse-url-chrome) ((executable-find browse-url-chrome-program) 'browse-url-chrome)
((executable-find browse-url-webpositive-program) 'browse-url-webpositive) ((executable-find browse-url-webpositive-program) 'browse-url-webpositive)
((executable-find browse-url-xterm-program) 'browse-url-text-xterm) ((executable-find browse-url-xterm-program) 'browse-url-text-xterm)
(t (t #'eww-browse-url))
(lambda (&rest _ignore) (error "No usable browser found"))))
url args)) url args))
(function-put 'browse-url-default-browser 'browse-url-browser-kind (function-put 'browse-url-default-browser 'browse-url-browser-kind
;; Well, most probably external if we ignore w3. ;; Well, most probably external if we ignore EWW.
'external) 'external)
(defun browse-url-can-use-xdg-open () (defun browse-url-can-use-xdg-open ()