Re: [PATCH] treate comment as a blank character

[Shigio Yamaguchi]

Hi,
Committed. Thank you!

> ? htags/Makefile
> ? htags/Makefile.in
> ? htags/const.pl
> ? htags/htags
> ? htags/htags.1
> Index: htags/htags.in
> ===================================================================
> RCS file: /cvsroot/global/global/htags/htags.in,v
> retrieving revision 1.97
> diff -u -r1.97 htags.in
> --- htags/htags.in    1 Mar 2003 15:37:26 -0000       1.97
> +++ htags/htags.in    3 Mar 2003 12:01:03 -0000
> @@ -2081,8 +2081,8 @@
>                       &protect_line();        # protect quoted char, strings 
and comments
>                       # painting source code
>                       s/({|})/\016$1\017/g;
> -                     local($sharp) = s/^([ \t]*#[ \t]*($'sharp_macros))// ? 
$1 : '';
> -                     if ($sharp !~ '#[ \t]*include') {
> +                     local($sharp) = s/^([ \t\004]*#[ \t\004]*($'sharp_macro
s))// ? $1 : '';
> +                     if ($sharp !~ '#[ \t\004]*include') {
>                               if ($isjava) {
>                                       s/\b($'java_reserved_words)\b/\022$1\02
3/go;
>                               } elsif ($iscpp) {
> @@ -2147,14 +2147,14 @@
>                                       }
>                                       # set tag marks and save hyperlink into
 @links
>                                       if (ord($TAG) > 127) {  # for multi-byt
e code
> -                                             if (s/([\x00-\x7f])$TAG([ \t]*\
()/$1\005$count\005$2/ || s/([\x00-\x7f])$TAG([\x00-\x7f])/$1\005$count\005$2/)
 {
> +                                             if (s/([\x00-\x7f])$TAG([ \t\00
4]*\()/$1\005$count\005$2/ || s/([\x00-\x7f])$TAG([\x00-\x7f])/$1\005$count\005
$2/) {
>                                                       $count++;
>                                                       push(@links, $href);
>                                               } else {
>                                                       print STDERR "Error: $f
ile $LNO $TAG($TYPE) tag must exist.\n" if ($'wflag);
>                                               }
>                                       } else {
> -                                             if (s/\b$TAG([ \t]*\()/\005$cou
nt\005$1/ || s/\b$TAG\b/\005$count\005/ || s/\b_$TAG\b/_\005$count\005/)
> +                                             if (s/\b$TAG([ \t\004]*\()/\005
$count\005$1/ || s/\b$TAG\b/\005$count\005/ || s/\b_$TAG\b/_\005$count\005/)
>                                               {
>                                                       $count++;
>                                                       push(@links, $href);
> 
> ----
> Hideki IWAMOTO  address@hidden
> 
> 
> _______________________________________________
> Bug-global mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/bug-global
> 
> 
--
Shigio Yamaguchi <address@hidden> - Tama Communications Corporation
PGP fingerprint: D1CB 0B89 B346 4AB6 5663  C4B6 3CA5 BBB3 57BE DDA3