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

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

[elpa] externals/embark 6806fbb931: Bind embark-rerun-collect-or-export


From: ELPA Syncer
Subject: [elpa] externals/embark 6806fbb931: Bind embark-rerun-collect-or-export in the normal way
Date: Sun, 26 Feb 2023 16:57:49 -0500 (EST)

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

    Bind embark-rerun-collect-or-export in the normal way
    
    No reason to use local-set-key now that we use a fixed command (this
    was a remnant from an earlier lambda-based approach).
---
 embark.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/embark.el b/embark.el
index 7544fa3e70..54fc2c7d8d 100644
--- a/embark.el
+++ b/embark.el
@@ -2808,7 +2808,8 @@ If NESTED is non-nil subkeymaps are not flattened."
   "}" 'outline-next-heading
   "{" 'outline-previous-heading
   "<remap> <forward-paragraph>" 'outline-next-heading
-  "<remap> <backward-paragraph>" 'outline-previous-heading)
+  "<remap> <backward-paragraph>" 'outline-previous-heading
+  "<remap> <revert-buffer>" #'embark-rerun-collect-or-export)
 
 (defconst embark-collect--outline-string (string #x210000)
   "Special string used for outine headings in Embark Collect buffers.
@@ -3051,7 +3052,6 @@ buffer has a unique name."
             tabulated-list--header-string nil
             revert-buffer-function #'embark-collect--revert)
       (setq embark--rerun-function rerun)
-      (local-set-key [remap revert-buffer] #'embark-rerun-collect-or-export)
       (when (memq embark--type embark-collect-zebra-types)
         (embark-collect-zebra-minor-mode)))
 
@@ -3160,7 +3160,7 @@ The parameter KIND should be either `embark-export' or 
`embark-collect'."
   (interactive)
   (if embark--rerun-function
       (funcall embark--rerun-function)
-    (user-error "No function to rerun collect or export found.?")))
+    (user-error "No function to rerun collect or export found")))
 
 ;;;###autoload
 (defun embark-export ()



reply via email to

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