(reposition-window): Don't forward-char if eobp.

1993-07-20 05:55:31 +00:00
parent 00aa7e1cdf
commit f5d7a8f2f8
1 changed files with 2 additions and 1 deletions
--- a/lisp/reposition.el
+++ b/lisp/reposition.el
@@ -70,7 +70,8 @@ first comment line visible (if point is in a comment)."
 	       (repos-count-screen-lines-signed
 		;; the beginning of the preceding comment
 		(save-excursion
-		  (forward-char 1) (end-of-defun -1) 
+		  (if (not (eobp)) (forward-char 1))
+		  (end-of-defun -1) 
 		  ;; Skip whitespace, newlines, and form feeds.
 		  (re-search-forward "[^\\s \n\014]")
 		  (backward-char 1)