(pascal-indent-declaration): Avoid infinite loop

if edpos is at end of buffer.

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)