      zotonic-tpl-lookup-matcher
      zotonic-tpl-index-matcher
      ))
+   ;; this does NOT work - emacs hangs with this construct
+   ;; (cons
+   ;;  ;; find comment blocks
+   ;;  "{%[ \t]*comment[ \t]*%}\\(.*\\|\n*\\)*{%[ \t]*endcomment[ \t]*%}"
+   ;;  (list
+   ;;   '(1 font-lock-comment-face)
+   ;;   ))
    ))
 
 (defvar zotonic-tpl-font-lock-defaults
   (list
-   (zotonic-tpl-font-lock-tags)
+   (append
+    (zotonic-tpl-font-lock-tags)
+    (zotonic-tpl-tag-soup-font-lock-tags))
    ))
 
 (defun zotonic-tpl-font-lock-extend-region ()

;;; Tag soup functions
;;;

(defun zotonic-tpl-tag-soup-find-open-tag (limit)
  "Search backwards for the open tag that is being closed by the tag at point."
  (interactive (list (point-min)))

                (setq indent (current-column))))
        (goto-char start))
      (while (not (eolp))
        (if (looking-at-p "<[^/]\\([^/>]*\\|\\(/[^/>]\\)*\\)*>")
            (setq indent (+ indent tab-width)))
        (forward-char))
      indent)))
