diff options
| author | Stefan Kangas | 2025-01-03 04:08:44 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2025-01-03 04:08:44 +0100 |
| commit | 597161fe1e4a62bd8a2c7b80b7219529ec5bc16d (patch) | |
| tree | 8a6e08a1d493acbb0352a9c6e5ffd75f11176ae9 | |
| parent | 004a48b3d46af169cbc1c9a690de7ad71483862c (diff) | |
| download | emacs-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/NEWS | 10 | ||||
| -rw-r--r-- | lisp/net/browse-url.el | 26 |
2 files changed, 4 insertions, 32 deletions
| @@ -327,12 +327,6 @@ a web browser to load them. For example, it could be used like this: | |||
| 327 | For better integration with the Qutebrowser, set | 327 | For 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. | ||
| 331 | It has been obsolete since Emacs 28.1. | ||
| 332 | |||
| 333 | *** Support for gnome-moz-remote has been removed. | ||
| 334 | It has been obsolete since Emacs 25.1. | ||
| 335 | |||
| 336 | *** New GTK-native launch mode | 330 | *** New GTK-native launch mode |
| 337 | For better Wayland support, the pgtk toolkit exposes a new | 331 | For 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 | |||
| 340 | default URL launch function. This change allows us to properly raise | 334 | default URL launch function. This change allows us to properly raise |
| 341 | browser windows under Wayland using the xdg_activation_v1 protocol. | 335 | browser windows under Wayland using the xdg_activation_v1 protocol. |
| 342 | 336 | ||
| 337 | *** Removed support for some obsolete web browsers. | ||
| 338 | Conkeror (obsolete since Emacs 28.1), gnome-moz-remote (obsolete since | ||
| 339 | Emacs 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." | |||
| 467 | These might set its size, for instance." | 467 | These 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'. | ||
| 477 | These 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. | ||
| 1509 | The `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 |