Mercurial > emacs
view nt/multi-install-info.bat @ 57258:36eef73e00fa
(Vfringe_bitmaps): New variable.
(syms_of_fringe): DEFVAR_LISP it.
(valid_fringe_bitmap_p): Rename from valid_fringe_bitmap_id_p.
Change arg to Lisp_Object and fail if not an integer.
(get_fringe_bitmap_name, resolve_fringe_bitmap)
(destroy_fringe_bitmap): New functions.
(Fdestroy_fringe_bitmap): Change arg to bitmap symbol. Use
destroy_fringe_bitmap. Remove symbol from Vfringe_bitmaps and
clear its fringe property.
(init_fringe_bitmap): Use destroy_fringe_bitmap instead of
Fdestroy_fringe_bitmap.
(Fdefine_fringe_bitmap): Add BITMAP arg specifying new or existing
bitmap symbol; remove WHICH arg. Add symbol to Vfringe_bitmaps
and set fringe property. Signal error if no free slots.
(Fset_fringe_bitmap_face): Change arg to bitmap symbol.
(Ffringe_bitmaps_at_pos): Return bitmap symbols instead of numbers.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Tue, 28 Sep 2004 23:02:53 +0000 |
parents | 27bc8b966642 |
children | 23a17af379b1 |
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 rem Copyright (c) 2003 Free Software Foundation, Inc. rem rem This file is part of GNU Emacs. rem 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 2, or (at your option) rem any later version. rem 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 rem You should have received a copy of the GNU General Public License rem along with GNU Emacs; see the file COPYING. If not, write to rem the Free Software Foundation, Inc., 59 Temple Place - Suite 330, rem Boston, MA 02111-1307, USA. rem rem 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