From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 3 Jan 2025 03:08:44 +0000 (+0100)
Subject: Remove gnudoit support from browse-url.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41f95899c9f2bfc0874d53f643af10f8a2dcbb6f;p=emacs.git

Remove gnudoit support from browse-url.el

* lisp/net/browse-url.el (browse-url-gnudoit-program)
(browse-url-gnudoit-args, browse-url-w3-gnudoit): Remove support
for gnudoit, obsolete since Emacs 25.1.

(cherry picked from commit 597161fe1e4a62bd8a2c7b80b7219529ec5bc16d)
---

diff --git a/etc/NEWS b/etc/NEWS
index a61483eae29..3265c98c34d 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -230,12 +230,6 @@ a web browser to load them.  For example, it could be used like this:
 For better integration with the Qutebrowser, set
 'browse-url(-secondary)-browser-function' to 'browse-url-qutebrowser'.
 
-*** Support for the Conkeror web browser has been removed.
-It has been obsolete since Emacs 28.1.
-
-*** Support for gnome-moz-remote has been removed.
-It has been obsolete since Emacs 25.1.
-
 *** New GTK-native launch mode
 For better Wayland support, the pgtk toolkit exposes a new
 'x-gtk-launch-uri' browse-url handler and uses it by default when URLs
@@ -243,6 +237,10 @@ are browsed from a PGTK frame.  For other frames, we fall back to the
 default URL launch function.  This change allows us to properly raise
 browser windows under Wayland using the xdg_activation_v1 protocol.
 
+*** Removed support for some obsolete web browsers.
+Conkeror (obsolete since Emacs 28.1), gnome-moz-remote (obsolete since
+Emacs 25.1), and gnudoit (obsolete since Emacs 25.1).
+
 ** CL-Lib
 +++
 *** 'cl-labels' now also accepts (FUNC EXP) bindings, like 'cl-flet'.
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 594474aee0c..544768d60ba 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -466,17 +466,6 @@ This might, for instance, be a separate color version of xterm."
 These might set its size, for instance."
   :type '(repeat (string :tag "Argument")))
 
-(defcustom browse-url-gnudoit-program "gnudoit"
-  "The name of the `gnudoit' program used by `browse-url-w3-gnudoit'."
-  :type 'string)
-(make-obsolete-variable 'browse-url-gnudoit-program nil "29.1")
-
-(defcustom browse-url-gnudoit-args '("-q")
-  "A list of strings defining options for `browse-url-gnudoit-program'.
-These might set the port, for instance."
-  :type '(repeat (string :tag "Argument")))
-(make-obsolete-variable 'browse-url-gnudoit-args nil "29.1")
-
 (defcustom browse-url-generic-program nil
   "The name of the browser program used by `browse-url-generic'."
   :type '(choice string (const :tag "None" nil)))
@@ -1502,21 +1491,6 @@ used instead of `browse-url-new-window-flag'."
 
 (function-put 'browse-url-w3 'browse-url-browser-kind 'internal)
 
-;;;###autoload
-(defun browse-url-w3-gnudoit (url &optional _new-window)
-  "Ask another Emacs running emacsclient to load the URL using the W3 browser.
-The `browse-url-gnudoit-program' program is used with options given by
-`browse-url-gnudoit-args'.  Default to the URL around or before point."
-  (declare (obsolete nil "25.1"))
-  (interactive (browse-url-interactive-arg "W3 URL: "))
-  (apply #'start-process (concat "gnudoit:" url) nil
-	 browse-url-gnudoit-program
-	 (append browse-url-gnudoit-args
-		 (list (concat "(w3-fetch \"" url "\")")
-		       "(raise-frame)"))))
-
-(function-put 'browse-url-w3-gnudoit 'browse-url-browser-kind 'internal)
-
 ;; --- Lynx in an xterm ---
 
 ;;;###autoload