[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lispref/tindex.pl
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lispref/tindex.pl |
Date: |
Fri, 04 Apr 2003 01:23:25 -0500 |
Index: emacs/lispref/tindex.pl
diff -c emacs/lispref/tindex.pl:1.1 emacs/lispref/tindex.pl:1.2
*** emacs/lispref/tindex.pl:1.1 Wed Jan 5 09:20:14 2000
--- emacs/lispref/tindex.pl Tue Feb 4 09:47:54 2003
***************
*** 52,58 ****
my $version = 0;
my $old;
! my $rc = GetOptions ('help' => \$help, 'version' => \$version,
'old=s' => \$old);
if ($version) {
print "0.1\n";
--- 52,58 ----
my $version = 0;
my $old;
! my $rc = GetOptions ('help' => \$help, 'version' => \$version,
'old=s' => \$old);
if ($version) {
print "0.1\n";
***************
*** 86,99 ****
close IN;
}
! # Process current files and remove those @tindex lines which we
# know were already present in the files scanned above.
print "Removing old address@hidden lines\n";
foreach $file (@new_files) {
my $modified = 0;
my $contents = "";
!
open (IN, "< $file") or fatal "Cannot open $file.orig for reading: $!";
while (<IN>) {
if (/address@hidden(\S+)/ && $tindex{$1}) {
--- 86,99 ----
close IN;
}
! # Process current files and remove those @tindex lines which we
# know were already present in the files scanned above.
print "Removing old address@hidden lines\n";
foreach $file (@new_files) {
my $modified = 0;
my $contents = "";
!
open (IN, "< $file") or fatal "Cannot open $file.orig for reading: $!";
while (<IN>) {
if (/address@hidden(\S+)/ && $tindex{$1}) {
***************
*** 103,109 ****
$contents = $contents . $_;
}
}
!
close IN;
if ($modified) {
--- 103,109 ----
$contents = $contents . $_;
}
}
!
close IN;
if ($modified) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lispref/tindex.pl,
Miles Bader <=