# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 916716190 0
# Node ID e9cc3f97cdc3aeec1ef2b10b98b1cd3c195bb183
# Parent  9430507fe106e13424abb675fe51f811f5c61226
(pascal-calculate-indent): Code with an invalid
beginning could cause Emacs to hang.  Fixed.

diff -r 9430507fe106 -r e9cc3f97cdc3 lisp/progmodes/pascal.el
--- a/lisp/progmodes/pascal.el	Tue Jan 19 03:07:53 1999 +0000
+++ b/lisp/progmodes/pascal.el	Tue Jan 19 03:23:10 1999 +0000
@@ -897,13 +897,13 @@
 			    (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.