*scratch*.el

(defun check-cfengine-block-length (filename)
  (save-excursion
    (find-file filename)
    (goto-char (point-min))
    (while (re-search-forward "\\[%CFEngine +BEGIN *%\\]" nil 'noerror)
      (let ((start (match-end 0))
            (start-line (what-line)))
        (if (re-search-forward "\\[%CFEngine +END *%\\]" nil 'noerror)
            (let ((end (match-beginning 0))
                  (end-line (what-line)))
              (if (> (- end start) 4096)
                  (message "CFEngine block between lines %s and %s larger than 4096 characters." start-line end-line))))))
    (kill-buffer (current-buffer))))