[elpa] master 83b9019 07/36: hydra.el (hydra-width-spec-regex): Update

[Oleh Krehel]

branch: master
commit 83b9019944b768ec4a213f99594b31209b36e8c2
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    hydra.el (hydra-width-spec-regex): Update
    
    Fixes #188
---
 hydra.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/hydra.el b/hydra.el
index ff31b3d..f711044 100644
--- a/hydra.el
+++ b/hydra.el
@@ -590,7 +590,7 @@ HEAD's binding is returned as a string wrapped with [] or 
{}."
     ("⌦" . "<deletechar>")
     ("⏎" . "RET")))
 
-(defconst hydra-width-spec-regex " ?-?[0-9]*s?"
+(defconst hydra-width-spec-regex " ?-?[0-9]*?"
   "Regex for the width spec in keys and %` quoted sexps.")
 
 (defvar hydra-key-regex "\\[\\|]\\|[-[:alnum:] 
~.,;:/|?<>address@hidden&^↑↓←→⌫⌦⏎'`()\"]+?"
@@ -610,8 +610,7 @@ The expressions can be auto-expanded according to NAME."
     (while (setq start
                  (string-match
                   (format
-                   
"\\(?:%%\\(%s\\)\\(`[a-z-A-Z/0-9]+\\|(\\)\\)\\|\\(?:[_?]\\(%s\\)\\(%s\\)[_?]\\)"
-                   hydra-width-spec-regex
+                   "\\(?:%%\\( 
?-?[0-9]*s?\\)\\(`[a-z-A-Z/0-9]+\\|(\\)\\)\\|\\(?:[_?]\\(%s\\)\\(%s\\)[_?]\\)"
                    hydra-width-spec-regex
                    hydra-key-regex)
                   docstring start))