changeset 4182:b85c00ac4ae3

(reposition-window): Don't forward-char if eobp.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Jul 1993 05:55:31 +0000
parents d7cb993a93b1
children a5f0a739d87d
files lisp/reposition.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)