branch: master
commit 0cda4ce6f9f322bb649d844f2ba94c71c906299c
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
Fix typos
* hydra.el (defhydra): Fix A/An and "aboring".
---
hydra.el | 22 ++++++++++++----------
1 files changed, 12 insertions(+), 10 deletions(-)
diff --git a/hydra.el b/hydra.el
index 342aee5..c710ca0 100644
--- a/hydra.el
+++ b/hydra.el
@@ -500,16 +500,18 @@ result of `defhydra'."
(define-key keymap [t]
`(lambda ()
(interactive)
- ,@(if
- (memq body-color '(amaranth teal))
- `((message ,(format "An %S Hydra can only exit through a
blue head"
- body-color)))
- '((let ((kb (key-binding (this-command-keys))))
- (if kb
- (if (commandp kb)
- (call-interactively kb)
- (error "Pink Hydra can't currently handle
prefixes, aboring"))
- (message "A pink Hydra can only exit through a blue
head")))))
+ ,@ (cond
+ ((eq body-color 'amaranth)
+ '((message "An amaranth Hydra can only exit through a
blue head")))
+ ((eq body-color 'teal)
+ '((message "An teal Hydra can only exit through a blue
head")))
+ (t
+ '((let ((kb (key-binding (this-command-keys))))
+ (if kb
+ (if (commandp kb)
+ (call-interactively kb)
+ (error "Pink Hydra can't currently handle
prefixes, aborting"))
+ (message "A pink Hydra can only exit through a
blue head"))))))
(hydra-set-transient-map hydra-curr-map t)
(when hydra-is-helpful
(unless hydra-lv
