(not (vectorp (symbol-function symbol)))
(error "Function %s is already defined and not a keyboard macro."
symbol))
+ (if (string-equal symbol "")
+ (error "No command name given"))
(fset symbol last-kbd-macro))
;;;###autoload
\\[recenter] Redisplay the screen, then ask again.
\\[edit] Enter recursive edit; ask again when you exit from that."
(interactive "P")
- (or executing-macro
+ (or executing-kbd-macro
defining-kbd-macro
(error "Not defining or executing kbd macro"))
(if flag
- (let (executing-macro defining-kbd-macro)
+ (let (executing-kbd-macro defining-kbd-macro)
(recursive-edit))
- (if (not executing-macro)
+ (if (not executing-kbd-macro)
nil
(let ((loop t)
(msg (substitute-command-keys
"Proceed with macro?\\<query-replace-map>\
(\\[act], \\[skip], \\[exit], \\[recenter], \\[edit]) ")))
(while loop
- (let ((key (let ((executing-macro nil)
+ (let ((key (let ((executing-kbd-macro nil)
(defining-kbd-macro nil))
- (message msg)
+ (message "%s" msg)
(read-event)))
def)
(setq key (vector key))
(setq loop nil))
((eq def 'skip)
(setq loop nil)
- (setq executing-macro ""))
+ (setq executing-kbd-macro ""))
((eq def 'exit)
(setq loop nil)
- (setq executing-macro t))
+ (setq executing-kbd-macro t))
((eq def 'recenter)
(recenter nil))
((eq def 'edit)
- (let (executing-macro defining-kbd-macro)
+ (let (executing-kbd-macro defining-kbd-macro)
(recursive-edit)))
((eq def 'quit)
(setq quit-flag t))
;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query)
+(provide 'macros)
+
;;; macros.el ends here