* hydra.el (hydra--handle-nonhead): Update. Most interesting sequences
start with [27 91] or [27 79]. It's hard to do it for all of them.
Re #90
`(lambda ()
(interactive)
,(cond
- ((memq body-color '(amaranth teal))
- '(message "An amaranth Hydra can only exit through a blue head"))
- (t
- '(hydra-pink-fallback)))
+ ((memq body-color '(amaranth teal))
+ '(let ((k (or (lookup-key
+ input-decode-map
+ (vconcat [27 91]
+ (this-command-keys-vector)))
+ (lookup-key
+ input-decode-map
+ (vconcat [27 79]
+ (this-command-keys-vector)))))
+ f)
+ (if (and k (setq f (lookup-key test/keymap k)))
+ (funcall f)
+ (message "An amaranth Hydra can only exit through a blue head"))))
+ (t
+ '(hydra-pink-fallback)))
(hydra-set-transient-map hydra-curr-map t)
(when hydra-is-helpful
(unless hydra-lv