4491 |
(eval-when-compile (defvar tool-bar-map)) |
(eval-when-compile (defvar tool-bar-map)) |
4492 |
(if (featurep 'xemacs) |
(if (featurep 'xemacs) |
4493 |
(require 'messagexmas) |
(require 'messagexmas) |
4494 |
(when (and (fboundp 'tool-bar-add-item-from-menu) |
(when (and |
4495 |
tool-bar-mode) |
(condition-case nil (require 'tool-bar) (error nil)) |
4496 |
|
(fboundp 'tool-bar-add-item-from-menu) |
4497 |
|
tool-bar-mode) |
4498 |
(defvar message-tool-bar-map |
(defvar message-tool-bar-map |
4499 |
(let ((tool-bar-map (copy-keymap tool-bar-map))) |
(let ((tool-bar-map (copy-keymap tool-bar-map))) |
4500 |
;; Zap some items which aren't so relevant and take up space. |
;; Zap some items which aren't so relevant and take up space. |