 
           ;; if previous line was already a continued line, don't indent this
           ;; one again
-          (when (> (current-line) 1)
+          (when (> (zomp-current-line) 1)
             (previous-line)
             (end-of-line)
             (when (looking-back zomp-continued-line-regexp)

    ("/\\*\\*[^\\*]*\\*/" 0 font-lock-doc-face t t)
    ("'[^']'" 0 font-lock-string-face)

    ("// *\\(TODO\\)" 1 todo-face t t)

    ("\\(\\b[a-zA-Z0-9_]+\\b:\\) +[^ \n]" 1 font-lock-keyword-face)
    ("\\bconst\\b" 0 font-lock-keyword-face)

  "A face used to highlight expression for a brief time after they have been
evaluated.")

(defface zomp-todo-face
  '((t (:foreground "#A00")))
  "A face for todo items")
(defvar zomp-todo-face 'zomp-todo-face)

(defface zomp-testsuite-directive-face
  '((t (:inherit font-lock-doc-face :weight bold)))
