Mercurial > emacs

diff lisp/gnus/gnus-util.el @ 90361:a7364c1a561e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-40 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 135-143) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 49-55) - Merge from emacs--devo--0 - Update from CVS - Update from CVS: Makefile.in (release-*): New targets.
author Miles Bader <miles@gnu.org>
date Thu, 09 Mar 2006 07:15:37 +0000
parents c5406394f567 55665aaac72b
children e3bacb89536a
line wrap: on
line diff
--- a/lisp/gnus/gnus-util.el	Thu Mar 09 01:23:04 2006 +0000
+++ b/lisp/gnus/gnus-util.el	Thu Mar 09 07:15:37 2006 +0000
@@ -1459,6 +1459,23 @@
 				 display))
 	      display)))))
 
+(defun gnus-tool-bar-update (&rest ignore)
+  "Update the tool bar."
+  (when (and (boundp 'tool-bar-mode)
+	     tool-bar-mode)
+    (let* ((args nil)
+	   (func (cond ((featurep 'xemacs)
+			'ignore)
+		       ((fboundp 'tool-bar-update)
+			'tool-bar-update)
+		       ((fboundp 'force-window-update)
+			'force-window-update)
+		       ((fboundp 'redraw-frame)
+			(setq args (list (selected-frame)))
+			'redraw-frame)
+		       (t 'ignore))))
+      (apply func args))))
+
 ;; Fixme: This has only one use (in gnus-agent), which isn't worthwhile.
 (defmacro gnus-mapcar (function seq1 &rest seqs2_n)
   "Apply FUNCTION to each element of the sequences, and make a list of the results.