Function: kmacro-quit-counter

kmacro-quit-counter is a byte-compiled function defined in kmacro.el.gz.

Signature

(kmacro-quit-counter PRED ARG)

Documentation

Quit the keyboard macro if PRED returns non-nil.

PRED is called with two arguments: kmacro-counter and ARG. ARG defaults to zero if it is nil.

Source Code

;; Defined in /usr/src/emacs/lisp/kmacro.el.gz
(defun kmacro-quit-counter (pred arg)
  "Quit the keyboard macro if PRED returns non-nil.
PRED is called with two arguments: `kmacro-counter' and ARG.
ARG defaults to zero if it is nil."
  (when kmacro-initial-counter-value
    (setq kmacro-counter kmacro-initial-counter-value
          kmacro-initial-counter-value nil))
  (let ((arg (if (null current-prefix-arg)
                 0 arg)))
    (when (funcall pred kmacro-counter arg)
      (keyboard-quit))))