From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 3 Jan 2025 16:32:58 +0000 (+0100)
Subject: Add more text-based browser alternatives
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aada623790786299ad850643ca2c98d7bd542b30;p=emacs.git

Add more text-based browser alternatives

* lisp/net/browse-url.el (browse-url-text-browser): Add more
alternatives.

(cherry picked from commit e0b4e9ece907ca86410835d2cd374917830eabae)
---

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 9f322e6df88..1a0612bba89 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -481,10 +481,14 @@ You might want to set this to somewhere with restricted read permissions
 for privacy's sake."
   :type 'string)
 
-(defcustom browse-url-text-browser "lynx"
+(defcustom browse-url-text-browser
+  (cond ((executable-find "lynx") "lynx")
+        ((executable-find "links") "links")
+        ((executable-find "elinks") "elinks")
+        ("lynx"))
   "The name of the text browser to invoke."
   :type 'string
-  :version "23.1")
+  :version "31.1")
 
 (defcustom browse-url-text-emacs-args (and (not window-system)
 					   '("-show_cursor"))