Mercurial > emacs
comparison lisp/toolbar/tool-bar.el @ 46483:7350385eb42a
(tool-bar-add-item-from-menu): Make sure to change the global tool-bar-map.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 16 Jul 2002 22:46:09 +0000 |
| parents | 7ac43b3204b0 |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 46482:41a9b77a3087 | 46483:7350385eb42a |
|---|---|
| 147 | 147 |
| 148 MAP must contain appropriate binding for `[menu-bar]' which holds a keymap. | 148 MAP must contain appropriate binding for `[menu-bar]' which holds a keymap. |
| 149 | 149 |
| 150 Use this function only to make bindings in the global value of `tool-bar-map'. | 150 Use this function only to make bindings in the global value of `tool-bar-map'. |
| 151 To define items in any other map, use `tool-bar-local-item'." | 151 To define items in any other map, use `tool-bar-local-item'." |
| 152 (apply 'tool-bar-local-item-from-menu command icon tool-bar-map map props)) | 152 (apply 'tool-bar-local-item-from-menu command icon |
| 153 (default-value 'tool-bar-map) map props)) | |
| 153 | 154 |
| 154 ;;;###autoload | 155 ;;;###autoload |
| 155 (defun tool-bar-local-item-from-menu (command icon in-map &optional from-map &rest props) | 156 (defun tool-bar-local-item-from-menu (command icon in-map &optional from-map &rest props) |
| 156 "Define tool bar binding for COMMAND using the given ICON in keymap MAP. | 157 "Define tool bar binding for COMMAND using the given ICON in keymap MAP. |
| 157 This makes a binding for COMMAND in IN-MAP, copying its binding from | 158 This makes a binding for COMMAND in IN-MAP, copying its binding from |