Skip to content

GitLab

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
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
lisp/progmodes/pascal.el
View file @ c8d3ad6a
...@@ -897,13 +897,13 @@ Return a list of two elements: (INDENT-TYPE INDENT-LEVEL)." ...@@ -897,13 +897,13 @@ Return a list of two elements: (INDENT-TYPE INDENT-LEVEL)."
(and (not complete) (and (not complete)
(looking-at pascal-sub-block-re)) (looking-at pascal-sub-block-re))
(throw 'nesting 'block)) (throw 'nesting 'block))
(;--No known statements
(bobp)
(throw 'nesting 'unknown))
(;--Found complete statement (;--Found complete statement
(save-excursion (forward-sexp 1) (save-excursion (forward-sexp 1)
(= (following-char) ?\;)) (= (following-char) ?\;))
(setq complete t)) (setq complete t))
(;--No known statements
(bobp)
(throw 'nesting 'unknown))
))))) )))))
;; Return type of block and indent level. ;; 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