From e0b4e9ece907ca86410835d2cd374917830eabae Mon Sep 17 00:00:00 2001
From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 3 Jan 2025 17:32:58 +0100
Subject: [PATCH] Add more text-based browser alternatives

* lisp/net/browse-url.el (browse-url-text-browser): Add more
alternatives.
---
 lisp/net/browse-url.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index cf927d76b2b..b9610fec150 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -482,10 +482,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"))