Function: faceup-test-font-lock-file

faceup-test-font-lock-file is a byte-compiled function defined in faceup.el.gz.

Signature

(faceup-test-font-lock-file MODE FILE &optional FACEUP-FILE)

Documentation

Verify that FILE is fontified as FACEUP-FILE for major mode MODE.

If FACEUP-FILE is omitted, FILE.faceup is used.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/faceup.el.gz
(defun faceup-test-font-lock-file (mode file &optional faceup-file)
  "Verify that FILE is fontified as FACEUP-FILE for major mode MODE.

If FACEUP-FILE is omitted, FILE.faceup is used."
  (unless faceup-file
    (setq faceup-file (concat file ".faceup")))
  (let ((faceup (with-temp-buffer
                  (insert-file-contents faceup-file)
                  (buffer-substring-no-properties (point-min) (point-max)))))
    (with-temp-buffer
      (insert-file-contents file)
      (faceup-test-font-lock-buffer mode faceup))))