Match e.g. "C-d C-o" in docstring

* hydra.el (hydra--format): Allow space; make the regex non-greedy. Fixes #116
11 years ago · ad8def1705
parent 192c5b07d0
commit ad8def1705
1 changed files with 1 additions and 1 deletions
--- a/hydra.el
+++ b/hydra.el
@ -474,7 +474,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]*\\)\\([[:alnum:]-~.,;:/|?<>={}*+#]+\\)_\\)"
+                  "\\(?:%\\( ?-?[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))