Skip to content
Browse files

add new function kmu-edmacro-parse-keys

  • Loading branch information...
1 parent 1b3e372 commit 9093fda531ca1763caed176020a4e37615bfe503 @tarsius committed Jan 14, 2013
Showing with 8 additions and 0 deletions.
  1. +8 −0 keymap-utils.el
View
8 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)

0 comments on commit 9093fda

Please sign in to comment.
Something went wrong with that request. Please try again.