diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/tool-bar.el | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el index 0a1d706a694..37d60441648 100644 --- a/lisp/tool-bar.el +++ b/lisp/tool-bar.el | |||
| @@ -267,14 +267,20 @@ holds a keymap." | |||
| 267 | ;;(tool-bar-add-item-from-menu 'compose-mail "mail/compose") | 267 | ;;(tool-bar-add-item-from-menu 'compose-mail "mail/compose") |
| 268 | 268 | ||
| 269 | (tool-bar-add-item-from-menu 'print-buffer "print") | 269 | (tool-bar-add-item-from-menu 'print-buffer "print") |
| 270 | (tool-bar-add-item "preferences" 'customize 'customize | 270 | |
| 271 | :help "Edit preferences (customize)") | 271 | ;; tool-bar-add-item-from-menu itself operates on |
| 272 | 272 | ;; (default-value 'tool-bar-map), but when we don't use that function, | |
| 273 | (tool-bar-add-item "help" (lambda () | 273 | ;; we must explicitly operate on the default value. |
| 274 | (interactive) | 274 | |
| 275 | (popup-menu menu-bar-help-menu)) | 275 | (let ((tool-bar-map (default-value 'tool-bar-map))) |
| 276 | 'help | 276 | (tool-bar-add-item "preferences" 'customize 'customize |
| 277 | :help "Pop up the Help menu") | 277 | :help "Edit preferences (customize)") |
| 278 | |||
| 279 | (tool-bar-add-item "help" (lambda () | ||
| 280 | (interactive) | ||
| 281 | (popup-menu menu-bar-help-menu)) | ||
| 282 | 'help | ||
| 283 | :help "Pop up the Help menu")) | ||
| 278 | ) | 284 | ) |
| 279 | 285 | ||
| 280 | (provide 'tool-bar) | 286 | (provide 'tool-bar) |