emacs/lisp/edmacro.el

64 ;; With a prefix argument, `edit-kbd-macro' will format the
78 (require 'kmacro)
98 (defun edit-kbd-macro (keys &optional prefix finish-hook store-hook)
104 With a prefix argument, format the macro in a more concise way."
109 	  kmacro)
113 	    ((or (memq cmd '(call-last-kbd-macro kmacro-call-macro
114 			     kmacro-end-or-call-macro kmacro-end-and-call-macro))
139       (when (setq kmacro (kmacro-extract-lambda mac))
140 	(setq mac (car kmacro)
141 	      mac-counter (nth 1 kmacro)
142 	      mac-format (nth 2 kmacro)))
150 	     (fmtv (edmacro-format-keys mmac (not prefix)))
151 	     (buf (get-buffer-create "*Edit Macro*")))
189 (defun edit-last-kbd-macro (&optional prefix)
192   (edit-kbd-macro 'call-last-kbd-macro prefix))
195 (defun edit-named-kbd-macro (&optional prefix)
198   (edit-kbd-macro 'execute-extended-command prefix))
237 	(mac-counter nil) (mac-format nil) (kmacro nil)
252 			     (not (setq kmacro (get cmd 'kmacro)))
270 				 (not (kmacro-extract-lambda b))
273 					      (get b 'kmacro))))
327 			  (kmacro-lambda-form mac mac-counter mac-format)
340 						(kmacro-lambda-form mac mac-counter mac-format)
405    that the Meta prefix is allowed on a sequence of digits and optional
457       (let* ((prefix
474 			      (prog1 (loop repeat i concat "C-u ")
517 	(cond ((and (eq bind 'self-insert-command) (not prefix)
573 	(if prefix
574 	    (setq desc (concat (edmacro-sanitize-for-string prefix) desc)))
607 Return nil if the sequences match.  If one sequence is a prefix of the
730 	       (let ((orig-word word) (prefix 0) (bits 0))
736 		   (incf prefix 2)
740 		   (incf prefix)
757 			(error "%s must prefix a single character, not %s"
758 			       (substring orig-word 0 prefix) word))
769 	  (loop repeat times do (callf vconcat res key)))))