1.1 --- a/bookloupe/bookloupe.c	Sat May 25 23:51:28 2013 +0100
     1.2 +++ b/bookloupe/bookloupe.c	Sat May 25 23:57:38 2013 +0100
     1.3 @@ -1394,6 +1394,27 @@
     1.4  }
     1.5  
     1.6  /*
     1.7 + * check_for_pling_scanno:
     1.8 + *
     1.9 + * Check for I" - often should be !
    1.10 + */
    1.11 +void check_for_pling_scanno(const char *aline)
    1.12 +{
    1.13 +    const char *s;
    1.14 +    s=strstr(aline," I\"");
    1.15 +    if (s)
    1.16 +    {
    1.17 +	if (pswit[ECHO_SWITCH])
    1.18 +	    printf("\n%s\n",aline);
    1.19 +	if (!pswit[OVERVIEW_SWITCH])
    1.20 +	    printf("    Line %ld column %ld - Query I=exclamation mark?\n",
    1.21 +	      linecnt,s-aline);
    1.22 +	else
    1.23 +	    cnt_punct++;
    1.24 +    }
    1.25 +}
    1.26 +
    1.27 +/*
    1.28   * procfile:
    1.29   *
    1.30   * Process one file.
    1.31 @@ -1643,17 +1664,7 @@
    1.32  	check_for_jeebies(aline);
    1.33  	check_for_mta_from(aline);
    1.34  	check_for_orphan_character(aline);
    1.35 -        /* Check for I" - often should be ! */
    1.36 -        if (strstr(aline," I\""))
    1.37 -	{
    1.38 -            if (pswit[ECHO_SWITCH])
    1.39 -		printf("\n%s\n",aline);
    1.40 -            if (!pswit[OVERVIEW_SWITCH])
    1.41 -                printf("    Line %ld column %ld - Query I=exclamation mark?\n",
    1.42 -		  linecnt,strstr(aline," I\"")-aline);
    1.43 -            else
    1.44 -                cnt_punct++;
    1.45 -	}
    1.46 +	check_for_pling_scanno(aline);
    1.47          /*
    1.48  	 * Check for period without a capital letter. Cut-down from gutspell.
    1.49           * Only works when it happens on a single line.