diff options
| author | Juri Linkov <juri@jurta.org> | 2009-11-29 23:38:18 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2009-11-29 23:38:18 +0000 |
| commit | 5aa75bd88999cae8af18bcbe6055881680c8e064 (patch) | |
| tree | e64276b2e3af874ae5e06ef5da8721da8cca7420 /lisp/gnus | |
| parent | 0116abbdeb4ab81438d90bda45b753ec8dd0a7e9 (diff) | |
* 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)
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 6 |
2 files changed, 11 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 567b8f76303..0959a051bd6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -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) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 21a213d4f02..658193bd508 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/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. |