From f5d7a8f2f81df6eb76c138f2d1dd4e6b59f75d67 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Jul 1993 05:55:31 +0000 Subject: (reposition-window): Don't forward-char if eobp. --- lisp/reposition.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/reposition.el') diff --git a/lisp/reposition.el b/lisp/reposition.el index d981eefec5e..0dda524f079 100644 --- 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) -- cgit v1.2.1