comparison lisp/gnus/gnus-group.el @ 33316:cc349ec3a7a7

comment
author Dave Love <fx@gnu.org>
date Wed, 08 Nov 2000 17:48:54 +0000
parents fa5c3f22519c
children ae432b5b679d
comparison
equal deleted inserted replaced
33315:d1bd6bb27342 33316:cc349ec3a7a7
818 818
819 (gnus-run-hooks 'gnus-group-menu-hook))) 819 (gnus-run-hooks 'gnus-group-menu-hook)))
820 820
821 (defvar gnus-group-toolbar-map nil) 821 (defvar gnus-group-toolbar-map nil)
822 822
823 ;; Emacs 21 tool bar. Should be no-op otherwise.
823 (defun gnus-group-make-tool-bar () 824 (defun gnus-group-make-tool-bar ()
824 (if (and (fboundp 'tool-bar-add-item-from-menu) 825 (if (and (fboundp 'tool-bar-add-item-from-menu)
825 (default-value 'tool-bar-mode) 826 (default-value 'tool-bar-mode)
826 (not gnus-group-toolbar-map)) 827 (not gnus-group-toolbar-map))
827 (setq gnus-group-toolbar-map 828 (setq gnus-group-toolbar-map