Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 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 | eb7471ca2f53 |
| children | c0641205dcbb |
comparison
equal
deleted
inserted
replaced
| 106316:f4a3f47777f7 | 106317:c5e66d596cbf |
|---|---|
| 6719 Also do horizontal recentering." | 6719 Also do horizontal recentering." |
| 6720 (interactive "P") | 6720 (interactive "P") |
| 6721 (when (and gnus-auto-center-summary | 6721 (when (and gnus-auto-center-summary |
| 6722 (not (eq gnus-auto-center-summary 'vertical))) | 6722 (not (eq gnus-auto-center-summary 'vertical))) |
| 6723 (gnus-horizontal-recenter)) | 6723 (gnus-horizontal-recenter)) |
| 6724 (recenter n)) | 6724 (if (fboundp 'recenter-top-bottom) |
| 6725 (recenter-top-bottom n) | |
| 6726 (recenter n))) | |
| 6727 | |
| 6728 (put 'gnus-recenter 'isearch-scroll t) | |
| 6725 | 6729 |
| 6726 (defun gnus-summary-recenter () | 6730 (defun gnus-summary-recenter () |
| 6727 "Center point in the summary window. | 6731 "Center point in the summary window. |
| 6728 If `gnus-auto-center-summary' is nil, or the article buffer isn't | 6732 If `gnus-auto-center-summary' is nil, or the article buffer isn't |
| 6729 displayed, no centering will be performed." | 6733 displayed, no centering will be performed." |