diff options
| author | Paul Eggert | 2001-11-28 23:55:08 +0000 |
|---|---|---|
| committer | Paul Eggert | 2001-11-28 23:55:08 +0000 |
| commit | e8d6a09bd0a45d8f253bfe984a12e6d41f004fe1 (patch) | |
| tree | 289edbde121abe0aa6fa065c19983efc372da00b /lib-src/rcs2log | |
| parent | 29e53a0ae9fb469bdc874026a43e049c9b57671e (diff) | |
| download | emacs-e8d6a09bd0a45d8f253bfe984a12e6d41f004fe1.tar.gz emacs-e8d6a09bd0a45d8f253bfe984a12e6d41f004fe1.zip | |
(Copyright): Add '(C)' as per coding guidelines.
The following changes are derived from suggestions by Bob Chapman
<rechapman@compuserve.com>.
(printlogline): Also allow tab and newline to separate
'(function):' from the rest of a comment.
(reformat the sorted log entries): Require date and author to
match the clumpname.
Diffstat (limited to 'lib-src/rcs2log')
| -rwxr-xr-x | lib-src/rcs2log | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib-src/rcs2log b/lib-src/rcs2log index eabd369a9d6..d1da3a07613 100755 --- a/lib-src/rcs2log +++ b/lib-src/rcs2log | |||
| @@ -29,9 +29,9 @@ Options: | |||
| 29 | 29 | ||
| 30 | Report bugs to <bug-gnu-emacs@gnu.org>.' | 30 | Report bugs to <bug-gnu-emacs@gnu.org>.' |
| 31 | 31 | ||
| 32 | Id='$Id: rcs2log,v 1.47 2001/07/20 09:05:26 gerd Exp eggert $' | 32 | Id='$Id: rcs2log,v 1.48 2001/09/05 23:07:46 eggert Exp $' |
| 33 | 33 | ||
| 34 | # Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2001 | 34 | # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2001 |
| 35 | # Free Software Foundation, Inc. | 35 | # Free Software Foundation, Inc. |
| 36 | 36 | ||
| 37 | # This program is free software; you can redistribute it and/or modify | 37 | # This program is free software; you can redistribute it and/or modify |
| @@ -49,7 +49,7 @@ Id='$Id: rcs2log,v 1.47 2001/07/20 09:05:26 gerd Exp eggert $' | |||
| 49 | # Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 49 | # Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 50 | # Boston, MA 02111-1307, USA. | 50 | # Boston, MA 02111-1307, USA. |
| 51 | 51 | ||
| 52 | Copyright='Copyright 2001 Free Software Foundation, Inc. | 52 | Copyright='Copyright (C) 2001 Free Software Foundation, Inc. |
| 53 | This program comes with NO WARRANTY, to the extent permitted by law. | 53 | This program comes with NO WARRANTY, to the extent permitted by law. |
| 54 | You may redistribute copies of this program | 54 | You may redistribute copies of this program |
| 55 | under the terms of the GNU General Public License. | 55 | under the terms of the GNU General Public License. |
| @@ -491,7 +491,7 @@ printlogline='{ | |||
| 491 | # * file: (function): comment | 491 | # * file: (function): comment |
| 492 | # to | 492 | # to |
| 493 | # * file (function): comment | 493 | # * file (function): comment |
| 494 | if (Log ~ /^\([^)]*\): /) { | 494 | if (Log ~ /^\([^)]*\):[\t\n ]/) { |
| 495 | i = index(Log, ")") | 495 | i = index(Log, ")") |
| 496 | filefunc = substr(Log, 1, i) | 496 | filefunc = substr(Log, 1, i) |
| 497 | while ((j = index(filefunc, "\n"))) { | 497 | while ((j = index(filefunc, "\n"))) { |
| @@ -663,7 +663,7 @@ $AWK -F"$SOH" ' | |||
| 663 | newclumpname = substr(newlog, 1, i) | 663 | newclumpname = substr(newlog, 1, i) |
| 664 | while (substr(newlog, i+1) ~ /^['"$tab"' ]/) i++ | 664 | while (substr(newlog, i+1) ~ /^['"$tab"' ]/) i++ |
| 665 | newlog = substr(newlog, i+1) | 665 | newlog = substr(newlog, i+1) |
| 666 | if (clumpname == newclumpname) sep = "" | 666 | if (clumpname == newclumpname && date == $3 && author == $5) sep = "" |
| 667 | } | 667 | } |
| 668 | printf sep | 668 | printf sep |
| 669 | clumpname = newclumpname | 669 | clumpname = newclumpname |