/[emacs]/emacs/lisp/kmacro.el
ViewVC logotype

Diff of /emacs/lisp/kmacro.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by kfstorm, Fri Sep 13 07:18:27 2002 UTC revision 1.14 by kfstorm, Fri Sep 20 20:38:18 2002 UTC
# Line 769  following additional answers: `insert', Line 769  following additional answers: `insert',
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)
# Line 917  following additional answers: `insert', Line 918  following additional answers: `insert',
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)
# Line 1092  To customize possible responses, change Line 1093  To customize possible responses, change
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

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26