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.

1 files 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 ()