procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix rendering of title-less <abbr> tags in shr

Browse source 
* lisp/net/shr.el (shr-tag-abbr): Render <abbr> tags that have no
title (bug#51525).
This commit is contained in:
Lars Ingebrigtsen 2021-10-31 16:20:10 +01:00
parent e170a31c57
commit 610680a8d3
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/net/shr.el
View file

@ -1574,15 +1574,14 @@ ones, in case fg and bg are nil."
(shr-urlify (or shr-start start) (shr-expand-url url) title))))
(defun shr-tag-abbr (dom)
(when-let* ((title (dom-attr dom 'title))
(start (point)))
(let ((title (dom-attr dom 'title))
(start (point)))
(shr-generic dom)
(shr-add-font start (point) 'shr-abbreviation)
(add-text-properties
start (point)
(list
'help-echo title
'mouse-face 'highlight))))
(when title
(add-text-properties start (point)
(list 'help-echo title
'mouse-face 'highlight)))))
(defun shr-tag-acronym (dom)
;; `acronym' is deprecated in favor of `abbr'.