[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master b65db57 02/17: Update :post for amaranth Hydras
From: |
Oleh Krehel |
Subject: |
[elpa] master b65db57 02/17: Update :post for amaranth Hydras |
Date: |
Tue, 10 Feb 2015 07:13:22 +0000 |
branch: master
commit b65db57adb60d71292c38cc122f6548c61560b9b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
Update :post for amaranth Hydras
* hydra.el (defhydra): Since the transient map isn't technically going
away when a foreign key binding is pressed, don't call :post in that
case. This means that only blue heads will call :post for Hydras with
amaranth body.
Fixes #17.
---
hydra.el | 6 ++++--
1 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/hydra.el b/hydra.el
index 6cbe705..b615c1e 100644
--- a/hydra.el
+++ b/hydra.el
@@ -353,7 +353,8 @@ in turn can be either red or blue."
(hydra-set-transient-map
(setq hydra-curr-map ',keymap)
t
- ,@(if body-post `((lambda ()
,body-post))))))))))
+ ,@(if (and body-post (not (eq body-color
'amaranth)))
+ `((lambda () ,body-post))))))))))
heads names)
,@(unless (or (null body-key)
(null method)
@@ -382,7 +383,8 @@ in turn can be either red or blue."
(hydra-set-transient-map
',keymap
t
- ,@(if body-post `((lambda () ,body-post)))))))))
+ ,@(if (and body-post (not (eq body-color 'amaranth)))
+ `((lambda () ,body-post)))))))))
(provide 'hydra)
- [elpa] master updated (61bddf2 -> 11b130e), Oleh Krehel, 2015/02/10
- [elpa] master b65db57 02/17: Update :post for amaranth Hydras,
Oleh Krehel <=
- [elpa] master 9991985 01/17: hydra-test.el: update the test to not fail for older Emacs, Oleh Krehel, 2015/02/10
- [elpa] master 1660d71 05/17: Allow :pre and :post to be function symbols, Oleh Krehel, 2015/02/10
- [elpa] master 7ead8db 06/17: hydra.el (defhydra): Declare indent 2, Oleh Krehel, 2015/02/10
- [elpa] master 1b1d31d 07/17: Support local hydra heads, Oleh Krehel, 2015/02/10
- [elpa] master 9a8e2f1 04/17: hydra.el (hydra-keyboard-quit): New custom var, Oleh Krehel, 2015/02/10
- [elpa] master 9b31ead 08/17: Update semantics for local heads to `:bind nil', Oleh Krehel, 2015/02/10
- [elpa] master 969fa66 10/17: fix typo - single not singe, Oleh Krehel, 2015/02/10
- [elpa] master d41be74 11/17: `hydra/body' will pass the initial `current-prefix-arg' along, Oleh Krehel, 2015/02/10
- [elpa] master ad771a4 03/17: Move defun-creating code into a defun, Oleh Krehel, 2015/02/10
- [elpa] master 763bb2a 13/17: Allow lambda :bind property for body and heads, Oleh Krehel, 2015/02/10