(pascal-calculate-indent): Code with an invalid

beginning could cause Emacs to hang.  Fixed.

1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index f4bc8d41a84..3cbfc5c8fd2 100644
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -897,13 +897,13 @@ Return a list of two elements: (INDENT-TYPE INDENT-LEVEL)."
                             (and (not complete)
                                  (looking-at pascal-sub-block-re))
                             (throw 'nesting 'block))
+                           (;--No known statements
+                            (bobp)
+                            (throw 'nesting 'unknown))
                            (;--Found complete statement
                             (save-excursion (forward-sexp 1)
                                             (= (following-char) ?\;))
                             (setq complete t))
-                           (;--No known statements
-                            (bobp)
-                            (throw 'nesting 'unknown))
                            )))))
 
       ;; Return type of block and indent level.