Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 11:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-498

Browse source 
Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 96)

   - Update from CVS

2005-07-26  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/gnus-art.el (gnus-article-next-page-1): Don't scroll if there're
   fewer lines than that of scroll-margin.
   (gnus-article-prev-page): Narrow the range to bind scroll-in-place.
This commit is contained in:
Miles Bader 2005-07-27 01:46:58 +00:00
parent d7b7f3c485
commit c03ac7281c
2 changed files with 21 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2005-07-26 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-next-page-1): Don't scroll if there're
fewer lines than that of scroll-margin.
(gnus-article-prev-page): Narrow the range to bind scroll-in-place.
2005-07-25 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-next-page): Revert.

26
lisp/gnus/gnus-art.el
View file

@ -5197,13 +5197,17 @@ specifies."
1 0)))))))
(defun gnus-article-next-page-1 (lines)
(let ((scroll-in-place nil))
(unless (and (not (featurep 'xemacs))
(> (symbol-value 'scroll-margin) 0)
(<= (count-lines (window-start) (point-max))
(symbol-value 'scroll-margin)))
(condition-case ()
(scroll-up lines)
(let ((scroll-in-place nil))
(scroll-up lines))
(end-of-buffer
;; Long lines may cause an end-of-buffer error.
(goto-char (point-max)))))
(gnus-article-beginning-of-window))
(goto-char (point-max))))
(gnus-article-beginning-of-window)))
(defun gnus-article-prev-page (&optional lines)
"Show previous page of current article.
@ -5217,13 +5221,13 @@ Argument LINES specifies lines to be scrolled down."
(gnus-narrow-to-page -1) ;Go to previous page.
(goto-char (point-max))
(recenter -1))
(let ((scroll-in-place nil))
(prog1
(condition-case ()
(scroll-down lines)
(beginning-of-buffer
(goto-char (point-min))))
(gnus-article-beginning-of-window)))))
(prog1
(condition-case ()
(let ((scroll-in-place nil))
(scroll-down lines))
(beginning-of-buffer
(goto-char (point-min))))
(gnus-article-beginning-of-window))))
(defun gnus-article-only-boring-p ()
"Decide whether there is only boring text remaining in the article.