emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/embark 72a1ae6495 4/7: revert=just rerun for collect bu


From: ELPA Syncer
Subject: [elpa] externals/embark 72a1ae6495 4/7: revert=just rerun for collect buffers too
Date: Wed, 13 Apr 2022 16:57:30 -0400 (EDT)

branch: externals/embark
commit 72a1ae64959f6baa47e3574c4b5de32e52030b10
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    revert=just rerun for collect buffers too
---
 embark.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index 836566915c..9de9143a93 100644
--- a/embark.el
+++ b/embark.el
@@ -2834,7 +2834,8 @@ candidate."
 
 The function `generate-new-buffer-name' is used to ensure the
 buffer has a unique name."
-  (let ((buffer (generate-new-buffer buffer-name)))
+  (let ((buffer (generate-new-buffer buffer-name))
+        (revert (embark--revert-function #'embark-collect)))
     (with-current-buffer buffer
       ;; we'll run the mode hooks once the buffer is displayed, so
       ;; the hooks can make use of the window
@@ -2845,9 +2846,10 @@ buffer has a unique name."
       (user-error "No candidates to collect"))
 
     (with-current-buffer buffer
-      (setq tabulated-list-use-header-line nil  ; default to no header
+      (setq tabulated-list-use-header-line nil ; default to no header
             header-line-format nil
             tabulated-list--header-string nil)
+      (setq revert-buffer-function revert)
       (when (memq embark--type embark-collect-zebra-types)
         (embark-collect-zebra-minor-mode)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]