diff options
| author | Kim F. Storm <storm@cua.dk> | 2002-09-20 20:38:18 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2002-09-20 20:38:18 +0000 |
| commit | 5190c95ed41e6e59020362b7e37533ec302d5931 (patch) | |
| tree | 7f2c7524061158c3731f1f7b710718202fdc7a58 /lisp/kmacro.el | |
| parent | 0acc535781bc9b01a388bd701fcf1e05076ed027 (diff) | |
| download | emacs-5190c95ed41e6e59020362b7e37533ec302d5931.tar.gz | |
(kmacro-step-edit-query): Use RET to execute rest of
macro and terminate editing.
(kmacro-step-edit-macro): Push previous macro onto ring if changed
by step editing.
Diffstat (limited to 'lisp/kmacro.el')
| -rw-r--r-- | lisp/kmacro.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/kmacro.el b/lisp/kmacro.el index d74ea0907da..4b890f206ca 100644 --- a/lisp/kmacro.el +++ b/lisp/kmacro.el @@ -769,6 +769,7 @@ following additional answers: `insert', `insert-1', `replace', `replace-1', (define-key kmacro-step-edit-map "f" 'skip-keep) (define-key kmacro-step-edit-map "q" 'quit) (define-key kmacro-step-edit-map "d" 'skip) +(define-key kmacro-step-edit-map "\C-d" 'skip) (define-key kmacro-step-edit-map "i" 'insert) (define-key kmacro-step-edit-map "I" 'insert-1) (define-key kmacro-step-edit-map "r" 'replace) @@ -917,7 +918,7 @@ following additional answers: `insert', `insert-1', `replace', `replace-1', ((eq act 'skip-rest) (setq kmacro-step-edit-active 'ignore) nil) - ((eq act 'automatic) + ((memq act '(automatic exit)) (setq kmacro-step-edit-active nil) (setq act t) t) @@ -1092,8 +1093,11 @@ To customize possible responses, change the \"bindings\" in `kmacro-step-edit-ma (add-hook 'post-command-hook 'kmacro-step-edit-post-command t) (add-hook 'minibuffer-setup-hook 'kmacro-step-edit-minibuf-setup t) (call-last-kbd-macro nil nil) - (if kmacro-step-edit-replace - (setq last-kbd-macro kmacro-step-edit-new-macro)))) + (when (and kmacro-step-edit-replace + kmacro-step-edit-new-macro + (not (equal last-kbd-macro kmacro-step-edit-new-macro))) + (kmacro-push-ring) + (setq last-kbd-macro kmacro-step-edit-new-macro)))) (provide 'kmacro) ;;; kmacro.el ends here |