Mercurial > emacs
comparison lisp/simple.el @ 7877:0eb805c768af
(end-of-buffer): Recenter overlay lists.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Jun 1994 23:40:33 +0000 |
| parents | d729f75fff04 |
| children | 4ab8723cd491 |
comparison
equal
deleted
inserted
replaced
| 7876:bffe692e2844 | 7877:0eb805c768af |
|---|---|
| 287 (if (let ((old-point (point))) | 287 (if (let ((old-point (point))) |
| 288 (save-excursion | 288 (save-excursion |
| 289 (goto-char (window-start)) | 289 (goto-char (window-start)) |
| 290 (vertical-motion (window-height)) | 290 (vertical-motion (window-height)) |
| 291 (< (point) old-point))) | 291 (< (point) old-point))) |
| 292 (recenter -3)))) | 292 (progn |
| 293 (overlay-recenter (point)) | |
| 294 (recenter -3))))) | |
| 293 | 295 |
| 294 (defun mark-whole-buffer () | 296 (defun mark-whole-buffer () |
| 295 "Put point at beginning and mark at end of buffer. | 297 "Put point at beginning and mark at end of buffer. |
| 296 You probably should not use this function in Lisp programs; | 298 You probably should not use this function in Lisp programs; |
| 297 it is usually a mistake for a Lisp function to use any subroutine | 299 it is usually a mistake for a Lisp function to use any subroutine |