[Emacs-diffs] emacs/lisp ChangeLog view.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/05/26 14:37:56

Modified files:
        lisp           : ChangeLog view.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15658&r2=1.15659
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/view.el?cvsroot=emacs&r1=1.101&r2=1.102

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15658
retrieving revision 1.15659
diff -u -b -r1.15658 -r1.15659
--- ChangeLog   26 May 2009 03:32:02 -0000      1.15658
+++ ChangeLog   26 May 2009 14:37:51 -0000      1.15659
@@ -1,3 +1,8 @@
+2009-05-26  Chong Yidong  <address@hidden>
+
+       * view.el (view-recenter): Allow recenter to compute window height
+       normally.
+
 2009-05-26  Kenichi Handa  <address@hidden>
 
        * textmodes/table.el (table--unibyte-char-to-multibyte): Function

Index: view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/view.el,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -b -r1.101 -r1.102
--- view.el     5 Jan 2009 03:19:54 -0000       1.101
+++ view.el     26 May 2009 14:37:55 -0000      1.102
@@ -757,8 +757,8 @@
 ;;  (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.