Mercurial > emacs
view nt/multi-install-info.bat @ 111998:bc8dc4ac1e28
Implement tool-bar separators for non-GTK tool-bars.
* lisp/tool-bar.el (tool-bar--image-expression): New function.
(tool-bar-local-item, tool-bar--image-exp): Use it.
(tool-bar-setup): Initialize tool-bar-separator-image-expression.
Use :enable instead of :visible to avoid changing the tool-bar
configuration unnecessarily.
* src/keyboard.c (Vtool_bar_separator_image_expression): New variable.
(parse_tool_bar_item): Use it to obtain image separators for
displays not using native tool-bar separators.
* src/xdisp.c (build_desired_tool_bar_string): Don't handle separators
specially, since this is now done in parse_tool_bar_item.
* lisp/info.el (info-tool-bar-map): Add separators.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 20 Dec 2010 08:17:26 +0800 |
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