add new function kmu-edmacro-parse-keys

tarsius · Jan 14, 2013 · 9093fda · 9093fda
1 parent 1b3e372
commit 9093fda
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/keymap-utils.el b/keymap-utils.el
@@ -262,6 +262,14 @@ instead of `kbd'."
           (setq s (replace-match "\\2M-\\3" t nil s 1)))
         s))))
 
+(defun kmu-edmacro-parse-keys (string need-vector)
+  (if (string-match "\\.\\." string)
+      (cons (naked-edmacro-parse-keys
+             (substring string 0 (match-beginning 0)) need-vector)
+            (naked-edmacro-parse-keys
+             (substring string (match-end 0)) need-vector))
+    (naked-edmacro-parse-keys string need-vector)))
+
 ;;; Defining Bindings.
 
 (defun kmu-define-key (keymap key def)