aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2025-01-03 04:08:44 +0100
committerStefan Kangas2025-01-03 04:08:44 +0100
commit597161fe1e4a62bd8a2c7b80b7219529ec5bc16d (patch)
tree8a6e08a1d493acbb0352a9c6e5ffd75f11176ae9
parent004a48b3d46af169cbc1c9a690de7ad71483862c (diff)
downloademacs-597161fe1e4a62bd8a2c7b80b7219529ec5bc16d.tar.gz
emacs-597161fe1e4a62bd8a2c7b80b7219529ec5bc16d.zip
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.
-rw-r--r--etc/NEWS10
-rw-r--r--lisp/net/browse-url.el26
2 files changed, 4 insertions, 32 deletions
diff --git a/etc/NEWS b/etc/NEWS
index dd912306757..f7e9f283709 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -327,12 +327,6 @@ a web browser to load them. For example, it could be used like this:
327For better integration with the Qutebrowser, set 327For better integration with the Qutebrowser, set
328'browse-url(-secondary)-browser-function' to 'browse-url-qutebrowser'. 328'browse-url(-secondary)-browser-function' to 'browse-url-qutebrowser'.
329 329
330*** Support for the Conkeror web browser has been removed.
331It has been obsolete since Emacs 28.1.
332
333*** Support for gnome-moz-remote has been removed.
334It has been obsolete since Emacs 25.1.
335
336*** New GTK-native launch mode 330*** New GTK-native launch mode
337For better Wayland support, the pgtk toolkit exposes a new 331For better Wayland support, the pgtk toolkit exposes a new
338'x-gtk-launch-uri' browse-url handler and uses it by default when URLs 332'x-gtk-launch-uri' browse-url handler and uses it by default when URLs
@@ -340,6 +334,10 @@ are browsed from a PGTK frame. For other frames, we fall back to the
340default URL launch function. This change allows us to properly raise 334default URL launch function. This change allows us to properly raise
341browser windows under Wayland using the xdg_activation_v1 protocol. 335browser windows under Wayland using the xdg_activation_v1 protocol.
342 336
337*** Removed support for some obsolete web browsers.
338Conkeror (obsolete since Emacs 28.1), gnome-moz-remote (obsolete since
339Emacs 25.1), and gnudoit (obsolete since Emacs 25.1).
340
343** CL-Lib 341** CL-Lib
344 342
345+++ 343+++
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 1c8019f6152..8d733deaddd 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -467,17 +467,6 @@ This might, for instance, be a separate color version of xterm."
467These might set its size, for instance." 467These might set its size, for instance."
468 :type '(repeat (string :tag "Argument"))) 468 :type '(repeat (string :tag "Argument")))
469 469
470(defcustom browse-url-gnudoit-program "gnudoit"
471 "The name of the `gnudoit' program used by `browse-url-w3-gnudoit'."
472 :type 'string)
473(make-obsolete-variable 'browse-url-gnudoit-program nil "29.1")
474
475(defcustom browse-url-gnudoit-args '("-q")
476 "A list of strings defining options for `browse-url-gnudoit-program'.
477These might set the port, for instance."
478 :type '(repeat (string :tag "Argument")))
479(make-obsolete-variable 'browse-url-gnudoit-args nil "29.1")
480
481(defcustom browse-url-generic-program nil 470(defcustom browse-url-generic-program nil
482 "The name of the browser program used by `browse-url-generic'." 471 "The name of the browser program used by `browse-url-generic'."
483 :type '(choice string (const :tag "None" nil))) 472 :type '(choice string (const :tag "None" nil)))
@@ -1503,21 +1492,6 @@ used instead of `browse-url-new-window-flag'."
1503 1492
1504(function-put 'browse-url-w3 'browse-url-browser-kind 'internal) 1493(function-put 'browse-url-w3 'browse-url-browser-kind 'internal)
1505 1494
1506;;;###autoload
1507(defun browse-url-w3-gnudoit (url &optional _new-window)
1508 "Ask another Emacs running emacsclient to load the URL using the W3 browser.
1509The `browse-url-gnudoit-program' program is used with options given by
1510`browse-url-gnudoit-args'. Default to the URL around or before point."
1511 (declare (obsolete nil "25.1"))
1512 (interactive (browse-url-interactive-arg "W3 URL: "))
1513 (apply #'start-process (concat "gnudoit:" url) nil
1514 browse-url-gnudoit-program
1515 (append browse-url-gnudoit-args
1516 (list (concat "(w3-fetch \"" url "\")")
1517 "(raise-frame)"))))
1518
1519(function-put 'browse-url-w3-gnudoit 'browse-url-browser-kind 'internal)
1520
1521;; --- Lynx in an xterm --- 1495;; --- Lynx in an xterm ---
1522 1496
1523;;;###autoload 1497;;;###autoload