[Emacs-diffs] master 950c0d8 2/2: Make eww buffers prettier in the buffer listing

[Lars Ingebrigtsen]

branch: master
commit 950c0d8969bae1e763016adedc62345c79cfad8a
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 172044a..15911f6 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 ()