Function: cvs-parse-run-table

cvs-parse-run-table is a byte-compiled function defined in pcvs-parse.el.gz.

Signature

(cvs-parse-run-table PARSE-SPEC)

Documentation

Run PARSE-SPEC and provide sensible default behavior.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs-parse.el.gz
;; This is how parser tables should be executed
(defun cvs-parse-run-table (parse-spec)
  "Run PARSE-SPEC and provide sensible default behavior."
  (unless (bolp) (forward-line 1))	;this should never be needed
  (let ((cvs-start (point)))
    (cvs-or
     (funcall parse-spec)

     (cl-dolist (re cvs-parse-ignored-messages)
       (when (cvs-match re) (cl-return t)))

     ;; This is a parse error.  Create a message-type fileinfo.
     (and
      (cvs-match ".*$")
      (cvs-create-fileinfo 'MESSAGE cvs-current-dir " "
			   ;; (concat " Unknown msg: '"
			   (cvs-parse-msg) ;; "'")
			   :subtype 'ERROR)))))