Mercurial > emacs
changeset 106317:c5e66d596cbf
* 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)
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sun, 29 Nov 2009 23:38:18 +0000 |
| parents | f4a3f47777f7 |
| children | ef396422d3f1 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-sum.el |
| diffstat | 2 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Nov 29 23:34:05 2009 +0000 +++ b/lisp/gnus/ChangeLog Sun Nov 29 23:38:18 2009 +0000 @@ -1,3 +1,9 @@ +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-24 Katsumi Yamaoka <yamaoka@jpl.org> * message.el (message-from-style, message-interactive)
--- a/lisp/gnus/gnus-sum.el Sun Nov 29 23:34:05 2009 +0000 +++ b/lisp/gnus/gnus-sum.el Sun Nov 29 23:38:18 2009 +0000 @@ -6721,7 +6721,11 @@ (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.