From 67de1ba513ba94dc786ab20840e9315c7c1dfe7a Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 23 Sep 2010 00:08:41 +0200 Subject: [PATCH] (gnus-group-highlight-line): Typo fix: beg, not start. --- lisp/ChangeLog | 2 ++ lisp/gnus-group.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f7ea76e47..47e83d5b2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2010-09-22 Lars Magne Ingebrigtsen + * gnus-group.el (gnus-group-highlight-line): Typo fix: beg, not start. + * gnus-start.el (gnus-get-unread-articles): Don't have `gnus-get-unread-articles-in-group' update info, since that can be really slow and doesn't seem to be needed? diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 5e261cc9d..c17b3a2a7 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -1671,7 +1671,7 @@ Some value are bound so the form can use them." (setq list (cdr list))) list))) -(defun gnus-group-highlight-line (group start end) +(defun gnus-group-highlight-line (group beg end) "Highlight the current line according to `gnus-group-highlight'. GROUP is current group, and the line to highlight starts at START and ends at END." @@ -1681,9 +1681,9 @@ and ends at END." (unless (eq face (get-text-property beg 'face)) (let ((inhibit-read-only t)) (gnus-put-text-property-excluding-characters-with-faces - start end 'face + beg end 'face (if (boundp face) (symbol-value face) face))) - (gnus-extent-start-open start)))) + (gnus-extent-start-open beg)))) (defun gnus-group-get-icon (group) "Return an icon for GROUP according to `gnus-group-icon-list'." -- 2.25.1