Mercurial > emacs
changeset 29638:f6a97d806845
Fix typos in comments. Remove trailing blanks.
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Wed, 14 Jun 2000 07:09:42 +0000 |
| parents | 6b63e5410a0e |
| children | 204d4948de06 |
| files | lib-src/grep-changelog |
| diffstat | 1 files changed, 12 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lib-src/grep-changelog Tue Jun 13 23:51:46 2000 +0000 +++ b/lib-src/grep-changelog Wed Jun 14 07:09:42 2000 +0000 @@ -1,7 +1,7 @@ #! /usr/bin/perl -# $Id: grep-changelog,v 1.1 1999/08/10 13:33:49 gerd Exp $ +# $Id: grep-changelog,v 1.2 2000/05/05 13:19:05 gerd Exp $ -# Copyright (C) 1999 Free Software Foundation, Inc. +# Copyright (C) 1999, 2000 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # @@ -31,7 +31,7 @@ # Parse command line options. use Getopt::Long; -$result = GetOptions ("author=s" => \$author, +$result = GetOptions ("author=s" => \$author, "text=s" => \$regexp, "exclude=s" => \$exclude, "from-date=s" => \$from_date, @@ -55,7 +55,7 @@ Print entries in ChangeLogs matching various criteria. Valid options are - --author=AUTHOR match entries whose author line matches + --author=AUTHOR match entries whose author line matches regular expression AUTHOR --text=TEXT match entries whose text matches regular expression TEXT. @@ -68,7 +68,7 @@ --help print this help If no CHANGELOG is specified scan the files "ChangeLog" and -"ChangeLog.[9-1]" in the current directory. Old-style dates in ChangeLogs +"ChangeLog.[9-1]" in the current directory. Old-style dates in ChangeLogs are not recognized. USAGE exit $help ? 0 : 1; @@ -110,7 +110,7 @@ } -# Value is non-zero if ENTRY matches the ciiteria specified on the +# Value is non-zero if ENTRY matches the criteria specified on the # command line, i.e. it matches $regexp, and it doesn't match # $exclude. @@ -118,7 +118,7 @@ my $entry = shift; if ($regexp) { - return 1 if ($entry =~ /$regexp/ + return 1 if ($entry =~ /$regexp/ && (!$exclude || $entry !~ $exclude)); } else { return 1 if !$exclude || $entry !~ $exclude; @@ -167,7 +167,7 @@ if ($line =~ /^\S/) { # Line is an author-line. Print previous entry if # it matches. - print_log ($header, $entry) + print_log ($header, $entry) if header_match_p ($header) && entry_match_p ($entry); $entry = ""; @@ -177,12 +177,12 @@ while (($line = <IN>) && $line =~ /^\s*$/) { $header = "$header$line"; } - } + } if ($line =~ /^\s*\*/) { # LINE is the first line of a ChangeLog entry. Print # previous entry if it matches. - print_log ($header, $entry) + print_log ($header, $entry) if header_match_p ($header) && entry_match_p ($entry); $entry = $line; } else { @@ -192,7 +192,7 @@ } # Print last entry if it matches. - print_log ($header, $entry) + print_log ($header, $entry) if header_match_p ($header) && entry_match_p ($entry); close IN; @@ -217,4 +217,4 @@ } -# gre-changelog ends here. +# grep-changelog ends here.