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