From 950c0d8969bae1e763016adedc62345c79cfad8a Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 26 Jan 2017 18:32:48 +0100 Subject: [PATCH] Make eww buffers prettier in the buffer listing * lisp/net/eww.el (eww-render): Put the currently visited URL into the buffer listing (bug#23738). (eww-render): Ditto. --- lisp/net/eww.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 172044a12ec..15911f6e85f 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -355,9 +355,11 @@ Currently this means either text/html or application/xhtml+xml." "utf-8")))) (data-buffer (current-buffer)) last-coding-system-used) - ;; Save the https peer status. (with-current-buffer buffer - (plist-put eww-data :peer (plist-get status :peer))) + ;; Save the https peer status. + (plist-put eww-data :peer (plist-get status :peer)) + ;; Make buffer listings more informative. + (setq list-buffers-directory url)) (unwind-protect (progn (cond @@ -849,6 +851,8 @@ the like." (erase-buffer) (insert text) (goto-char (plist-get elem :point)) + ;; Make buffer listings more informative. + (setq list-buffers-directory (plist-get elem :url)) (eww-update-header-line-format)))) (defun eww-next-url () -- 2.39.5