Lines Matching defs:macro
425 (defun calc-user-define-kbd-macro (arg)
427 (or last-kbd-macro
428 (error "No keyboard macro defined"))
429 (message "Define last kbd macro on user key: z-")
451 'calc-execute-kbd-macro)))))
452 (error "Function %s is already defined and not a keyboard macro"
456 last-kbd-macro
460 (list 'calc-execute-kbd-macro
461 (vector (key-description last-kbd-macro)
462 last-kbd-macro)
667 (or last-kbd-macro
668 (error "No keyboard macro defined"))
669 (setq calc-invocation-macro last-kbd-macro)
670 (message "Use `C-x * Z' to invoke this macro"))
687 (eq (car-safe (nth 3 cmd)) 'calc-execute-kbd-macro)))
692 (list 'calc-edit-macro-finish-edit cmdname kys)
694 "Editing keyboard macro (%s, bound to %s).\n"
698 (calc-edit-format-macro-buffer)
723 ;; Formatting the macro buffer
727 (defun calc-edit-macro-repeats ()
739 (defun calc-edit-macro-adjust-buffer ()
740 (calc-edit-macro-repeats)
749 (defun calc-edit-macro-command ()
750 "Return the command on the current line in a Calc macro editing buffer."
759 (defun calc-edit-macro-command-type ()
760 "Return the type of command on the current line in a Calc macro editing buffer."
774 (defun calc-edit-macro-combine-alg-ent ()
776 (let ((line (calc-edit-macro-command))
777 (type (calc-edit-macro-command-type))
782 (setq curline (calc-edit-macro-command))
788 (setq curline (calc-edit-macro-command)))
801 (defun calc-edit-macro-combine-ext-command ()
803 (let ((cmdbeg (calc-edit-macro-command))
805 (type (calc-edit-macro-command-type))
810 (setq curline (calc-edit-macro-command))
816 (setq curline (calc-edit-macro-command)))
828 (defun calc-edit-macro-combine-var-name ()
830 (let ((line (calc-edit-macro-command))
837 (setq curline (calc-edit-macro-command))
843 (setq curline (calc-edit-macro-command)))
855 (defun calc-edit-macro-combine-digits ()
857 (let ((line (calc-edit-macro-command))
861 (while (string-equal (calc-edit-macro-command-type) "calcDigit-start")
862 (setq line (concat line (calc-edit-macro-command)))
869 (defun calc-edit-format-macro-buffer ()
870 "Rewrite the Calc macro editing buffer."
871 (calc-edit-macro-adjust-buffer)
873 (let ((type (calc-edit-macro-command-type)))
879 (calc-edit-macro-combine-alg-ent))
881 (calc-edit-macro-combine-ext-command))
883 (calc-edit-macro-combine-digits))
903 (calc-edit-macro-combine-var-name))
909 (calc-edit-macro-combine-var-name)
910 (calc-edit-macro-combine-var-name))
912 (setq type (calc-edit-macro-command-type))))
915 ;; Finish editing the macro
917 (defun calc-edit-macro-pre-finish-edit ()
924 (defun calc-edit-macro-finish-edit (cmdname key)
925 "Finish editing a Calc macro.
929 (calc-edit-macro-pre-finish-edit)
937 (list 'calc-execute-kbd-macro
984 (message "Keyboard macro: %s" cmd))
1048 (and (eq (car-safe (nth 3 fcmd)) 'calc-execute-kbd-macro)
1050 (progn (and (fboundp 'edit-kbd-macro)
1051 (edit-kbd-macro nil))
1125 (defun calc-call-last-kbd-macro (arg)
1127 (and defining-kbd-macro
1128 (error "Can't execute anonymous macro while defining one"))
1129 (or last-kbd-macro
1130 (error "No kbd macro has been defined"))
1131 (calc-execute-kbd-macro last-kbd-macro arg))
1133 (defun calc-execute-kbd-macro (mac arg &rest prefix)
1138 (aset mac 1 (progn (and (fboundp 'edit-kbd-macro)
1139 (edit-kbd-macro nil))
1142 (execute-kbd-macro mac (- (prefix-numeric-value arg)))
1143 (if calc-executing-macro
1144 (execute-kbd-macro mac arg)
1151 (let ((calc-executing-macro mac))
1152 (execute-kbd-macro mac arg))
1186 (defun calc-push-list-in-macro (vals m sels)
1194 (defun calc-pop-stack-in-macro (n mm)
1207 (if defining-kbd-macro
1209 (if defining-kbd-macro
1223 (error "Unterminated Z[ in keyboard macro"))
1237 (and defining-kbd-macro
1244 (if defining-kbd-macro
1249 (if defining-kbd-macro
1288 (or executing-kbd-macro
1293 (error "Unterminated Z%c in keyboard macro" open))
1311 (error "Mismatched Z%c and Z%c in keyboard macro" open ch))
1312 (or executing-kbd-macro
1315 (and (not executing-kbd-macro)
1334 (execute-kbd-macro (car part))
1341 (execute-kbd-macro body)
1347 (or executing-kbd-macro
1352 (error "Unbalanced Z> in keyboard macro"))
1356 (error "Unbalanced Z) in keyboard macro"))
1360 (error "Unbalanced Z} in keyboard macro"))
1368 (error "Keyboard macro aborted")))))
1414 (if (or executing-kbd-macro defining-kbd-macro)
1416 (if defining-kbd-macro
1421 (error "Unterminated Z` in keyboard macro"))
1433 (if defining-kbd-macro
1436 (execute-kbd-macro (substring body 0 -2))))
1447 (error "Unbalanced Z' in keyboard macro")))
1457 (let ((defining-kbd-macro nil)
1458 (executing-kbd-macro nil)