Mercurial > emacs

comparison lisp/info.el @ 111650:8fd0d7bcdf7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add keyword :vert-only for tool bar items with labels not shown horizontally. * lisp/info.el (info-tool-bar-map): Add some :vert-only keywords. * lisp/tool-bar.el (tool-bar-setup): Add some :vert-only keywords. * src/dispextern.h (tool_bar_item_idx): Add TOOL_BAR_ITEM_VERT_ONLY. * src/gtkutil.c (xg_make_tool_item): Take vert_only as argument. Set important to ! vert_only. (xg_show_toolbar_item): Don't show label horizontally if tool item isn't important. (update_frame_tool_bar): Get TOOL_BAR_ITEM_VERT_ONLY and pass it to xg_make_tool_item, or update important on existing tool item. * src/keyboard.c (QCvert_only): New variable. (parse_tool_bar_item): Check for QCvert_only. (syms_of_keyboard): Initialize QCvert_only.
author Jan D. <jan.h.d@swipnet.se>
date Sat, 20 Nov 2010 15:51:25 +0100
parents 56b71cddc9c5
children bc8dc4ac1e28
comparison
equal deleted inserted replaced
111649:342ca5475c01 111650:8fd0d7bcdf7d
3761 3761
3762 (defvar info-tool-bar-map 3762 (defvar info-tool-bar-map
3763 (let ((map (make-sparse-keymap))) 3763 (let ((map (make-sparse-keymap)))
3764 (tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map 3764 (tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map
3765 :rtl "right-arrow" 3765 :rtl "right-arrow"
3766 :label "Back") 3766 :label "Back"
3767 :vert-only t)
3767 (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map 3768 (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map
3768 :rtl "left-arrow" 3769 :rtl "left-arrow"
3769 :label "Forward") 3770 :label "Forward"
3771 :vert-only t)
3770 (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map 3772 (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map
3771 :rtl "next-node") 3773 :rtl "next-node")
3772 (tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map 3774 (tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map
3773 :rtl "prev-node") 3775 :rtl "prev-node")
3774 (tool-bar-local-item-from-menu 'Info-up "up-node" map Info-mode-map) 3776 (tool-bar-local-item-from-menu 'Info-up "up-node" map Info-mode-map
3777 :vert-only t)
3775 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map) 3778 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map)
3776 (tool-bar-local-item-from-menu 'Info-goto-node "jump-to" map Info-mode-map) 3779 (tool-bar-local-item-from-menu 'Info-goto-node "jump-to" map Info-mode-map)
3777 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map 3780 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map
3778 :label "Index Search") 3781 :label "Index Search")
3779 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map) 3782 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map)