# HG changeset patch
# User Jim Meyering <jim@meyering.net>
# Date 960966582 0
# Node ID f6a97d806845b19d3f2a1e07df1dbc4d37ceff52
# Parent  6b63e5410a0e5afcd99cc8dda92e3962e35d91fd
Fix typos in comments.  Remove trailing blanks.

diff -r 6b63e5410a0e -r f6a97d806845 lib-src/grep-changelog
--- 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.