comparison lisp/macros.el @ 391:4b1d23627759

*** empty log message ***

390:4dfee0c58c2a

		   (let (executing-macro defining-kbd-macro)
		     (recursive-edit))))))))))

;;;###autoload
(defun apply-macro-to-region-lines (top bottom &optional macro)
  "For each complete line in the current region, move to the beginning of
the line, and run the last keyboard macro.

When called from lisp, this function takes two arguments TOP and
BOTTOM, describing the current region.  TOP must be before BOTTOM.
The optional third argument MACRO specifies a keyboard macro to
execute.

and then select the region of un-tablified names and use
`\\[apply-macro-to-region-lines]' to build the table from the names.
"
  (interactive "r")
  (if (null last-kbd-macro)
      (error "No keyboard macro has been defined."))
  (save-excursion
    (let ((end-marker (progn
			(goto-char bottom)
			(beginning-of-line)
			(point-marker))))
      (goto-char top)
      (if (not (bolp))
	  (forward-line 1))
      (while (< (point) end-marker)
	(save-excursion
	  (execute-kbd-macro (or macro last-kbd-macro)))
	(forward-line 1)))))

;;;###autoload
(define-key ctl-x-map "q" 'kbd-macro-query)

391:4b1d23627759

		   (let (executing-macro defining-kbd-macro)
		     (recursive-edit))))))))))

;;;###autoload
(defun apply-macro-to-region-lines (top bottom &optional macro)
  "For each complete line between point and mark, move to the beginning
of the line, and run the last keyboard macro.

When called from lisp, this function takes two arguments TOP and
BOTTOM, describing the current region.  TOP must be before BOTTOM.
The optional third argument MACRO specifies a keyboard macro to
execute.

and then select the region of un-tablified names and use
`\\[apply-macro-to-region-lines]' to build the table from the names.
"
  (interactive "r")
  (or macro
      (progn
	(if (null last-kbd-macro)
	    (error "No keyboard macro has been defined."))
	(setq macro last-kbd-macro)))
  (save-excursion
    (let ((end-marker (progn
			(goto-char bottom)
			(beginning-of-line)
			(point-marker))))
      (goto-char top)
      (if (not (bolp))
	  (forward-line 1))
      (while (< (point) end-marker)
	(save-excursion
	  (execute-kbd-macro macro))
	(forward-line 1)))))

;;;###autoload
(define-key ctl-x-map "q" 'kbd-macro-query)