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

Merge branch 'emacs-28' of git.savannah.gnu.org:/srv/git/emacs into emacs-28

Browse source
This commit is contained in:
Eli Zaretskii 2021-10-31 17:20:52 +02:00
commit af67ce64ed
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'.