Mercurial > emacs
changeset 16507:08855b88e955
When processing cvs log output, remove `Attic/' from repository file names.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Sun, 03 Nov 1996 17:09:27 +0000 |
| parents | d6dbe558099c |
| children | fd19350c1405 |
| files | lib-src/=rcs2log lib-src/rcs2log |
| diffstat | 2 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lib-src/=rcs2log Sat Nov 02 20:26:18 1996 +0000 +++ b/lib-src/=rcs2log Sun Nov 03 17:09:27 1996 +0000 @@ -12,7 +12,7 @@ # Author: Paul Eggert <eggert@twinsun.com> -# $Id: rcs2log,v 1.33 1996/10/12 17:24:45 eggert Exp eggert $ +# $Id: rcs2log,v 1.34 1996/10/13 05:59:42 eggert Exp eggert $ # Copyright 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc. @@ -454,6 +454,11 @@ if (filename ~ /,v$/) { filename = substr(filename, 1, length(filename) - 2) } + if (filename ~ /(^|\/)Attic\/[^\/]*$/) { + i = length(filename) + while (substr(filename, i, 1) != "/") i-- + filename = substr(filename, 1, i - 6) substr(filename, i + 1) + } } rev = "?" }
--- a/lib-src/rcs2log Sat Nov 02 20:26:18 1996 +0000 +++ b/lib-src/rcs2log Sun Nov 03 17:09:27 1996 +0000 @@ -12,7 +12,7 @@ # Author: Paul Eggert <eggert@twinsun.com> -# $Id: rcs2log,v 1.33 1996/10/12 17:24:45 eggert Exp eggert $ +# $Id: rcs2log,v 1.34 1996/10/13 05:59:42 eggert Exp eggert $ # Copyright 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc. @@ -454,6 +454,11 @@ if (filename ~ /,v$/) { filename = substr(filename, 1, length(filename) - 2) } + if (filename ~ /(^|\/)Attic\/[^\/]*$/) { + i = length(filename) + while (substr(filename, i, 1) != "/") i-- + filename = substr(filename, 1, i - 6) substr(filename, i + 1) + } } rev = "?" }