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
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)))) (shr-urlify (or shr-start start) (shr-expand-url url) title))))
(defun shr-tag-abbr (dom) (defun shr-tag-abbr (dom)
(when-let* ((title (dom-attr dom 'title)) (let ((title (dom-attr dom 'title))
(start (point))) (start (point)))
(shr-generic dom) (shr-generic dom)
(shr-add-font start (point) 'shr-abbreviation) (shr-add-font start (point) 'shr-abbreviation)
(add-text-properties (when title
start (point) (add-text-properties start (point)
(list (list 'help-echo title
'help-echo title 'mouse-face 'highlight)))))
'mouse-face 'highlight))))
(defun shr-tag-acronym (dom) (defun shr-tag-acronym (dom)
;; `acronym' is deprecated in favor of `abbr'. ;; `acronym' is deprecated in favor of `abbr'.