. domtool-font-lock-syntactic-face-function)))
(set (make-local-variable 'comment-start) "(* ")
(set (make-local-variable 'comment-end) " *)")
- (set (make-local-variable 'comment-nested) t))
+ (set (make-local-variable 'comment-nested) t)
+
+ (set (make-local-variable 'compile-command)
+ (concat "domtool -tc " (file-relative-name buffer-file-name))))
(defun domtool-indent-line ()
(let ((savep (> (current-column) (current-indentation)))