Mercurial > emacs
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 |