From 4895c9a646b3549a84685b22f08eb2aeb028a6a4 Mon Sep 17 00:00:00 2001 From: Nick Drozd Date: Sun, 16 Jun 2019 09:41:43 -0500 Subject: [PATCH] Handle 'code' tag in shr.el * lisp/net/shr.el: Add 'code' tag handling. * etc/NEWS: Announce change in shr behavior. --- etc/NEWS | 2 ++ lisp/net/shr.el | 6 +++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/etc/NEWS b/etc/NEWS index 723f0a0fb0..5b1191467a 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -916,6 +916,8 @@ This attribute is meant to tell screen readers to ignore a tag. --- *** 'shr-tag-ol' now respects the ordered list 'start' attribute. +*** '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 a014c56948..7fdb3212d4 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -1401,10 +1401,14 @@ shr-tag-strong (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") -- 2.17.1