2009-11-30 Katsumi Yamaoka <yamaoka@jpl.org>

	* lpath.el: Fbind recenter-top-bottom for Emacs 21, 22, and (S)XEmacs.

2009-11-29  Juri Linkov  <juri@jurta.org>

	* gnus-sum.el (gnus-recenter): Use `recenter-top-bottom'
	when it is fboundp in GNU Emacs 23.1.  Put `isearch-scroll' property
	on `gnus-recenter'. (Bug#4981)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d0fcb7..de4f65c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2009-11-30  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lpath.el: Fbind recenter-top-bottom for Emacs 21, 22, and (S)XEmacs.
+
+2009-11-29  Juri Linkov  <juri@jurta.org>
+
+       * gnus-sum.el (gnus-recenter): Use `recenter-top-bottom'
+       when it is fboundp in GNU Emacs 23.1.  Put `isearch-scroll' property
+       on `gnus-recenter'. (Bug#4981)
+
 2009-11-26  Kevin Ryde  <user42@zip.com.au>
 
        * sha1.el (sha1-string-external): default-directory "/" in case

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 21a213d..658193b 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6721,7 +6721,11 @@ Also do horizontal recentering."
   (when (and gnus-auto-center-summary
             (not (eq gnus-auto-center-summary 'vertical)))
     (gnus-horizontal-recenter))
-  (recenter n))
+  (if (fboundp 'recenter-top-bottom)
+      (recenter-top-bottom n)
+    (recenter n)))
+
+(put 'gnus-recenter 'isearch-scroll t)
 
 (defun gnus-summary-recenter ()
   "Center point in the summary window.

diff --git a/lisp/lpath.el b/lisp/lpath.el
index b88667a..efa58a9 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -20,9 +20,10 @@
     (maybe-fbind
      '(Info-index
        Info-index-next Info-menu bbdb-complete-name display-time-event-handler
-       epg-check-configuration find-coding-system frame-device w3-do-setup
-       rmail-swap-buffers-maybe w3-prepare-buffer w3-region w32-focus-frame
-       w3m-detect-meta-charset w3m-region))
+       epg-check-configuration find-coding-system frame-device
+       recenter-top-bottom rmail-swap-buffers-maybe w3-do-setup
+       w3-prepare-buffer w3-region w32-focus-frame w3m-detect-meta-charset
+       w3m-region))
     (maybe-bind
      '(w3m-link-map)))
 
@@ -63,10 +64,11 @@
      mail-abbrevs-setup make-mode-line-mouse-map make-network-process
      mouse-minibuffer-check mouse-movement-p mouse-scroll-subr
      pgg-display-output-buffer posn-point posn-window put-image read-event
-     rmail-msg-restore-non-pruned-header rmail-swap-buffers-maybe
-     select-safe-coding-system sort-coding-systems track-mouse ucs-to-char
-     url-generic-parse-url url-http-file-exists-p url-insert-file-contents
-     vcard-pretty-print w3m-detect-meta-charset w3m-region window-edges))
+     recenter-top-bottom rmail-msg-restore-non-pruned-header
+     rmail-swap-buffers-maybe select-safe-coding-system sort-coding-systems
+     track-mouse ucs-to-char url-generic-parse-url url-http-file-exists-p
+     url-insert-file-contents vcard-pretty-print w3m-detect-meta-charset
+     w3m-region window-edges))
   (maybe-bind
    '(adaptive-fill-first-line-regexp
      buffer-display-table cursor-in-non-selected-windows