2010 |
(defvar gnus-summary-tool-bar-map nil) |
(defvar gnus-summary-tool-bar-map nil) |
2011 |
|
|
2012 |
;; Emacs 21 tool bar. Should be no-op otherwise. |
;; Emacs 21 tool bar. Should be no-op otherwise. |
2013 |
|
;; NB: A new function tool-bar-local-item-from-menu is added in Emacs |
2014 |
|
;; 21.2.50+. Considering many users use Emacs 21, use |
2015 |
|
;; tool-bar-add-item-from-menu here. |
2016 |
(defun gnus-summary-make-tool-bar () |
(defun gnus-summary-make-tool-bar () |
2017 |
(if (and (fboundp 'tool-bar-add-item-from-menu) |
(if (and |
2018 |
(default-value 'tool-bar-mode) |
(condition-case nil (require 'tool-bar) (error nil)) |
2019 |
(not gnus-summary-tool-bar-map)) |
(fboundp 'tool-bar-add-item-from-menu) |
2020 |
|
(default-value 'tool-bar-mode) |
2021 |
|
(not gnus-summary-tool-bar-map)) |
2022 |
(setq gnus-summary-tool-bar-map |
(setq gnus-summary-tool-bar-map |
2023 |
(let ((tool-bar-map (make-sparse-keymap))) |
(let ((tool-bar-map (make-sparse-keymap))) |
2024 |
(tool-bar-add-item-from-menu |
(tool-bar-add-item-from-menu |