 
 (defsubst factor-beginning-of-sexp-pos ()
   (save-excursion (factor-beginning-of-sexp) (point)))
+
+(defun factor-find-end-of-def (&rest foo)
+  (save-excursion
+    (re-search-forward " ;" nil t)
+    (1- (point))))
 
  

    ;; definition that is terminated with ";" is searched for words
    ;; that are slot names which are highlighted with the face
    ;; factor-font-lock-symbol.

    (,(format
       "\\(%s\\):[ \n]+%s\\(?:[ \n]+<[ \n]+%s\\)?"
       (regexp-opt '("STRUCT" "TUPLE" "UNION-STRUCT"))


(defface factor-font-lock-stack-effect '((t :inherit font-lock-comment-face))
  "Face for Factor stack effect declarations."
  :group 'factor-faces
  :group 'faces)

(defface factor-font-lock-type-in-stack-effect '((t :inherit font-lock-comment-face
                                                    :bold t))
  "Face for Factor types in stack effect declarations."
  :group 'factor-faces
  :group 'faces)

