Commit c8d3ad6a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

beginning could cause Emacs to hang.  Fixed.
parent 265519e3
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment