mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Merge from mainline.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-01-06 00:00:28 +00:00
parent fd579fdca5
commit 770d9a1f45
3 changed files with 35 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/gnus-sum.el
View file

@ -6734,8 +6734,8 @@ Like forward-line, but skip over (and don't count) invisible lines."
(while (and (> n 0) (not done))
;; If the following character is currently invisible,
;; skip all characters with that same `invisible' property value.
(while (invisible-p (point))
(goto-char (next-char-property-change (point))))
(while (gnus-invisible-p (point))
(goto-char (gnus-next-char-property-change (point))))
(forward-line 1)
(if (eobp)
(setq done t)
@ -6744,9 +6744,9 @@ Like forward-line, but skip over (and don't count) invisible lines."
(forward-line -1)
(if (bobp) (setq done t)
(setq n (1+ n))
(while (and (not (bobp)) (invisible-p (1- (point))))
(goto-char (previous-char-property-change (point))))))))
(while (and (not (bobp)) (gnus-invisible-p (1- (point))))
(goto-char (gnus-previous-char-property-change (point))))))))
(defun gnus-summary-recenter ()
"Center point in the summary window.
If `gnus-auto-center-summary' is nil, or the article buffer isn't