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

Make the eww header work again even if the title is nil

Browse source 
* lisp/net/eww.el (eww-update-header-line-format): Don't bug out
if the title isn't set at all.
This commit is contained in:
Lars Ingebrigtsen 2020-09-13 17:06:35 +02:00
parent 2bd41321a6
commit dc01b992e2
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/net/eww.el
View file

@ -729,14 +729,15 @@ Currently this means either text/html or application/xhtml+xml."
(defun eww-update-header-line-format ()
(setq header-line-format
(and eww-header-line-format
(let ((title (propertize (plist-get eww-data :title)
'face 'variable-pitch))
(peer (plist-get eww-data :peer))
(let ((peer (plist-get eww-data :peer))
(url (propertize (plist-get eww-data :url)
'face 'variable-pitch)))
(when (zerop (length title))
(setq title (propertize "[untitled]" 'face 'variable-pitch)))
;; This connection has is https.
'face 'variable-pitch))
(title (propertize
(if (zerop (length (plist-get eww-data :title)))
"[untitled]"
(plist-get eww-data :title))
'face 'variable-pitch)))
;; This connection is https.
(when peer
(add-face-text-property 0 (length title)
(if (plist-get peer :warnings)