Mercurial > emacs

changeset 24118:e9cc3f97cdc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pascal-calculate-indent): Code with an invalid beginning could cause Emacs to hang. Fixed.
author Richard M. Stallman <rms@gnu.org>
date Tue, 19 Jan 1999 03:23:10 +0000
parents 9430507fe106
children aceb3b94328d
files lisp/progmodes/pascal.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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.