         (save-excursion
           (factor-previous-non-empty)
           (current-indentation)))))
+
+(defconst factor-indent-def-start-regex
+  (format "^\\(%s:\\)\\( \\|\n\\)" (regexp-opt factor-indent-def-starts)))
+
+(defsubst factor-at-begin-of-indent-def ()
+  (looking-at factor-indent-def-start-regex))
 
 (defun factor-indent-continuation ()
   (save-excursion

(defsubst factor-at-begin-of-def ()
  (looking-at factor-begin-of-def-regex))

(defsubst factor-at-begin-of-indent-def ()
  (looking-at factor-indent-def-start-regex))

(defsubst factor-at-end-of-def ()
  (looking-at factor-end-of-def-regex))


(defconst factor-no-indent-def-starts
  '("ARTICLE" "HELP" "SPECIALIZED-ARRAYS"))

(defconst factor-definition-start-regex
  (format "^\\(%s:\\) " (regexp-opt (append factor-no-indent-def-starts
                                            factor-indent-def-starts))))
