Mercurial > emacs

comparison lispref/tindex.pl @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents 23a1cea22d13
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 #! /usr/bin/perl 1 #! /usr/bin/perl
2 2
3 # Copyright (C) 2000 Free Software Foundation, Inc. 3 # Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4 # 4 #
5 # This file is part of GNU Emacs. 5 # This file is part of GNU Emacs.
6 # 6 #
7 # GNU Emacs is free software; you can redistribute it and/or modify 7 # GNU Emacs is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by 8 # it under the terms of the GNU General Public License as published by
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details. 15 # GNU General Public License for more details.
16 # 16 #
17 # You should have received a copy of the GNU General Public License 17 # You should have received a copy of the GNU General Public License
18 # along with GNU Emacs; see the file COPYING. If not, write to the 18 # along with GNU Emacs; see the file COPYING. If not, write to the
19 # Free Software Foundation, Inc., 59 Temple Place - Suite 330, 19 # Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 # Boston, MA 02111-1307, USA. 20 # Boston, MA 02110-1301, USA.
21 21
22 require 5; 22 require 5;
23 use Getopt::Long; 23 use Getopt::Long;
24 24
25 my $USAGE = <<ENDUSAGE; 25 my $USAGE = <<ENDUSAGE;
121 my $key; 121 my $key;
122 foreach $key (keys %removed) { 122 foreach $key (keys %removed) {
123 print " $key\n"; 123 print " $key\n";
124 } 124 }
125 125
126 # arch-tag: f8460df6-6bef-4c98-8555-e2c63a88b0fa