Mercurial > emacs
changeset 64170:7f2745a4e8c5
(gnus-article-next-page, gnus-article-next-page-1)
(gnus-article-prev-page): Take scroll-margin into consideration.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 08 Jul 2005 13:48:33 +0000 |
| parents | 20da0da3a956 |
| children | 16ff68beab60 |
| files | lisp/gnus/gnus-art.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el Fri Jul 08 13:44:42 2005 +0000 +++ b/lisp/gnus/gnus-art.el Fri Jul 08 13:48:33 2005 +0000 @@ -5160,7 +5160,7 @@ If end of article, return non-nil. Otherwise return nil. Argument LINES specifies lines to be scrolled up." (interactive "p") - (move-to-window-line -1) + (move-to-window-line (max (- -1 scroll-margin) (- -1 (window-body-height)))) (if (save-excursion (end-of-line) (and (pos-visible-in-window-p) ;Not continuation line. @@ -5189,13 +5189,13 @@ (end-of-buffer ;; Long lines may cause an end-of-buffer error. (goto-char (point-max))))) - (move-to-window-line 0)) + (move-to-window-line (min scroll-margin (window-body-height)))) (defun gnus-article-prev-page (&optional lines) "Show previous page of current article. Argument LINES specifies lines to be scrolled down." (interactive "p") - (move-to-window-line 0) + (move-to-window-line (min scroll-margin (window-body-height))) (if (and gnus-page-broken (bobp) (not (save-restriction (widen) (bobp)))) ;Real beginning-of-buffer? @@ -5209,7 +5209,7 @@ (scroll-down lines) (beginning-of-buffer (goto-char (point-min)))) - (move-to-window-line 0))))) + (move-to-window-line (min scroll-margin (window-body-height))))))) (defun gnus-article-only-boring-p () "Decide whether there is only boring text remaining in the article.