diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-19 03:23:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-19 03:23:10 +0000 |
| commit | c8d3ad6afd20aac24c0d0d81b4d9d9359664bbac (patch) | |
| tree | f946ced3ec5931fb206788ce16615be8b50aa6c1 /lisp | |
| parent | 265519e3f7184dff54f2aff486d11abaf9c6b0e0 (diff) | |
| download | emacs-c8d3ad6afd20aac24c0d0d81b4d9d9359664bbac.tar.gz | |
(pascal-calculate-indent): Code with an invalid
beginning could cause Emacs to hang. Fixed.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/pascal.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index f4bc8d41a84..3cbfc5c8fd2 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -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. |