hydra.el (hydra--format): Match alnum for the "_..._" syntax

Fixes #106
11 years ago · 99b2aea8a1
parent d678cc06cc
commit 99b2aea8a1
1 changed files with 1 additions and 1 deletions
--- a/hydra.el
+++ b/hydra.el
@ -456,7 +456,7 @@ The expressions can be auto-expanded according to NAME."
        offset)
    (while (setq start
                 (string-match
-                  "\\(?:%\\( ?-?[0-9]*s?\\)\\(`[a-z-A-Z/0-9]+\\|(\\)\\)\\|\\(?:_\\( ?-?[0-9]*\\)\\([a-z-A-Z~.,;:0-9/|?<>={}*+#]+\\)_\\)"
+                  "\\(?:%\\( ?-?[0-9]*s?\\)\\(`[a-z-A-Z/0-9]+\\|(\\)\\)\\|\\(?:_\\( ?-?[0-9]*\\)\\([[:alnum:]~.,;:/|?<>={}*+#]+\\)_\\)"
                  docstring start))
      (cond ((eq ?_ (aref (match-string 0 docstring) 0))
             (let* ((key (match-string 4 docstring))