Mercurial > emacs
comparison lisp/gnus/message.el @ 44344:37801f2191c3
* gnus-group.el (gnus-group-make-tool-bar): Load tool-bar first.
* message.el (message-tool-bar-map): Ditto.
* gnus-sum.el (gnus-summary-make-tool-bar): Ditto.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Tue, 02 Apr 2002 20:24:32 +0000 |
| parents | 7782e54757bb |
| children | cdc6e9b808d6 |
comparison
equal
deleted
inserted
replaced
| 44343:3faaa85004f2 | 44344:37801f2191c3 |
|---|---|
| 4489 | 4489 |
| 4490 ;; Support for toolbar | 4490 ;; Support for toolbar |
| 4491 (eval-when-compile (defvar tool-bar-map)) | 4491 (eval-when-compile (defvar tool-bar-map)) |
| 4492 (if (featurep 'xemacs) | 4492 (if (featurep 'xemacs) |
| 4493 (require 'messagexmas) | 4493 (require 'messagexmas) |
| 4494 (when (and (fboundp 'tool-bar-add-item-from-menu) | 4494 (when (and |
| 4495 tool-bar-mode) | 4495 (condition-case nil (require 'tool-bar) (error nil)) |
| 4496 (fboundp 'tool-bar-add-item-from-menu) | |
| 4497 tool-bar-mode) | |
| 4496 (defvar message-tool-bar-map | 4498 (defvar message-tool-bar-map |
| 4497 (let ((tool-bar-map (copy-keymap tool-bar-map))) | 4499 (let ((tool-bar-map (copy-keymap tool-bar-map))) |
| 4498 ;; Zap some items which aren't so relevant and take up space. | 4500 ;; Zap some items which aren't so relevant and take up space. |
| 4499 (dolist (key '(print-buffer kill-buffer save-buffer write-file | 4501 (dolist (key '(print-buffer kill-buffer save-buffer write-file |
| 4500 dired open-file)) | 4502 dired open-file)) |