Handle 'code' tag in shr.el

* etc/NEWS: Announce change in shr behavior (bug#36247).
* lisp/net/shr.el: Add 'code' tag handling.

diff --git a/etc/NEWS b/etc/NEWS
index 0cfac248a323e67e77c6ca1cc3faaa31207967a4..58d4727ee7e7bdcb1b7b3fc17139d97b105885d4 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -934,6 +934,9 @@ This attribute is meant to tell screen readers to ignore a tag.
 ---
 *** 'shr-tag-ol' now respects the ordered list 'start' attribute.
 
+---
+*** The <code ...> tag is now handled.
+
 ** Htmlfontify
 
 *** The functions 'hfy-color', 'hfy-color-vals' and

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index a014c56948cb9487339e63390fa2eecf8a9eb260..7fdb3212d49d1fa32ab43eac6722064cc2f0d74d 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1401,10 +1401,14 @@ ones, in case fg and bg are nil."
 (defun shr-tag-u (dom)
   (shr-fontize-dom dom 'underline))
 
-(defun shr-tag-tt (dom)
+(defun shr-tag-code (dom)
   (let ((shr-current-font 'default))
     (shr-generic dom)))
 
+(defun shr-tag-tt (dom)
+  ;; The `tt' tag is deprecated in favor of `code'.
+  (shr-tag-code dom))
+
 (defun shr-tag-ins (cont)
   (let* ((start (point))
          (color "green")