Mercurial > emacs
comparison lisp/view.el @ 103295:578359a0fca6
* view.el (view-recenter): Allow recenter to compute window height
normally.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 26 May 2009 14:37:51 +0000 |
| parents | a9dc0e7c3f2b |
| children | 1120e729d920 |
comparison
equal
deleted
inserted
replaced
| 103294:299eb8fbcd49 | 103295:578359a0fca6 |
|---|---|
| 755 ;; (eq view-last-command-entry last-command)) | 755 ;; (eq view-last-command-entry last-command)) |
| 756 ;; (funcall view-last-command view-last-command-argument)) | 756 ;; (funcall view-last-command view-last-command-argument)) |
| 757 ;; (setq this-command view-last-command-entry)) | 757 ;; (setq this-command view-last-command-entry)) |
| 758 | 758 |
| 759 (defun view-recenter () | 759 (defun view-recenter () |
| 760 ;; Center point in window. | 760 ;; Recenter point in window and redisplay normally. |
| 761 (recenter (/ (view-window-size) 2))) | 761 (recenter '(1))) |
| 762 | 762 |
| 763 (defun view-page-size-default (lines) | 763 (defun view-page-size-default (lines) |
| 764 ;; Get page size. | 764 ;; Get page size. |
| 765 (let ((default (- (view-window-size) next-screen-context-lines))) | 765 (let ((default (- (view-window-size) next-screen-context-lines))) |
| 766 (if (or (null lines) (zerop (setq lines (prefix-numeric-value lines)))) | 766 (if (or (null lines) (zerop (setq lines (prefix-numeric-value lines)))) |