From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 26 Jan 2017 17:32:48 +0000 (+0100)
Subject: Make eww buffers prettier in the buffer listing
X-Git-Tag: emacs-26.0.90~870^2~44
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=950c0d8969bae1e763016adedc62345c79cfad8a;p=emacs.git

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.
---

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