Lines Matching defs:step
168 (defcustom kmacro-step-edit-mini-window-height 0.75
169 "Override `max-mini-window-height' when step edit keyboard macro."
203 (define-key map " " 'kmacro-step-edit-macro)
901 ;;; Single-step editing of keyboard macros
903 (defvar kmacro-step-edit-active) ;; step-editing active
904 (defvar kmacro-step-edit-new-macro) ;; storage for new macro
905 (defvar kmacro-step-edit-inserting) ;; inserting into macro
906 (defvar kmacro-step-edit-appending) ;; append to end of macro
907 (defvar kmacro-step-edit-replace) ;; replace orig macro when done
908 (defvar kmacro-step-edit-prefix-index) ;; index of first prefix arg key
909 (defvar kmacro-step-edit-key-index) ;; index of current key
910 (defvar kmacro-step-edit-action) ;; automatic action on next pre-command hook
911 (defvar kmacro-step-edit-help) ;; kmacro step edit help enabled
912 (defvar kmacro-step-edit-num-input-keys) ;; to ignore duplicate pre-command hook
914 (defvar kmacro-step-edit-map (make-sparse-keymap)
915 "Keymap that defines the responses to questions in `kmacro-step-edit-macro'.
925 (set-keymap-parent kmacro-step-edit-map query-replace-map)
927 (define-key kmacro-step-edit-map "\t" 'act-repeat)
928 (define-key kmacro-step-edit-map [tab] 'act-repeat)
929 (define-key kmacro-step-edit-map "\C-k" 'skip-rest)
930 (define-key kmacro-step-edit-map "c" 'automatic)
931 (define-key kmacro-step-edit-map "f" 'skip-keep)
932 (define-key kmacro-step-edit-map "q" 'quit)
933 (define-key kmacro-step-edit-map "d" 'skip)
934 (define-key kmacro-step-edit-map "\C-d" 'skip)
935 (define-key kmacro-step-edit-map "i" 'insert)
936 (define-key kmacro-step-edit-map "I" 'insert-1)
937 (define-key kmacro-step-edit-map "r" 'replace)
938 (define-key kmacro-step-edit-map "R" 'replace-1)
939 (define-key kmacro-step-edit-map "a" 'append)
940 (define-key kmacro-step-edit-map "A" 'append-end)
942 (defvar kmacro-step-edit-prefix-commands
947 (defun kmacro-step-edit-prompt (macro index)
948 ;; Show step-edit prompt
949 (let ((keys (and (not kmacro-step-edit-appending)
951 (future (and (not kmacro-step-edit-appending)
960 (format-kbd-macro kmacro-step-edit-new-macro 1)
961 (if (and kmacro-step-edit-new-macro (> (length kmacro-step-edit-new-macro) 0)) " " "")
963 (if kmacro-step-edit-appending "<APPEND>" "<INSERT>")) 'face 'region)
982 (if kmacro-step-edit-help "\
994 (if (numberp kmacro-step-edit-inserting) "" "s")
995 (if (numberp kmacro-step-edit-inserting) "" " (end with C-j)"))
998 (defun kmacro-step-edit-query ()
999 ;; Pre-command hook function for step-edit in "command" mode
1001 (max-mini-window-height kmacro-step-edit-mini-window-height)
1007 (not (eq kmacro-step-edit-action t)))
1024 ((eq kmacro-step-edit-action t) ;; Reentry for actual command @ end of prefix arg.
1030 (setq kmacro-step-edit-new-macro
1031 (vconcat kmacro-step-edit-new-macro (recent-keys)))
1033 (setq kmacro-step-edit-new-macro
1034 (substring kmacro-step-edit-new-macro 0 (- (length unread-command-events)))
1041 (setq kmacro-step-edit-action nil))
1042 ((eq this-command kmacro-step-edit-action) ;; TAB -> activate while same command
1045 (setq kmacro-step-edit-action nil)))
1050 ((memq this-command kmacro-step-edit-prefix-commands)
1051 (unless kmacro-step-edit-prefix-index
1052 (setq kmacro-step-edit-prefix-index kmacro-step-edit-key-index))
1057 (kmacro-step-edit-prompt macro (or kmacro-step-edit-prefix-index kmacro-step-edit-key-index))
1058 (setq act (lookup-key kmacro-step-edit-map
1069 (setq kmacro-step-edit-action this-command)
1072 (setq kmacro-step-edit-replace nil)
1073 (setq kmacro-step-edit-active 'ignore)
1076 (setq kmacro-step-edit-prefix-index nil)
1082 (setq kmacro-step-edit-active 'ignore)
1085 (setq kmacro-step-edit-active nil)
1089 (setq executing-kbd-macro-index (or kmacro-step-edit-prefix-index kmacro-step-edit-key-index))
1090 (setq kmacro-step-edit-inserting (if (eq act 'insert-1) 1 t))
1093 (setq kmacro-step-edit-inserting (if (eq act 'replace-1) 1 t))
1094 (setq kmacro-step-edit-prefix-index nil)
1097 kmacro-step-edit-appending t))
1100 (setq kmacro-step-edit-inserting t)
1103 kmacro-step-edit-appending t))
1108 kmacro-step-edit-inserting t
1109 kmacro-step-edit-appending t)
1110 (setq kmacro-step-edit-active 'append-end))
1114 (setq executing-kbd-macro-index (or kmacro-step-edit-prefix-index kmacro-step-edit-key-index))
1115 (setq kmacro-step-edit-help (not kmacro-step-edit-help))
1118 (setq executing-kbd-macro-index (or kmacro-step-edit-prefix-index kmacro-step-edit-key-index))
1120 (if (> executing-kbd-macro-index (or kmacro-step-edit-prefix-index kmacro-step-edit-key-index))
1121 (setq kmacro-step-edit-new-macro
1122 (vconcat kmacro-step-edit-new-macro
1124 (or kmacro-step-edit-prefix-index kmacro-step-edit-key-index)
1126 kmacro-step-edit-prefix-index nil))
1131 (setq kmacro-step-edit-key-index next-index)))
1133 (defun kmacro-step-edit-insert ()
1134 ;; Pre-command hook function for step-edit in "insert" mode
1136 (max-mini-window-height kmacro-step-edit-mini-window-height)
1141 (setq executing-kbd-macro-index (or kmacro-step-edit-prefix-index kmacro-step-edit-key-index)
1142 kmacro-step-edit-prefix-index nil)
1143 (kmacro-step-edit-prompt macro nil)
1158 (when (numberp kmacro-step-edit-inserting)
1159 (setq kmacro-step-edit-inserting nil)
1167 ((memq cmd kmacro-step-edit-prefix-commands)
1172 (setq kmacro-step-edit-action t)
1175 (if (numberp kmacro-step-edit-inserting)
1176 (setq kmacro-step-edit-inserting nil))
1178 ((numberp kmacro-step-edit-inserting)
1179 (setq kmacro-step-edit-inserting nil)
1182 (setq kmacro-step-edit-inserting nil)
1183 (setq kmacro-step-edit-action nil)
1185 (setq kmacro-step-edit-prefix-index nil)
1189 (setq next-index kmacro-step-edit-key-index)
1197 (setq kmacro-step-edit-new-macro (vconcat kmacro-step-edit-new-macro keys))))
1198 (setq kmacro-step-edit-key-index next-index)))
1200 (defun kmacro-step-edit-pre-command ()
1201 (remove-hook 'post-command-hook 'kmacro-step-edit-post-command)
1202 (when kmacro-step-edit-active
1204 ((eq kmacro-step-edit-active 'ignore)
1206 ((eq kmacro-step-edit-active 'append-end)
1209 kmacro-step-edit-inserting t
1210 kmacro-step-edit-appending t
1211 kmacro-step-edit-active t)))
1212 ((/= kmacro-step-edit-num-input-keys num-input-keys)
1213 (if kmacro-step-edit-inserting
1214 (kmacro-step-edit-insert)
1215 (kmacro-step-edit-query))
1216 (setq kmacro-step-edit-num-input-keys num-input-keys)
1217 (if (and kmacro-step-edit-appending (not kmacro-step-edit-inserting))
1218 (setq kmacro-step-edit-appending nil
1219 kmacro-step-edit-active 'ignore)))))
1220 (when (eq kmacro-step-edit-active t)
1221 (add-hook 'post-command-hook 'kmacro-step-edit-post-command t)))
1223 (defun kmacro-step-edit-minibuf-setup ()
1224 (remove-hook 'pre-command-hook 'kmacro-step-edit-pre-command t)
1225 (when kmacro-step-edit-active
1226 (add-hook 'pre-command-hook 'kmacro-step-edit-pre-command nil t)))
1228 (defun kmacro-step-edit-post-command ()
1229 (remove-hook 'pre-command-hook 'kmacro-step-edit-pre-command)
1230 (when kmacro-step-edit-active
1231 (add-hook 'pre-command-hook 'kmacro-step-edit-pre-command nil nil)
1232 (if kmacro-step-edit-key-index
1233 (setq executing-kbd-macro-index kmacro-step-edit-key-index)
1234 (setq kmacro-step-edit-key-index executing-kbd-macro-index))))
1237 (defun kmacro-step-edit-macro ()
1240 To customize possible responses, change the \"bindings\" in `kmacro-step-edit-map'."
1242 (let ((kmacro-step-edit-active t)
1243 (kmacro-step-edit-new-macro "")
1244 (kmacro-step-edit-inserting nil)
1245 (kmacro-step-edit-appending nil)
1246 (kmacro-step-edit-replace t)
1247 (kmacro-step-edit-prefix-index nil)
1248 (kmacro-step-edit-key-index 0)
1249 (kmacro-step-edit-action nil)
1250 (kmacro-step-edit-help nil)
1251 (kmacro-step-edit-num-input-keys num-input-keys)
1255 (add-hook 'pre-command-hook 'kmacro-step-edit-pre-command nil)
1256 (add-hook 'post-command-hook 'kmacro-step-edit-post-command t)
1257 (add-hook 'minibuffer-setup-hook 'kmacro-step-edit-minibuf-setup t)
1259 (when (and kmacro-step-edit-replace
1260 kmacro-step-edit-new-macro
1261 (not (equal last-kbd-macro kmacro-step-edit-new-macro)))
1263 (setq last-kbd-macro kmacro-step-edit-new-macro))))