769 |
(define-key kmacro-step-edit-map "f" 'skip-keep) |
(define-key kmacro-step-edit-map "f" 'skip-keep) |
770 |
(define-key kmacro-step-edit-map "q" 'quit) |
(define-key kmacro-step-edit-map "q" 'quit) |
771 |
(define-key kmacro-step-edit-map "d" 'skip) |
(define-key kmacro-step-edit-map "d" 'skip) |
772 |
|
(define-key kmacro-step-edit-map "\C-d" 'skip) |
773 |
(define-key kmacro-step-edit-map "i" 'insert) |
(define-key kmacro-step-edit-map "i" 'insert) |
774 |
(define-key kmacro-step-edit-map "I" 'insert-1) |
(define-key kmacro-step-edit-map "I" 'insert-1) |
775 |
(define-key kmacro-step-edit-map "r" 'replace) |
(define-key kmacro-step-edit-map "r" 'replace) |
918 |
((eq act 'skip-rest) |
((eq act 'skip-rest) |
919 |
(setq kmacro-step-edit-active 'ignore) |
(setq kmacro-step-edit-active 'ignore) |
920 |
nil) |
nil) |
921 |
((eq act 'automatic) |
((memq act '(automatic exit)) |
922 |
(setq kmacro-step-edit-active nil) |
(setq kmacro-step-edit-active nil) |
923 |
(setq act t) |
(setq act t) |
924 |
t) |
t) |
1093 |
(add-hook 'post-command-hook 'kmacro-step-edit-post-command t) |
(add-hook 'post-command-hook 'kmacro-step-edit-post-command t) |
1094 |
(add-hook 'minibuffer-setup-hook 'kmacro-step-edit-minibuf-setup t) |
(add-hook 'minibuffer-setup-hook 'kmacro-step-edit-minibuf-setup t) |
1095 |
(call-last-kbd-macro nil nil) |
(call-last-kbd-macro nil nil) |
1096 |
(if kmacro-step-edit-replace |
(when (and kmacro-step-edit-replace |
1097 |
(setq last-kbd-macro kmacro-step-edit-new-macro)))) |
kmacro-step-edit-new-macro |
1098 |
|
(not (equal last-kbd-macro kmacro-step-edit-new-macro))) |
1099 |
|
(kmacro-push-ring) |
1100 |
|
(setq last-kbd-macro kmacro-step-edit-new-macro)))) |
1101 |
|
|
1102 |
(provide 'kmacro) |
(provide 'kmacro) |
1103 |
;;; kmacro.el ends here |
;;; kmacro.el ends here |