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

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

[elpa] externals/embark 3f496d47a3 1/2: Delay loading outline-minor-mode


From: ELPA Syncer
Subject: [elpa] externals/embark 3f496d47a3 1/2: Delay loading outline-minor-mode until non-nil group-function
Date: Mon, 2 May 2022 16:57:31 -0400 (EDT)

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

    Delay loading outline-minor-mode until non-nil group-function
---
 embark.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/embark.el b/embark.el
index 314c12f49c..4b2c1d6040 100644
--- a/embark.el
+++ b/embark.el
@@ -2721,9 +2721,7 @@ just restarts the completion session, that is, the 
command that
 opened the minibuffer is run again and the minibuffer contents
 restored.  You can then interact normally with the command,
 perhaps editing the minibuffer contents, and, if you wish, you
-can rerun `embark-collect' to get an updated buffer."
-  (setq-local outline-regexp embark-collect--outline-string)
-  (outline-minor-mode))
+can rerun `embark-collect' to get an updated buffer.")
 
 (defun embark-collect--remove-zebra-stripes ()
   "Remove highlighting of alternate rows."
@@ -2889,7 +2887,10 @@ example)."
                (seq-group-by (lambda (item) (funcall grouper (car item) nil))
                              candidates)
              (list (cons "" candidates)))))
-    (unless grouper (pop tabulated-list-entries))
+    (if (null grouper)
+        (pop tabulated-list-entries)
+      (setq-local outline-regexp embark-collect--outline-string)
+      (outline-minor-mode))
     (setq tabulated-list-format
           `[("Candidate" ,max-width t) ("Annotation" 0 t)])))
 



reply via email to

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