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

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

[elpa] externals/vertico 9f6cd5d: vertico-repeat: Better detection of th


From: ELPA Syncer
Subject: [elpa] externals/vertico 9f6cd5d: vertico-repeat: Better detection of the repeat command
Date: Fri, 9 Jul 2021 09:57:16 -0400 (EDT)

branch: externals/vertico
commit 9f6cd5d431ec6d288676af80e932d928346a1b36
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico-repeat: Better detection of the repeat command
---
 extensions/vertico-repeat.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/extensions/vertico-repeat.el b/extensions/vertico-repeat.el
index 4fe8eac..6951f53 100644
--- a/extensions/vertico-repeat.el
+++ b/extensions/vertico-repeat.el
@@ -33,6 +33,7 @@
 (defvar vertico-repeat--input nil)
 (defvar vertico-repeat--command nil)
 (defvar vertico-repeat--candidate nil)
+(defvar vertico-repeat--restore nil)
 
 (defun vertico-repeat--save-input ()
   "Save current minibuffer content for `vertico-repeat'."
@@ -47,12 +48,13 @@
 
 (defun vertico-repeat--save ()
   "Save Vertico status for `vertico-repeat'."
-  (unless (eq real-this-command #'vertico-repeat)
+  (unless vertico-repeat--restore
     (setq vertico-repeat--command (if (boundp 'minibuffer-current-command)
                                       minibuffer-current-command
                                     this-command)
           vertico-repeat--input ""
-          vertico-repeat--candidate nil))
+          vertico-repeat--candidate nil
+          vertico-repeat--restore nil))
   (add-hook 'post-command-hook #'vertico-repeat--save-input nil 'local)
   (add-hook 'minibuffer-exit-hook #'vertico-repeat--save-candidate nil 'local))
 
@@ -74,9 +76,10 @@
   (interactive)
   (unless vertico-repeat--command
     (user-error "No repeatable Vertico session"))
-  (minibuffer-with-setup-hook
-      #'vertico-repeat--restore
-    (command-execute (setq this-command vertico-repeat--command))))
+  (let ((vertico-repeat--restore t))
+    (minibuffer-with-setup-hook
+        #'vertico-repeat--restore
+      (command-execute (setq this-command vertico-repeat--command)))))
 
 ;;;###autoload
 (advice-add #'vertico--setup :after #'vertico-repeat--save)



reply via email to

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