* view.el (view-recenter): Allow recenter to compute window height

normally.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 56ed296fb692a1589df2ee216620ceefca561551..4cb9e41356f2be97b01a1d0907d7f9eccbb2d458 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-05-26  Chong Yidong  <cyd@stupidchicken.com>
+
+       * view.el (view-recenter): Allow recenter to compute window height
+       normally.
+
 2009-05-26  Kenichi Handa  <handa@m17n.org>
 
        * textmodes/table.el (table--unibyte-char-to-multibyte): Function

diff --git a/lisp/view.el b/lisp/view.el
index 2bcb208095a67434ee9cf856cf4a5d6bf1b94a28..d290c1c3f5d7dbcfaf8e4a3d8f4e3d3b45d791de 100644 (file)
--- 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.