diff options
| author | SeungKi Kim <tttuuu888@gmail.com> | 2018-06-14 23:36:06 +0900 |
|---|---|---|
| committer | SeungKi Kim <tttuuu888@gmail.com> | 2018-06-14 23:57:04 +0900 |
| commit | 9f4ba6ebb8558e57e294d143919cff3a724f55cd (patch) | |
| tree | ceb8d0060dbf5afd4c697227e239b9bf11864994 /helm-ring.el | |
| parent | 3a70eaa8f4c1dff691705187e0d70c231345f9ad (diff) | |
Fix delete macro from helm-execute-kmacro.
Diffstat (limited to 'helm-ring.el')
| -rw-r--r-- | helm-ring.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/helm-ring.el b/helm-ring.el index ef3d5254..29beef0a 100644 --- a/helm-ring.el +++ b/helm-ring.el @@ -155,7 +155,7 @@ use `helm-kill-ring-separator' as default." (cl-loop for c in (butlast marked) concat (concat c sep) into str finally return (concat str (car (last marked))))))) - + (defun helm-kill-ring-action-yank-1 (str) "Insert STR in `kill-ring' and set STR to the head. @@ -535,6 +535,7 @@ This command is useful when used with persistent action." (defun helm-kbd-macro-delete-macro (_candidate) (let ((mkd (helm-marked-candidates))) + (kmacro-push-ring) (cl-loop for km in mkd do (setq kmacro-ring (delete km kmacro-ring))) (kmacro-pop-ring1))) |