From f2872f04a46404e026afce21904248cbb664bc8c Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 26 May 2009 14:37:51 +0000 Subject: [PATCH] * view.el (view-recenter): Allow recenter to compute window height normally. --- lisp/ChangeLog | 5 +++++ lisp/view.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 56ed296fb69..4cb9e41356f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-05-26 Chong Yidong + + * view.el (view-recenter): Allow recenter to compute window height + normally. + 2009-05-26 Kenichi Handa * textmodes/table.el (table--unibyte-char-to-multibyte): Function diff --git a/lisp/view.el b/lisp/view.el index 2bcb208095a..d290c1c3f5d 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -757,8 +757,8 @@ previous state and go to previous buffer or window." ;; (setq this-command view-last-command-entry)) (defun view-recenter () - ;; Center point in window. - (recenter (/ (view-window-size) 2))) + ;; Recenter point in window and redisplay normally. + (recenter '(1))) (defun view-page-size-default (lines) ;; Get page size. -- 2.39.5