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

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

[elpa] master 7201c0f 334/399: ivy-hydra.el (ivy-dispatching-done-hydra-


From: Oleh Krehel
Subject: [elpa] master 7201c0f 334/399: ivy-hydra.el (ivy-dispatching-done-hydra-exit-keys): Extract
Date: Sat, 20 Jul 2019 14:57:51 -0400 (EDT)

branch: master
commit 7201c0fd8cade4d50abf9b7ecc92a41cefdde089
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    ivy-hydra.el (ivy-dispatching-done-hydra-exit-keys): Extract
---
 ivy-hydra.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ivy-hydra.el b/ivy-hydra.el
index fb1fd7a..e314cc1 100644
--- a/ivy-hydra.el
+++ b/ivy-hydra.el
@@ -91,12 +91,15 @@ _h_ ^+^ _l_ | _d_one      ^ ^  | _o_ops   | _M_: matcher 
%-5s(ivy--matcher-desc)
 (defvar ivy-dispatching-done-idle nil
   "When non-nil, the hint will be delayed by this many seconds.")
 
+(defvar ivy-dispatching-done-hydra-exit-keys '(("M-o" nil "back")
+                                               ("C-g" nil))
+  "Keys that can be used to exit `ivy-dispatching-done-hydra'.")
+
 (defun ivy-dispatching-done-hydra ()
   "Select one of the available actions and call `ivy-done'."
   (interactive)
   (let* ((actions (ivy-state-action ivy-last))
-         (extra-actions '(("M-o" nil "back")
-                          ("C-g" nil)))
+         (extra-actions ivy-dispatching-done-hydra-exit-keys)
          (doc (concat "action: "
                       (mapconcat
                        (lambda (x) (format "[%s] %s" (nth 0 x) (nth 2 x)))



reply via email to

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