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

This commit is contained in:
Richard M. Stallman 1993-07-20 05:55:31 +00:00
parent 00aa7e1cdf
commit f5d7a8f2f8

View file

@ -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)