diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-07-07 13:25:23 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-07-09 17:27:49 +0200 |
commit | 2a8d083607e7e0fe9358f1f6526dbd8aa928af61 (patch) | |
tree | b450f931c3936ebc3e30ebaf57f5fdc8ec10e70a /lisp/net/newst-plainview.el | |
parent | aa1e837ab43a5c6d0f31596b4ae3a3fd7352b3c5 (diff) | |
download | emacs-2a8d083607e7e0fe9358f1f6526dbd8aa928af61.tar.gz |
Drop support for the dead third-party w3 package
The w3 package was removed from GNU ELPA in 2020 as it doesn't run on
a recent Emacs, and development had stopped over a decade before that.
If anyone wants to revive the w3 package, they should look this all
over, but it doesn't make sense for us to maintain this support code.
Ref: https://debbugs.gnu.org/25395
* lisp/net/browse-url.el (browse-url-w3): Make obsolete.
(browse-url--browser-defcustom-type)
(browse-url-default-browser):
* lisp/ffap.el (ffap-url-at-point, ffap-file-at-point):
* lisp/net/newst-plainview.el (newsticker--buffer-do-insert-text):
* lisp/net/newst-reader.el (newsticker-html-renderer)
(newsticker-show-news):
* lisp/net/newst-treeview.el (newsticker--treeview-render-text):
* lisp/org/ol.el (org-store-link):
* lisp/url/url.el (url-retrieve): Remove w3 support code and related
documentation and comments. (Bug#56435)
* test/lisp/net/browse-url-tests.el
(browse-url-tests-browser-kind): Adjust test for above changes.
* etc/TODO: Remove TODO to install W3.
* doc/misc/org.org (Handling Links): Don't mention W3.
* lisp/msb.el (msb--few-menus, msb--very-many-menus): Check for
eww-mode instead of w3-mode.
Diffstat (limited to 'lisp/net/newst-plainview.el')
-rw-r--r-- | lisp/net/newst-plainview.el | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/lisp/net/newst-plainview.el b/lisp/net/newst-plainview.el index df574dfa2f4..4eb6f6c695e 100644 --- a/lisp/net/newst-plainview.el +++ b/lisp/net/newst-plainview.el @@ -37,7 +37,6 @@ (require 'xml) ;; Silence warnings -(defvar w3-mode-map) (defvar w3m-minor-mode-map) ;; ====================================================================== @@ -1232,7 +1231,6 @@ item-retrieval time is added as well." (newsticker--buffer-do-insert-text item 'desc feed-name-symbol)) (defvar w3m-fill-column) -(defvar w3-maximum-line-length) (defun newsticker--buffer-do-insert-text (item type feed-name-symbol) "Actually insert contents of news item, format it, render it and all that. @@ -1366,19 +1364,14 @@ FEED-NAME-SYMBOL tells to which feed this item belongs." "</?[A-Za-z1-6]*\\|&#?[A-Za-z0-9]+;" pos-text-end t) ;; (message "%s" (newsticker--title item)) (let ((w3m-fill-column (if newsticker-use-full-width - -1 fill-column)) - (w3-maximum-line-length - (if newsticker-use-full-width nil fill-column))) + -1 fill-column))) (save-excursion (funcall newsticker-html-renderer pos-text-start pos-text-end))) - (cond ((eq newsticker-html-renderer 'w3m-region) - (add-text-properties pos (point-max) - (list 'keymap - w3m-minor-mode-map))) - ((eq newsticker-html-renderer 'w3-region) - (add-text-properties pos (point-max) - (list 'keymap w3-mode-map)))) + (when (eq newsticker-html-renderer 'w3m-region) + (add-text-properties pos (point-max) + (list 'keymap + w3m-minor-mode-map))) (setq is-rendered-HTML t))) (error (message "Error: HTML rendering failed: %s, %s" |