(end-of-buffer): Recenter overlay lists.

1994-06-13 23:40:33 +00:00
parent e7601974b0
commit 97dfc68c2e
1 changed files with 3 additions and 1 deletions
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -289,7 +289,9 @@ Don't use this command in Lisp programs!
 		    (goto-char (window-start))
 		    (vertical-motion (window-height))
 		    (< (point) old-point)))
-	(recenter -3))))
+	(progn
+	  (overlay-recenter (point))
+	  (recenter -3)))))

 (defun mark-whole-buffer ()
  "Put point at beginning and mark at end of buffer.