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 a61483eae29650923a01bf749ffa9cf909ee59c6..3265c98c34d501ed1cf8ce4b21a0b4c3a1776cd5 100644 (file)
--- 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 594474aee0c8d3bf5af15d0cee7aceb6f0944c77..544768d60bad8466b6f0c87466c33bae5eaa2826 100644 (file)
--- 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