Mercurial > emacs
diff lisp/progmodes/pascal.el @ 24118:e9cc3f97cdc3
(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 | 05e90accc380 |
children | 052b3b8dcccc |
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.