home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume1 / rn / patch27 < prev    next >
Encoding:
Text File  |  1986-11-30  |  15.5 KB  |  666 lines
  1. System: rn version 4.3
  2. Patch #: 27
  3. Priority: LOW
  4. Subject: %m upgrade
  5. >From: msb@lsuc.UUCP (Mark Brader)
  6.  
  7. Description:
  8.     %m is sometimes wrong at the end of an article (p instead of a).
  9.  
  10.     Also, miscellaneous questions need separate letters for better
  11.     differentiation in macro definitions.
  12.  
  13. Fix:    From rn, say "| patch -d DIR", where DIR is your rn source directory.
  14.     Outside of rn, say "cd DIR; patch <thisarticle".  If you don't have
  15.     the patch program, apply the following by hand, or get patch.
  16.  
  17.     If patch indicates that patchlevel is the wrong version, you may need
  18.     to apply one or more previous patches, or the patch may already
  19.     have been applied.  See the patchlevel file to find out what has or
  20.     has not been applied.  In any event, don't continue with the patch.
  21.  
  22. Index: patchlevel
  23. Prereq: 26
  24. 1c1
  25. < Patch #: 26
  26. ---
  27. > Patch #: 27
  28.  
  29. Index: art.c
  30. Prereq: 4.3.1.4
  31. *** art.c.old    Tue Sep 10 11:12:08 1985
  32. --- art.c    Tue Sep 10 11:12:36 1985
  33. ***************
  34. *** 1,4
  35. ! /* $Header: art.c,v 4.3.1.4 85/05/23 12:13:31 lwall Exp $
  36.    *
  37.    * $Log:    art.c,v $
  38.    * Revision 4.3.1.4  85/05/23  12:13:31  lwall
  39.  
  40. --- 1,4 -----
  41. ! /* $Header: art.c,v 4.3.1.5 85/09/10 11:07:18 lwall Exp $
  42.    *
  43.    * $Log:    art.c,v $
  44.    * Revision 4.3.1.5  85/09/10  11:07:18  lwall
  45. ***************
  46. *** 1,6
  47.   /* $Header: art.c,v 4.3.1.4 85/05/23 12:13:31 lwall Exp $
  48.    *
  49.    * $Log:    art.c,v $
  50.    * Revision 4.3.1.4  85/05/23  12:13:31  lwall
  51.    * shouldn't display article that's really a subdirectory.
  52.    * 
  53.  
  54. --- 1,9 -----
  55.   /* $Header: art.c,v 4.3.1.5 85/09/10 11:07:18 lwall Exp $
  56.    *
  57.    * $Log:    art.c,v $
  58. +  * Revision 4.3.1.5  85/09/10  11:07:18  lwall
  59. +  * %m not restored on some returns.
  60. +  * 
  61.    * Revision 4.3.1.4  85/05/23  12:13:31  lwall
  62.    * shouldn't display article that's really a subdirectory.
  63.    * 
  64. ***************
  65. *** 177,182
  66.           if (int_count) {    /* exit via interrupt? */
  67.           putchar('\n') FLUSH;    /* get to left margin */
  68.           int_count = 0;    /* reset interrupt count */
  69.           return DA_NORM;    /* skip out of loops */
  70.           }
  71.           if (restart) {        /* did not finish last line? */
  72.  
  73. --- 180,186 -----
  74.           if (int_count) {    /* exit via interrupt? */
  75.           putchar('\n') FLUSH;    /* get to left margin */
  76.           int_count = 0;    /* reset interrupt count */
  77. +         mode = oldmode;
  78.           return DA_NORM;    /* skip out of loops */
  79.           }
  80.           if (restart) {        /* did not finish last line? */
  81. ***************
  82. *** 186,191
  83.           else {            /* not a restart */
  84.           if (fgets(art_buf,LBUFLEN,artfp)==Nullch) {
  85.                       /* if all done */
  86.               return DA_NORM;    /* skip out of loops */
  87.           }
  88.           bufptr = art_buf;    /* so start at beginning */
  89.  
  90. --- 190,196 -----
  91.           else {            /* not a restart */
  92.           if (fgets(art_buf,LBUFLEN,artfp)==Nullch) {
  93.                       /* if all done */
  94. +             mode = oldmode;
  95.               return DA_NORM;    /* skip out of loops */
  96.           }
  97.           bufptr = art_buf;    /* so start at beginning */
  98. ***************
  99. *** 499,505
  100.   
  101.       /* extra loop bombout */
  102.   
  103. !     if (artpos == artsize)    /* did we just now reach EOF? */
  104.           return DA_NORM;    /* avoid --MORE--(100%) */
  105.   
  106.   /* not done with this article, so pretend we are a pager */
  107.  
  108. --- 504,511 -----
  109.   
  110.       /* extra loop bombout */
  111.   
  112. !     if (artpos == artsize) {/* did we just now reach EOF? */
  113. !         mode = oldmode;
  114.           return DA_NORM;    /* avoid --MORE--(100%) */
  115.       }
  116.   
  117. ***************
  118. *** 501,506
  119.   
  120.       if (artpos == artsize)    /* did we just now reach EOF? */
  121.           return DA_NORM;    /* avoid --MORE--(100%) */
  122.   
  123.   /* not done with this article, so pretend we are a pager */
  124.   
  125.  
  126. --- 507,513 -----
  127.       if (artpos == artsize) {/* did we just now reach EOF? */
  128.           mode = oldmode;
  129.           return DA_NORM;    /* avoid --MORE--(100%) */
  130. +     }
  131.   
  132.   /* not done with this article, so pretend we are a pager */
  133.   
  134.  
  135. Index: help.c
  136. Prereq: 4.3
  137. *** help.c.old    Tue Sep 10 11:13:11 1985
  138. --- help.c    Tue Sep 10 11:13:17 1985
  139. ***************
  140. *** 1,4
  141. ! /* $Header: help.c,v 4.3 85/05/01 11:38:59 lwall Exp $
  142.    *
  143.    * $Log:    help.c,v $
  144.    * Revision 4.3  85/05/01  11:38:59  lwall
  145.  
  146. --- 1,4 -----
  147. ! /* $Header: help.c,v 4.3.1.2 85/09/10 11:05:39 lwall Exp $
  148.    *
  149.    * $Log:    help.c,v $
  150.    * Revision 4.3.1.2  85/09/10  11:05:39  lwall
  151. ***************
  152. *** 1,6
  153.   /* $Header: help.c,v 4.3 85/05/01 11:38:59 lwall Exp $
  154.    *
  155.    * $Log:    help.c,v $
  156.    * Revision 4.3  85/05/01  11:38:59  lwall
  157.    * Baseline for release with 4.3bsd.
  158.    * 
  159.  
  160. --- 1,12 -----
  161.   /* $Header: help.c,v 4.3.1.2 85/09/10 11:05:39 lwall Exp $
  162.    *
  163.    * $Log:    help.c,v $
  164. +  * Revision 4.3.1.2  85/09/10  11:05:39  lwall
  165. +  * Improved %m in in_char().
  166. +  * 
  167. +  * Revision 4.3.1.1  85/05/10  11:33:10  lwall
  168. +  * Branch for patches.
  169. +  * 
  170.    * Revision 4.3  85/05/01  11:38:59  lwall
  171.    * Baseline for release with 4.3bsd.
  172.    * 
  173. ***************
  174. *** 267,273
  175.       (cmd = print_lines("\
  176.   l    News administrator's login name, if any\n\
  177.   L    Login name (yours)\n\
  178. ! m    Current mode, first letter of (init,newsgroup,article,pager,misc)\n\
  179.   M    Number of article marked with M\n\
  180.   n    Newsgroups from current article\n\
  181.   N    Full name (yours)\n\
  182.  
  183. --- 273,280 -----
  184.       (cmd = print_lines("\
  185.   l    News administrator's login name, if any\n\
  186.   L    Login name (yours)\n\
  187. ! m    Current mode, first letter of (init, newsgroup, article, pager,\n\
  188. !         Add, Catchup, Delete bogus, Mailbox, Resubscribe)\n\
  189.   M    Number of article marked with M\n\
  190.   n    Newsgroups from current article\n\
  191.   N    Full name (yours)\n\
  192.  
  193. Index: ng.c
  194. Prereq: 4.3.1.5
  195. *** ng.c.old    Tue Sep 10 11:13:38 1985
  196. --- ng.c    Tue Sep 10 11:13:58 1985
  197. ***************
  198. *** 1,4
  199. ! /* $Header: ng.c,v 4.3.1.5 85/09/05 12:34:37 lwall Exp $
  200.    *
  201.    * $Log:    ng.c,v $
  202.    * Revision 4.3.1.5  85/09/05  12:34:37  lwall
  203.  
  204. --- 1,4 -----
  205. ! /* $Header: ng.c,v 4.3.1.6 85/09/10 11:03:42 lwall Exp $
  206.    *
  207.    * $Log:    ng.c,v $
  208.    * Revision 4.3.1.6  85/09/10  11:03:42  lwall
  209. ***************
  210. *** 1,6
  211.   /* $Header: ng.c,v 4.3.1.5 85/09/05 12:34:37 lwall Exp $
  212.    *
  213.    * $Log:    ng.c,v $
  214.    * Revision 4.3.1.5  85/09/05  12:34:37  lwall
  215.    * Catchup command could make unread article count too big.
  216.    * 
  217.  
  218. --- 1,9 -----
  219.   /* $Header: ng.c,v 4.3.1.6 85/09/10 11:03:42 lwall Exp $
  220.    *
  221.    * $Log:    ng.c,v $
  222. +  * Revision 4.3.1.6  85/09/10  11:03:42  lwall
  223. +  * Improved %m in in_char().
  224. +  * 
  225.    * Revision 4.3.1.5  85/09/05  12:34:37  lwall
  226.    * Catchup command could make unread article count too big.
  227.    * 
  228. ***************
  229. *** 685,691
  230.         reask_catchup:
  231.   #ifdef VERBOSE
  232.       IF(verbose)
  233. !         in_char("\nDo you really want to mark everything as read? [yn] ");
  234.       ELSE
  235.   #endif
  236.   #ifdef TERSE
  237.  
  238. --- 688,695 -----
  239.         reask_catchup:
  240.   #ifdef VERBOSE
  241.       IF(verbose)
  242. !         in_char("\nDo you really want to mark everything as read? [yn] ",
  243. !         'C');
  244.       ELSE
  245.   #endif
  246.   #ifdef TERSE
  247. ***************
  248. *** 689,695
  249.       ELSE
  250.   #endif
  251.   #ifdef TERSE
  252. !         in_char("\nReally? [ynh] ");
  253.   #endif
  254.       putchar('\n') FLUSH;
  255.       setdef(buf,"y");
  256.  
  257. --- 693,699 -----
  258.       ELSE
  259.   #endif
  260.   #ifdef TERSE
  261. !         in_char("\nReally? [ynh] ", 'C');
  262.   #endif
  263.       putchar('\n') FLUSH;
  264.       setdef(buf,"y");
  265.  
  266. Index: rcstuff.c
  267. Prereq: 4.3.1.3
  268. *** rcstuff.c.old    Tue Sep 10 11:11:15 1985
  269. --- rcstuff.c    Tue Sep 10 11:12:08 1985
  270. ***************
  271. *** 1,4
  272. ! /* $Header: rcstuff.c,v 4.3.1.3 85/05/29 09:13:25 lwall Exp $
  273.    *
  274.    * $Log:    rcstuff.c,v $
  275.    * Revision 4.3.1.3  85/05/29  09:13:25  lwall
  276.  
  277. --- 1,4 -----
  278. ! /* $Header: rcstuff.c,v 4.3.1.4 85/09/10 11:04:44 lwall Exp $
  279.    *
  280.    * $Log:    rcstuff.c,v $
  281.    * Revision 4.3.1.4  85/09/10  11:04:44  lwall
  282. ***************
  283. *** 1,6
  284.   /* $Header: rcstuff.c,v 4.3.1.3 85/05/29 09:13:25 lwall Exp $
  285.    *
  286.    * $Log:    rcstuff.c,v $
  287.    * Revision 4.3.1.3  85/05/29  09:13:25  lwall
  288.    * %d that should be %ld.
  289.    * 
  290.  
  291. --- 1,9 -----
  292.   /* $Header: rcstuff.c,v 4.3.1.4 85/09/10 11:04:44 lwall Exp $
  293.    *
  294.    * $Log:    rcstuff.c,v $
  295. +  * Revision 4.3.1.4  85/09/10  11:04:44  lwall
  296. +  * Improved %m in in_char().
  297. +  * 
  298.    * Revision 4.3.1.3  85/05/29  09:13:25  lwall
  299.    * %d that should be %ld.
  300.    * 
  301. ***************
  302. *** 265,271
  303.           sprintf(promptbuf,"\nAdd %s? [yn] ",ngname);
  304.   #endif
  305.   reask_add:
  306. !     in_char(promptbuf);
  307.       putchar('\n') FLUSH;
  308.       setdef(buf,"y");
  309.   #ifdef VERIFY
  310.  
  311. --- 268,274 -----
  312.           sprintf(promptbuf,"\nAdd %s? [yn] ",ngname);
  313.   #endif
  314.   reask_add:
  315. !     in_char(promptbuf,'A');
  316.       putchar('\n') FLUSH;
  317.       setdef(buf,"y");
  318.   #ifdef VERIFY
  319. ***************
  320. *** 310,316
  321.             FLUSH;
  322.   #endif
  323.   reask_unsub:
  324. !     in_char(promptbuf);
  325.       putchar('\n') FLUSH;
  326.       setdef(buf,"y");
  327.   #ifdef VERIFY
  328.  
  329. --- 313,319 -----
  330.             FLUSH;
  331.   #endif
  332.   reask_unsub:
  333. !     in_char(promptbuf,'R');
  334.       putchar('\n') FLUSH;
  335.       setdef(buf,"y");
  336.   #ifdef VERIFY
  337. ***************
  338. *** 708,714
  339.       }
  340.   #ifdef DELBOGUS
  341.   reask_bogus:
  342. !     in_char("Delete bogus newsgroups? [ny] ");
  343.       putchar('\n') FLUSH;
  344.       setdef(buf,"n");
  345.   #ifdef VERIFY
  346.  
  347. --- 711,717 -----
  348.       }
  349.   #ifdef DELBOGUS
  350.   reask_bogus:
  351. !     in_char("Delete bogus newsgroups? [ny] ", 'D');
  352.       putchar('\n') FLUSH;
  353.       setdef(buf,"n");
  354.   #ifdef VERIFY
  355.  
  356. Index: respond.c
  357. Prereq: 4.3.1.4
  358. *** respond.c.old    Tue Sep 10 11:11:50 1985
  359. --- respond.c    Tue Sep 10 11:12:02 1985
  360. ***************
  361. *** 1,4
  362. ! /* $Header: respond.c,v 4.3.1.4 85/05/23 17:24:49 lwall Exp $
  363.    *
  364.    * $Log:    respond.c,v $
  365.    * Revision 4.3.1.4  85/05/23  17:24:49  lwall
  366.  
  367. --- 1,4 -----
  368. ! /* $Header: respond.c,v 4.3.1.5 85/09/10 11:05:00 lwall Exp $
  369.    *
  370.    * $Log:    respond.c,v $
  371.    * Revision 4.3.1.5  85/09/10  11:05:00  lwall
  372. ***************
  373. *** 1,6
  374.   /* $Header: respond.c,v 4.3.1.4 85/05/23 17:24:49 lwall Exp $
  375.    *
  376.    * $Log:    respond.c,v $
  377.    * Revision 4.3.1.4  85/05/23  17:24:49  lwall
  378.    * Now allows 'r' and 'f' on null articles.
  379.    * 
  380.  
  381. --- 1,9 -----
  382.   /* $Header: respond.c,v 4.3.1.5 85/09/10 11:05:00 lwall Exp $
  383.    *
  384.    * $Log:    respond.c,v $
  385. +  * Revision 4.3.1.5  85/09/10  11:05:00  lwall
  386. +  * Improved %m in in_char().
  387. +  * 
  388.    * Revision 4.3.1.4  85/05/23  17:24:49  lwall
  389.    * Now allows 'r' and 'f' on null articles.
  390.    * 
  391. ***************
  392. *** 156,162
  393.           "\nFile %s doesn't exist--\n    use mailbox format? [%s] ",
  394.             s,dflt);
  395.             reask_save:
  396. !         in_char(cmd_buf);
  397.           putchar('\n') FLUSH;
  398.           setdef(buf,dflt);
  399.   #ifdef VERIFY
  400.  
  401. --- 159,165 -----
  402.           "\nFile %s doesn't exist--\n    use mailbox format? [%s] ",
  403.             s,dflt);
  404.             reask_save:
  405. !         in_char(cmd_buf, 'M');
  406.           putchar('\n') FLUSH;
  407.           setdef(buf,dflt);
  408.   #ifdef VERIFY
  409.  
  410. Index: rn.1
  411. Prereq: 4.3.1.4
  412. *** rn.1.old    Tue Sep 10 11:12:23 1985
  413. --- rn.1    Tue Sep 10 11:13:13 1985
  414. ***************
  415. *** 1,4
  416. ! ''' $Header: rn.1,v 4.3.1.4 85/07/23 18:26:40 lwall Exp $
  417.   ''' 
  418.   ''' $Log:    rn.1,v $
  419.   ''' Revision 4.3.1.4  85/07/23  18:26:40  lwall
  420.  
  421. --- 1,4 -----
  422. ! ''' $Header: rn.1,v 4.3.1.5 85/09/10 11:05:55 lwall Exp $
  423.   ''' 
  424.   ''' $Log:    rn.1,v $
  425.   ''' Revision 4.3.1.5  85/09/10  11:05:55  lwall
  426. ***************
  427. *** 1,6
  428.   ''' $Header: rn.1,v 4.3.1.4 85/07/23 18:26:40 lwall Exp $
  429.   ''' 
  430.   ''' $Log:    rn.1,v $
  431.   ''' Revision 4.3.1.4  85/07/23  18:26:40  lwall
  432.   ''' Added MAILCALL.
  433.   ''' 
  434.  
  435. --- 1,9 -----
  436.   ''' $Header: rn.1,v 4.3.1.5 85/09/10 11:05:55 lwall Exp $
  437.   ''' 
  438.   ''' $Log:    rn.1,v $
  439. + ''' Revision 4.3.1.5  85/09/10  11:05:55  lwall
  440. + ''' Improved %m in in_char().
  441. + ''' 
  442.   ''' Revision 4.3.1.4  85/07/23  18:26:40  lwall
  443.   ''' Added MAILCALL.
  444.   ''' 
  445. ***************
  446. *** 1138,1146
  447.   .nf
  448.       i    Initializing.
  449.       n    Newsgroup selection level.
  450. !     a    Article selection level.
  451. !     p    Pager level.
  452. !     m    Miscellaneous questions.
  453.   .fi
  454.   .Ip %M 8
  455.   The number of articles marked to return via the \*(L'M\*(R' command.
  456.  
  457. --- 1141,1161 -----
  458.   .nf
  459.       i    Initializing.
  460.       n    Newsgroup selection level.
  461. !     a    Article selection level (What next?).
  462. !     p    Pager level (MORE prompt).
  463. !     A    Add this newsgroup?
  464. !     C    Catchup confirmation.
  465. !     D    Delete bogus newsgroups?
  466. !     M    Use mailbox format?
  467. !     R    Resubscribe to this newsgroup?
  468. ! .fi
  469. ! .Sp
  470. ! Note that yes/no questions are all upper-case modes.
  471. ! If, for example, you wanted to disallow defaults on all yes/no questions,
  472. ! you could define the following macro:
  473. ! .Sp
  474. ! .nf
  475. ! \e040    %(%m=[A-Z]?h: )
  476.   .fi
  477.   .Ip %M 8
  478.   The number of articles marked to return via the \*(L'M\*(R' command.
  479.  
  480. Index: rn.c
  481. Prereq: 4.3.1.3
  482. *** rn.c.old    Tue Sep 10 11:11:07 1985
  483. --- rn.c    Tue Sep 10 11:11:15 1985
  484. ***************
  485. *** 8,14
  486.    *      2.0: 09/01/83
  487.    */
  488.   
  489. ! static char rnid[] = "@(#)$Header: rn.c,v 4.3.1.3 85/05/16 16:47:10 lwall Exp $";
  490.   
  491.   /* $Log:    rn.c,v $
  492.    * Revision 4.3.1.3  85/05/16  16:47:10  lwall
  493.  
  494. --- 8,14 -----
  495.    *      2.0: 09/01/83
  496.    */
  497.   
  498. ! static char rnid[] = "@(#)$Header: rn.c,v 4.3.1.4 85/09/10 11:05:13 lwall Exp $";
  499.   
  500.   /* $Log:    rn.c,v $
  501.    * Revision 4.3.1.4  85/09/10  11:05:13  lwall
  502. ***************
  503. *** 11,16
  504.   static char rnid[] = "@(#)$Header: rn.c,v 4.3.1.3 85/05/16 16:47:10 lwall Exp $";
  505.   
  506.   /* $Log:    rn.c,v $
  507.    * Revision 4.3.1.3  85/05/16  16:47:10  lwall
  508.    * Catchup confirmation didn't grok -t.
  509.    * 
  510.  
  511. --- 11,19 -----
  512.   static char rnid[] = "@(#)$Header: rn.c,v 4.3.1.4 85/09/10 11:05:13 lwall Exp $";
  513.   
  514.   /* $Log:    rn.c,v $
  515. +  * Revision 4.3.1.4  85/09/10  11:05:13  lwall
  516. +  * Improved %m in in_char().
  517. +  * 
  518.    * Revision 4.3.1.3  85/05/16  16:47:10  lwall
  519.    * Catchup confirmation didn't grok -t.
  520.    * 
  521. ***************
  522. *** 338,344
  523.   reask_catchup:
  524.   #ifdef VERBOSE
  525.           IF(verbose)
  526. !             in_char("\nDo you really want to mark everything as read? [yn] ");
  527.           ELSE
  528.   #endif
  529.   #ifdef TERSE
  530.  
  531. --- 341,347 -----
  532.   reask_catchup:
  533.   #ifdef VERBOSE
  534.           IF(verbose)
  535. !             in_char("\nDo you really want to mark everything as read? [yn] ", 'C');
  536.           ELSE
  537.   #endif
  538.   #ifdef TERSE
  539. ***************
  540. *** 342,348
  541.           ELSE
  542.   #endif
  543.   #ifdef TERSE
  544. !             in_char("\nReally? [ynh] ");
  545.   #endif
  546.               putchar('\n') FLUSH;
  547.               setdef(buf,"y");
  548.  
  549. --- 345,351 -----
  550.           ELSE
  551.   #endif
  552.   #ifdef TERSE
  553. !             in_char("\nReally? [ynh] ", 'C');
  554.   #endif
  555.               putchar('\n') FLUSH;
  556.               setdef(buf,"y");
  557.  
  558. Index: term.c
  559. Prereq: 4.3.1.2
  560. *** term.c.old    Tue Sep 10 11:11:55 1985
  561. --- term.c    Tue Sep 10 11:12:18 1985
  562. ***************
  563. *** 1,4
  564. ! /* $Header: term.c,v 4.3.1.2 85/05/16 16:45:35 lwall Exp $
  565.    *
  566.    * $Log:    term.c,v $
  567.    * Revision 4.3.1.2  85/05/16  16:45:35  lwall
  568.  
  569. --- 1,4 -----
  570. ! /* $Header: term.c,v 4.3.1.3 85/09/10 11:05:23 lwall Exp $
  571.    *
  572.    * $Log:    term.c,v $
  573.    * Revision 4.3.1.3  85/09/10  11:05:23  lwall
  574. ***************
  575. *** 1,6
  576.   /* $Header: term.c,v 4.3.1.2 85/05/16 16:45:35 lwall Exp $
  577.    *
  578.    * $Log:    term.c,v $
  579.    * Revision 4.3.1.2  85/05/16  16:45:35  lwall
  580.    * Forced \r to \n on input.
  581.    * Fix for terminfo braindamage regarding bc emulation.
  582.  
  583. --- 1,9 -----
  584.   /* $Header: term.c,v 4.3.1.3 85/09/10 11:05:23 lwall Exp $
  585.    *
  586.    * $Log:    term.c,v $
  587. +  * Revision 4.3.1.3  85/09/10  11:05:23  lwall
  588. +  * Improved %m in in_char().
  589. +  * 
  590.    * Revision 4.3.1.2  85/05/16  16:45:35  lwall
  591.    * Forced \r to \n on input.
  592.    * Fix for terminfo braindamage regarding bc emulation.
  593. ***************
  594. *** 618,624
  595.       return 1;
  596.       }
  597.       else {
  598. !     size = read(0,addr,size)
  599.   #ifdef RAWONLY
  600.       *addr &= 0177;
  601.   #endif
  602.  
  603. --- 621,627 -----
  604.       return 1;
  605.       }
  606.       else {
  607. !     size = read(0,addr,size);
  608.   #ifdef RAWONLY
  609.       *addr &= 0177;
  610.   #endif
  611. ***************
  612. *** 847,853
  613.   }
  614.   
  615.   void
  616. ! in_char(prompt)
  617.   char *prompt;
  618.   {
  619.       char oldmode = mode;
  620.  
  621. --- 850,856 -----
  622.   }
  623.   
  624.   void
  625. ! in_char(prompt, newmode)
  626.   char *prompt;
  627.   char newmode;
  628.   {
  629. ***************
  630. *** 849,854
  631.   void
  632.   in_char(prompt)
  633.   char *prompt;
  634.   {
  635.       char oldmode = mode;
  636.   
  637.  
  638. --- 852,858 -----
  639.   void
  640.   in_char(prompt, newmode)
  641.   char *prompt;
  642. + char newmode;
  643.   {
  644.       char oldmode = mode;
  645.   
  646. ***************
  647. *** 857,863
  648.       fputs(prompt,stdout);
  649.       fflush(stdout);
  650.       eat_typeahead();
  651. !     mode = 'm';
  652.       getcmd(buf);
  653.       if (errno || *buf == '\f') {
  654.       putchar('\n') FLUSH;        /* if return from stop signal */
  655.  
  656. --- 861,867 -----
  657.       fputs(prompt,stdout);
  658.       fflush(stdout);
  659.       eat_typeahead();
  660. !     mode = newmode;
  661.       getcmd(buf);
  662.       if (errno || *buf == '\f') {
  663.       putchar('\n') FLUSH;        /* if return from stop signal */
  664.  
  665.  
  666.