[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el |
Date: |
Wed, 08 Mar 2006 14:27:20 +0000 |
Index: emacs/lisp/gnus/gnus-group.el
diff -u emacs/lisp/gnus/gnus-group.el:1.47 emacs/lisp/gnus/gnus-group.el:1.48
--- emacs/lisp/gnus/gnus-group.el:1.47 Tue Jan 17 02:39:39 2006
+++ emacs/lisp/gnus/gnus-group.el Wed Mar 8 14:27:20 2006
@@ -1379,6 +1379,18 @@
(gnus-range-difference (list active) (gnus-info-read info))
seen))))))
+(defcustom gnus-group-update-tool-bar
+ (and (not (featurep 'xemacs))
+ (boundp 'tool-bar-mode)
+ tool-bar-mode
+ ;; Using `redraw-frame' (see `gnus-tool-bar-update') in Emacs 21 might
+ ;; be confusing, so maybe we shouldn't call it by default.
+ (fboundp 'force-window-update))
+ "Force updating the group buffer tool bar."
+ :group 'gnus-group
+ :version "22.1"
+ :type 'boolean)
+
(defun gnus-group-insert-group-line (gnus-tmp-group gnus-tmp-level
gnus-tmp-marked number
gnus-tmp-method)
@@ -1447,8 +1459,10 @@
(bbb-grouplens-group-p gnus-tmp-group))
""))
(buffer-read-only nil)
+ beg end
header gnus-tmp-header) ; passed as parameter to user-funcs.
(beginning-of-line)
+ (setq beg (point))
(gnus-add-text-properties
(point)
(prog1 (1+ (point))
@@ -1463,6 +1477,12 @@
gnus-marked ,gnus-tmp-marked-mark
gnus-indentation ,gnus-group-indentation
gnus-level ,gnus-tmp-level))
+ (setq end (point))
+ (when gnus-group-update-tool-bar
+ (gnus-put-text-property beg end 'point-entered
+ 'gnus-tool-bar-update)
+ (gnus-put-text-property beg end 'point-left
+ 'gnus-tool-bar-update))
(forward-line -1)
(when (inline (gnus-visual-p 'group-highlight 'highlight))
(gnus-run-hooks 'gnus-group-update-hook))
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el,
Reiner Steib <=