/[emacs]/emacs/lib-src/rcs2log
ViewVC logotype

Diff of /emacs/lib-src/rcs2log

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by eggert, Wed Sep 5 23:07:46 2001 UTC revision 1.49 by eggert, Wed Nov 28 23:55:08 2001 UTC
# Line 31  Report bugs to <bug-gnu-emacs@gnu.org>.' Line 31  Report bugs to <bug-gnu-emacs@gnu.org>.'
31    
32  Id='$Id$'  Id='$Id$'
33    
34  # Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2001  # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2001
35  #  Free Software Foundation, Inc.  #  Free Software Foundation, Inc.
36    
37  # This program is free software; you can redistribute it and/or modify  # This program is free software; you can redistribute it and/or modify
# Line 49  Id='$Id$' Line 49  Id='$Id$'
49  # Free Software Foundation, Inc., 59 Temple Place - Suite 330,  # Free Software Foundation, Inc., 59 Temple Place - Suite 330,
50  # Boston, MA 02111-1307, USA.  # Boston, MA 02111-1307, USA.
51    
52  Copyright='Copyright 2001 Free Software Foundation, Inc.  Copyright='Copyright (C) 2001 Free Software Foundation, Inc.
53  This program comes with NO WARRANTY, to the extent permitted by law.  This program comes with NO WARRANTY, to the extent permitted by law.
54  You may redistribute copies of this program  You may redistribute copies of this program
55  under the terms of the GNU General Public License.  under the terms of the GNU General Public License.
# Line 491  printlogline='{ Line 491  printlogline='{
491          #       * file: (function): comment          #       * file: (function): comment
492          # to          # to
493          #       * file (function): comment          #       * file (function): comment
494          if (Log ~ /^\([^)]*\): /) {          if (Log ~ /^\([^)]*\):[\t\n ]/) {
495                  i = index(Log, ")")                  i = index(Log, ")")
496                  filefunc = substr(Log, 1, i)                  filefunc = substr(Log, 1, i)
497                  while ((j = index(filefunc, "\n"))) {                  while ((j = index(filefunc, "\n"))) {
# Line 663  $AWK -F"$SOH" ' Line 663  $AWK -F"$SOH" '
663                                  newclumpname = substr(newlog, 1, i)                                  newclumpname = substr(newlog, 1, i)
664                                  while (substr(newlog, i+1) ~ /^['"$tab"' ]/) i++                                  while (substr(newlog, i+1) ~ /^['"$tab"' ]/) i++
665                                  newlog = substr(newlog, i+1)                                  newlog = substr(newlog, i+1)
666                                  if (clumpname == newclumpname) sep = ""                                  if (clumpname == newclumpname && date == $3 && author == $5) sep = ""
667                          }                          }
668                          printf sep                          printf sep
669                          clumpname = newclumpname                          clumpname = newclumpname

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26