[nongnu] elpa/devil b5c3295293 1/2: Allow user defined keys in translation rules

[ELPA Syncer]

branch: elpa/devil
commit b5c3295293c50d5e646bd845944266b71ea4952c
Author: corytertel <ctertel@comcast.net>
Commit: corytertel <ctertel@comcast.net>

    Allow user defined keys in translation rules
---
 devil.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/devil.el b/devil.el
index 069de34a72..58c73c530f 100644
--- a/devil.el
+++ b/devil.el
@@ -475,7 +475,7 @@ match is found, it is replaced with its corresponding 
binding."
   (catch 'break
     (dolist (chunk (split-string translated-key " "))
       (when (or (string= chunk "")
-                (not (string-match-p "^\\(?:[ACHMSs]-\\)*[^-]*$" chunk))
+                (not (string-match-p "^\\(?:[ACHMSs]-\\)*\\([^-]*\\|<.*>\\)$" 
chunk))
                 (string-match-p "\\([ACHMSs]-\\)[^ ]*\\1" chunk))
         (throw 'break t)))))