From dc01b992e27e91631e67bb94f32c23275f1eacfd Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 13 Sep 2020 17:06:35 +0200 Subject: [PATCH] Make the eww header work again even if the title is nil * lisp/net/eww.el (eww-update-header-line-format): Don't bug out if the title isn't set at all. --- lisp/net/eww.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 5fd44901936..69dc2d47d67 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -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) -- 2.39.5