# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743147731 0
# Node ID b85c00ac4ae31472dee5136143f65ab42f62235e
# Parent  d7cb993a93b16723752d929cc5681f67d455025d
(reposition-window): Don't forward-char if eobp.

diff -r d7cb993a93b1 -r b85c00ac4ae3 lisp/reposition.el
--- a/lisp/reposition.el	Tue Jul 20 05:46:10 1993 +0000
+++ b/lisp/reposition.el	Tue Jul 20 05:55:31 1993 +0000
@@ -70,7 +70,8 @@
 	       (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)