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

* gnus-util.el (gnus-tool-bar-update): New function.

Browse source 
* gnus-group.el (gnus-group-update-tool-bar): New variable.
(gnus-group-insert-group-line): Add gnus-tool-bar-update.

* gnus-topic.el (gnus-topic-prepare-topic): Add gnus-tool-bar-update.
This commit is contained in:
Reiner Steib 2006-03-08 14:27:20 +00:00
parent 60a7c013cf
commit 85fd80023e
4 changed files with 51 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/gnus/gnus-util.el
View file

@ -1459,6 +1459,23 @@ Return nil otherwise."
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.