Function: cvs-do-match

cvs-do-match is a byte-compiled function defined in pcvs-parse.el.gz.

Signature

(cvs-do-match RE &rest MATCHES)

Documentation

Internal function for the cvs-match macro.

Match RE and if successful, execute MATCHES.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs-parse.el.gz
(defun cvs-do-match (re &rest matches)
  "Internal function for the `cvs-match' macro.
Match RE and if successful, execute MATCHES."
  ;; Is it a match?
  (when (looking-at re)
    (goto-char (match-end 0))
    ;; Skip the newline (unless we already are at the end of the buffer).
    (when (and (eolp) (< (point) (point-max))) (forward-char))
    ;; assign the matches
    (dolist (match matches t)
      (let ((val (cdr match)))
	(set (car match) (if (integerp val) (match-string val) val))))))