            PARENT-BLOCK-PAREN-COLUMN
            (PARENT-BLOCK-LINE-BEGIN PARENT-BLOCK-LINE-END)
            PARENT-BLOCK-POSN)
-          (PARENT-STATEMENT-NAME
-           PARENT-STATEMENT-INDENT
-           PARENT-STATEMENT-IS-QUOTED
-           (PARENT-STATEMENT-LINE-BEGIN PARENT-STATEMENT-LINE-END)
-           PARENT-STATEMENT-POSN)
+          (PARENT-BLOCK-STATEMENT-NAME
+           PARENT-BLOCK-STATEMENT-INDENT
+           PARENT-BLOCK-STATEMENT-IS-QUOTED
+           (PARENT-BLOCK-STATEMENT-LINE-BEGIN PARENT-BLOCK-STATEMENT-LINE-END)
+           PARENT-BLOCK-STATEMENT-POSN)
           )
 Most of these should be self-explanatory.
 

                (and (equal parent-statement-name "If")
                     (not (re-search-backward "," parent-block-posn t))))
              'conditional)
             (t
              (save-excursion
                (re-search-backward "\\S " parent-block-posn t)
                (if (looking-at "[][(){},;!]")
                    ;; If the preceeding nonblank char was some form of paren,
                    ;; a statement separator, or the comment start char, it's
                    ;; a statement.
                    'statement
                  ;; else
                  'statement-continuation)))
             );;end cond
            );;end setq
      );; end excursion

    )
  )


;;------------------------------------------------------------
;;
