diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-10-26 16:05:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-10-26 16:05:58 +0000 |
| commit | 58d9d44e34de8bcbbd45846c037099cbb5daf857 (patch) | |
| tree | 59e6a5c8681149d1bc849b275f773c4daae363e8 | |
| parent | c3e3fd33fea40ca0e47e0804da214f2f9f498ab0 (diff) | |
| download | emacs-58d9d44e34de8bcbbd45846c037099cbb5daf857.tar.gz | |
(pascal-indent-declaration): Avoid infinite loop
if edpos is at end of buffer.
| -rw-r--r-- | lisp/progmodes/pascal.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index 2cad0a01afd..d3474619089 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -989,7 +989,8 @@ indent of the current line in parameterlist." ;; Do lineup (setq ind (pascal-get-lineup-indent stpos edpos lineup)) (goto-char stpos) - (while (<= (point) (marker-position edpos)) + (while (and (<= (point) (marker-position edpos)) + (not (eobp))) (if (search-forward lineup (pascal-get-end-of-line) 'move) (forward-char -1)) (delete-horizontal-space) |