Mercurial > emacs
view nt/multi-install-info.bat @ 111650:8fd0d7bcdf7d
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 | 1d1d5d9bd884 |
children | 376148b31b5e |
line wrap: on
line source
@echo off rem Hack to run install-info with multiple info files on the command rem line on the Windows platform. rem Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 rem Free Software Foundation, Inc. rem This file is part of GNU Emacs. rem GNU Emacs is free software: you can redistribute it and/or modify rem it under the terms of the GNU General Public License as published by rem the Free Software Foundation, either version 3 of the License, or rem (at your option) any later version. rem GNU Emacs is distributed in the hope that it will be useful, rem but WITHOUT ANY WARRANTY; without even the implied warranty of rem MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the rem GNU General Public License for more details. rem You should have received a copy of the GNU General Public License rem along with GNU Emacs. If not, see http://www.gnu.org/licenses/. rem Usage: rem multi-install-info <switch passed to install-info> FILE1 FILE2 ... rem rem By Peter 'Luna' Runestig <peter@runestig.com> 2003 set INSTALL_INFO=install-info set II_SWITCH=%1=%2 rem Eat the install-info switch: shift :Loop shift if .%1% == . goto EndLoop %INSTALL_INFO% %II_SWITCH% %1 goto Loop :EndLoop goto skipArchTag arch-tag: 4f590862-8ead-497a-a71c-fb4b0e5d50db :skipArchTag