(pascal-indent-declaration): Avoid infinite loop

if edpos is at end of buffer.

(pascal-indent-declaration): Avoid infinite loop
if edpos is at end of buffer.
7c9097d0 · Richard M. Stallman · 91f64ec2 · 7c9097d0
Commit 7c9097d0 authored Oct 26, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/progmodes/pascal.el lisp/progmodes/pascal.el +2 -1

No files found.
--- 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)