Add edit option for helm-execute-kmacro

1 files changed, 10 insertions, 2 deletions

diff --git a/helm-ring.el b/helm-ring.el
index ef3d5254..171121cc 100644
--- a/helm-ring.el
+++ b/helm-ring.el
@@ -275,7 +275,7 @@ This is a command for `helm-kill-ring-map'."
 (defvar helm-source-mark-ring
   (helm-build-sync-source "mark-ring"
     :candidates #'helm-mark-ring-get-candidates
-    :action '(("Goto line" . helm-mark-ring-default-action)) 
+    :action '(("Goto line" . helm-mark-ring-default-action))
     :persistent-help "Show this line"
     :group 'helm-ring))
 
@@ -506,7 +506,9 @@ This command is useful when used with persistent action."
              "Concat marked macros"
              'helm-kbd-macro-concat-macros
              "Delete marked macros"
-             'helm-kbd-macro-delete-macro)
+             'helm-kbd-macro-delete-macro
+             "Edit marked macro"
+             'helm-kbd-macro-edit-macro)
             :group 'helm-ring)
           :buffer "*helm kmacro*")))
 
@@ -539,6 +541,12 @@ This command is useful when used with persistent action."
              do (setq kmacro-ring (delete km kmacro-ring)))
     (kmacro-pop-ring1)))
 
+(defun helm-kbd-macro-edit-macro (candidate)
+  (kmacro-push-ring)
+  (setq kmacro-ring (delete candidate kmacro-ring))
+  (kmacro-split-ring-element candidate)
+  (kmacro-edit-macro))
+
 (provide 'helm-ring)
 
 ;; Local Variables: