home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / m_emacs / 311c_dif / dif311c.pch next >
Encoding:
Text File  |  1992-08-09  |  90.5 KB  |  3,132 lines
  1. *** ../orig/bind.c    Mon Jul 27 21:51:43 1992
  2. --- bind.c    Mon Jul 27 21:54:31 1992
  3. ***************
  4. *** 383,389 ****
  5.       char outseq[80];    /* output buffer for keystroke sequence */
  6.   
  7.       /* get a buffer for the binding list */
  8. !     listbuf = bfind(TEXT21, TRUE, 0);
  9.   /*           "Binding list" */
  10.       if (listbuf == NULL || bclear(listbuf) == FALSE) {
  11.           mlwrite(TEXT22);
  12. --- 383,389 ----
  13.       char outseq[80];    /* output buffer for keystroke sequence */
  14.   
  15.       /* get a buffer for the binding list */
  16. !     listbuf = bfind(TEXT21, TRUE, BFINVS);
  17.   /*           "Binding list" */
  18.       if (listbuf == NULL || bclear(listbuf) == FALSE) {
  19.           mlwrite(TEXT22);
  20. ***************
  21. *** 996,1002 ****
  22.   #if    PROTO
  23.   int setkey(KEYTAB *key, char *name)
  24.   #else
  25. ! setkey(key, type, name)
  26.   
  27.   KEYTAB *key;        /* ptr to key to set */
  28.   char *name;        /* name of function or buffer */
  29. --- 996,1002 ----
  30.   #if    PROTO
  31.   int setkey(KEYTAB *key, char *name)
  32.   #else
  33. ! setkey(key, name)
  34.   
  35.   KEYTAB *key;        /* ptr to key to set */
  36.   char *name;        /* name of function or buffer */
  37. *** ../orig/buffer.c    Mon Jul 27 21:51:43 1992
  38. --- buffer.c    Mon Jul 27 21:54:32 1992
  39. ***************
  40. *** 33,39 ****
  41.       if (!bp)
  42.           return(ABORT);
  43.   
  44. !     /* make it invisable if there is an argument */
  45.       if (f == TRUE)
  46.           bp->b_flag |= BFINVS;
  47.   
  48. --- 33,39 ----
  49.       if (!bp)
  50.           return(ABORT);
  51.   
  52. !     /* make it invisible if there is an argument */
  53.       if (f == TRUE)
  54.           bp->b_flag |= BFINVS;
  55.   
  56. ***************
  57. *** 178,183 ****
  58. --- 178,187 ----
  59.       if (bp == NULL)
  60.           return(ABORT);
  61.   
  62. +     /* make it invisible if there is an argument */
  63. +     if (f == TRUE)
  64. +         bp->b_flag |= BFINVS;
  65. + 
  66.       return(pop(bp));
  67.   }
  68.   
  69. ***************
  70. *** 278,284 ****
  71.   
  72.   /*    Build and popup a buffer containing the list of all buffers.
  73.       Bound to "C-X C-B". A numeric argument forces it to list
  74. !     invisable buffers as well.
  75.   */
  76.   
  77.   PASCAL NEAR listbuffers(f, n)
  78. --- 282,288 ----
  79.   
  80.   /*    Build and popup a buffer containing the list of all buffers.
  81.       Bound to "C-X C-B". A numeric argument forces it to list
  82. !     invisible buffers as well.
  83.   */
  84.   
  85.   PASCAL NEAR listbuffers(f, n)
  86. ***************
  87. *** 348,354 ****
  88.   
  89.       /* output the list of buffers */
  90.       while (bp != NULL) {
  91. !         /* skip invisable buffers if iflag is false */
  92.           if (((bp->b_flag&BFINVS) != 0) && (iflag != TRUE)) {
  93.               bp = bp->b_bufp;
  94.               continue;
  95. --- 352,358 ----
  96.   
  97.       /* output the list of buffers */
  98.       while (bp != NULL) {
  99. !         /* skip invisible buffers if iflag is false */
  100.           if (((bp->b_flag&BFINVS) != 0) && (iflag != TRUE)) {
  101.               bp = bp->b_bufp;
  102.               continue;
  103. *** ../orig/char.c    Mon Jul 27 21:51:43 1992
  104. --- char.c    Mon Jul 27 21:54:33 1992
  105. ***************
  106. *** 95,103 ****
  107.   }
  108.   
  109.   #if    PROTO
  110. ! char PASCAL NEAR upperc(char ch) /* return the upper case equivalant of a character */
  111.   #else
  112. ! char PASCAL NEAR upperc(ch)    /* return the upper case equivalant of a character */
  113.   
  114.   char ch;    /* character to get uppercase euivalant of */
  115.   #endif
  116. --- 95,103 ----
  117.   }
  118.   
  119.   #if    PROTO
  120. ! int PASCAL NEAR upperc(char ch) /* return the upper case equivalant of a character */
  121.   #else
  122. ! int PASCAL NEAR upperc(ch)    /* return the upper case equivalant of a character */
  123.   
  124.   char ch;    /* character to get uppercase euivalant of */
  125.   #endif
  126. *** ../orig/display.c    Mon Jul 27 21:51:44 1992
  127. --- display.c    Mon Jul 27 21:54:36 1992
  128. ***************
  129. *** 693,699 ****
  130.   
  131.       /* set up to scan pop up buffer */
  132.       lp = lforw(popbuf->b_linep);
  133. !     mlerase();
  134.       numlines = term.t_nrow-2;
  135.       cline = 0;
  136.   
  137. --- 693,699 ----
  138.   
  139.       /* set up to scan pop up buffer */
  140.       lp = lforw(popbuf->b_linep);
  141. ! /*    mlerase();    do we really need this? */
  142.       numlines = term.t_nrow-2;
  143.       cline = 0;
  144.   
  145. ***************
  146. *** 1024,1030 ****
  147.       register int i;        /* loop index */
  148.       register int lchar;     /* character to draw line in buffer with */
  149.       register int firstm;    /* is this the first mode? */
  150. !     char tline[NLINE];        /* buffer for part of mode line */
  151.   
  152.       /* don't bother if there is none! */
  153.       if (modeflag == FALSE)
  154. --- 1024,1031 ----
  155.       register int i;        /* loop index */
  156.       register int lchar;     /* character to draw line in buffer with */
  157.       register int firstm;    /* is this the first mode? */
  158. !     char tline[NLINE];    /* buffer for part of mode line */
  159. !     char time[6];        /* to hold current time */
  160.   
  161.       /* don't bother if there is none! */
  162.       if (modeflag == FALSE)
  163. ***************
  164. *** 1085,1090 ****
  165. --- 1086,1106 ----
  166.       strcat(tline, VERSION);
  167.       strcat(tline, " ");
  168.   
  169. +     /* display the time on the bottom most modeline if active */
  170. +     if (timeflag && wp->w_wndp == (WINDOW *)NULL) {
  171. + 
  172. +         /* get the current time/date string */
  173. +         getdtime(time);
  174. +         if (strcmp(time, "") != 0) {
  175. + 
  176. +             /* append the hour/min string */
  177. +             strcat(tline, "[");
  178. +             strcat(tline, time);
  179. +             strcat(tline, "] ");
  180. +             strcpy(lasttime, time);
  181. +         }
  182. +     }
  183. + 
  184.       /* are we horizontally scrolled? */
  185.       if (wp->w_fcol > 0) {
  186.           strcat(tline, "[<");
  187. ***************
  188. *** 1092,1097 ****
  189. --- 1108,1123 ----
  190.           strcat(tline, "]");
  191.       }
  192.   
  193. +     /* display the point position in buffer if on current modeline */
  194. +     if (posflag && wp == curwp) {
  195. + 
  196. +          strcat(tline, "L:");
  197. +          strcat(tline, int_asc(getlinenum(bp, wp->w_dotp)));
  198. +          strcat(tline, " C:");
  199. +          strcat(tline, int_asc(getccol(FALSE)));
  200. +          strcat(tline, " ");
  201. +     }
  202. + 
  203.       /* display the modes */
  204.       strcat(tline, "(");
  205.       firstm = TRUE;
  206. ***************
  207. *** 1166,1172 ****
  208.       }
  209.   }
  210.   
  211. ! PASCAL NEAR upmode()    /* update all the mode lines */
  212.   
  213.   {
  214.       register WINDOW *wp;
  215. --- 1192,1216 ----
  216.       }
  217.   }
  218.   
  219. ! VOID PASCAL NEAR getdtime(ts)    /* get the current display time string */
  220. ! 
  221. ! char *ts;
  222. ! 
  223. ! {
  224. !     char buf[80];
  225. ! 
  226. !     strcpy(buf, timeset());
  227. !     if (strcmp(buf, errorm) == 0) {
  228. !         *ts = 0;
  229. !         return;
  230. !     }
  231. ! 
  232. !     buf[16] = 0;
  233. !     strcpy(ts, &buf[11]);
  234. !     return;
  235. ! }
  236. ! 
  237. ! VOID PASCAL NEAR upmode()    /* update all the mode lines */
  238.   
  239.   {
  240.       register WINDOW *wp;
  241. ***************
  242. *** 1178,1184 ****
  243.       }
  244.   }
  245.   
  246. ! PASCAL NEAR upwind()    /* force hard updates on all windows */
  247.   
  248.   {
  249.       register WINDOW *wp;
  250. --- 1222,1228 ----
  251.       }
  252.   }
  253.   
  254. ! VOID PASCAL NEAR upwind()    /* force hard updates on all windows */
  255.   
  256.   {
  257.       register WINDOW *wp;
  258. ***************
  259. *** 1213,1219 ****
  260.    * immediately; the terminal buffer is flushed via a call to the flusher.
  261.    */
  262.   
  263. ! PASCAL NEAR mlferase()
  264.   
  265.   {
  266.       register int save_discmd;
  267. --- 1257,1263 ----
  268.    * immediately; the terminal buffer is flushed via a call to the flusher.
  269.    */
  270.   
  271. ! VOID PASCAL NEAR mlferase()
  272.   
  273.   {
  274.       register int save_discmd;
  275. ***************
  276. *** 1224,1230 ****
  277.       discmd = save_discmd;;
  278.   }
  279.   
  280. ! PASCAL NEAR mlerase()
  281.   
  282.   {
  283.       int i;
  284. --- 1268,1274 ----
  285.       discmd = save_discmd;;
  286.   }
  287.   
  288. ! VOID PASCAL NEAR mlerase()
  289.   
  290.   {
  291.       int i;
  292. *** ../orig/dolock.c    Mon Jul 27 21:51:44 1992
  293. --- dolock.c    Mon Jul 27 21:54:37 1992
  294. ***************
  295. *** 53,59 ****
  296.   }
  297.   #endif
  298.   
  299. ! #if    FILOCK && (MSDOS || OS2 || SUN)
  300.   #if    OS2 || (MSDOS && MSC)
  301.   #include    <sys/types.h>
  302.   #endif
  303. --- 53,59 ----
  304.   }
  305.   #endif
  306.   
  307. ! #if    FILOCK && (MSDOS || OS2 || SUN || USG || V7 || BSD)
  308.   #if    OS2 || (MSDOS && MSC)
  309.   #include    <sys/types.h>
  310.   #endif
  311. ***************
  312. *** 71,77 ****
  313. --- 71,79 ----
  314.   #if    ZTC
  315.   extern volatile int errno;
  316.   #else
  317. + #if    MSC == 0
  318.   extern int errno;
  319. + #endif
  320.   #endif
  321.   #endif
  322.   
  323. *** ../orig/dutch.h    Mon Jul 27 21:51:44 1992
  324. --- dutch.h    Mon Jul 27 21:55:31 1992
  325. ***************
  326. *** 235,238 ****
  327.   #define    TEXT225 "[Switched to screen %s]"
  328.   #define    TEXT226    "%%Can not kill an executing buffer"
  329.   #define    TEXT227 "\n--- Press any key to Continue ---"
  330. ! 
  331. --- 235,238 ----
  332.   #define    TEXT225 "[Switched to screen %s]"
  333.   #define    TEXT226    "%%Can not kill an executing buffer"
  334.   #define    TEXT227 "\n--- Press any key to Continue ---"
  335. ! #define TEXT228 "[Kill ring cleared]"
  336. *** ../orig/ebind.h    Mon Jul 27 21:51:44 1992
  337. --- ebind.h    Mon Jul 27 21:55:32 1992
  338. ***************
  339. *** 94,99 ****
  340. --- 94,100 ----
  341.   #endif
  342.       {CTLX|'W',        BINDFNC,    resize},
  343.       {CTLX|'X',        BINDFNC,    nextbuffer},
  344. +     {CTLX|'Y',        BINDFNC,    cycle_ring},
  345.       {CTLX|'Z',        BINDFNC,    enlargewind},
  346.       {META|CTRL|'C',     BINDFNC,    wordcount},
  347.       {META|CTRL|'E',     BINDFNC,    execproc},
  348. ***************
  349. *** 109,114 ****
  350. --- 110,116 ----
  351.       {META|CTRL|'V',     BINDFNC,    nextdown},
  352.       {META|CTRL|'W',     BINDFNC,    killpara},
  353.       {META|CTRL|'X',     BINDFNC,    execcmd},
  354. +     {META|CTRL|'Y',        BINDFNC,    clear_ring},
  355.       {META|CTRL|'Z',     BINDFNC,    nextup},
  356.       {META|' ',        BINDFNC,    setmark},
  357.       {META|'?',        BINDFNC,    help},
  358. ***************
  359. *** 142,147 ****
  360. --- 144,150 ----
  361.       {META|'V',        BINDFNC,    backpage},
  362.       {META|'W',        BINDFNC,    copyregion},
  363.       {META|'X',        BINDFNC,    namedcmd},
  364. +     {META|'Y',        BINDFNC,    yank_pop},
  365.       {META|'Z',        BINDFNC,    quickexit},
  366.       {META|CTRL|'?',        BINDFNC,    delbword},
  367.   
  368. *** ../orig/edef.h    Mon Jul 27 21:51:44 1992
  369. --- edef.h    Mon Jul 27 21:55:33 1992
  370. ***************
  371. *** 47,53 ****
  372. --- 47,56 ----
  373.   NOSHARE int DNEAR discmd = TRUE;     /* display command flag     */
  374.   NOSHARE int DNEAR disinp = TRUE;     /* display input characters    */
  375.   NOSHARE int DNEAR modeflag = TRUE;    /* display modelines flag    */
  376. + NOSHARE int DNEAR timeflag = FALSE;    /* display time            */
  377. + NOSHARE char DNEAR lasttime[6] = "";    /* last time string displayed    */
  378.   NOSHARE int DNEAR popflag = TRUE;    /* pop-up windows enabled?    */
  379. + NOSHARE int DNEAR posflag = TRUE;    /* display point position    */
  380.   NOSHARE int cpending = FALSE;        /* input character pending?    */
  381.   NOSHARE int charpending;        /* character pushed back    */
  382.   NOSHARE int DNEAR sscroll = FALSE;    /* smooth scrolling enabled flag*/
  383. ***************
  384. *** 81,90 ****
  385.       "GRAY", "LRED", "LGREEN", "LYELLOW", "LBLUE",
  386.       "LMAGENTA", "LCYAN", "WHITE"};
  387.     
  388. ! NOSHARE KILL *kbufp = NULL;        /* current kill buffer chunk pointer*/
  389. ! NOSHARE KILL *kbufh = NULL;        /* kill buffer header pointer    */
  390. ! NOSHARE    int kskip = 0;            /* # of bytes to skip in 1st kill chunk */
  391. ! NOSHARE int kused = KBLOCK;        /* # of bytes used in last kill chunk*/
  392.   NOSHARE WINDOW *swindow = NULL;     /* saved window pointer     */
  393.   NOSHARE int cryptflag = FALSE;        /* currently encrypting?    */
  394.   NOSHARE int oldcrypt = FALSE;        /* using old(broken) encryption? */
  395. --- 84,94 ----
  396.       "GRAY", "LRED", "LGREEN", "LYELLOW", "LBLUE",
  397.       "LMAGENTA", "LCYAN", "WHITE"};
  398.     
  399. ! NOSHARE int kill_index;            /* current index into kill ring */
  400. ! NOSHARE KILL *kbufp[NRING];        /* current kill buffer chunk pointer*/
  401. ! NOSHARE KILL *kbufh[NRING];        /* kill buffer header pointer    */
  402. ! NOSHARE    int kskip[NRING];        /* # of bytes to skip in 1st kill chunk */
  403. ! NOSHARE int kused[NRING];        /* # of bytes used in last kill chunk*/
  404.   NOSHARE WINDOW *swindow = NULL;     /* saved window pointer     */
  405.   NOSHARE int cryptflag = FALSE;        /* currently encrypting?    */
  406.   NOSHARE int oldcrypt = FALSE;        /* using old(broken) encryption? */
  407. ***************
  408. *** 150,158 ****
  409.   NOSHARE KEYTAB exbhook;        /* executed when exiting a buffer */
  410.   NOSHARE KEYTAB bufhook;        /* executed when entering a buffer */
  411.   
  412. ! /*    The variable patmatch holds the
  413. !     string that satisfies the search command.
  414. ! */
  415.   NOSHARE char *patmatch = NULL;
  416.   
  417.   #if    MAGIC
  418. --- 154,167 ----
  419.   NOSHARE KEYTAB exbhook;        /* executed when exiting a buffer */
  420.   NOSHARE KEYTAB bufhook;        /* executed when entering a buffer */
  421.   
  422. ! /* The variables matchline and matchoff hold the line
  423. !  * and offset position of the *start* of the match.
  424. !  * The variable patmatch holds the string that satisfies
  425. !  * the search command.
  426. !  */
  427. ! NOSHARE int    matchlen;
  428. ! NOSHARE int    matchoff;
  429. ! NOSHARE LINE    *matchline;
  430.   NOSHARE char *patmatch = NULL;
  431.   
  432.   #if    MAGIC
  433. ***************
  434. *** 235,241 ****
  435. --- 244,253 ----
  436.   NOSHARE extern int DNEAR discmd;    /* display command flag     */
  437.   NOSHARE extern int DNEAR disinp;    /* display input characters    */
  438.   NOSHARE extern int DNEAR modeflag;    /* display modelines flag    */
  439. + NOSHARE extern int DNEAR timeflag;    /* display time            */
  440. + NOSHARE extern char DNEAR lasttime[];    /* last time string displayed    */
  441.   NOSHARE extern int DNEAR popflag;    /* pop-up windows enabled?    */
  442. + NOSHARE extern int DNEAR posflag;    /* display point position    */
  443.   NOSHARE extern int cpending;        /* input character pending?    */
  444.   NOSHARE extern int charpending;        /* character pushed back    */
  445.   NOSHARE extern int DNEAR sscroll;    /* smooth scrolling enabled flag*/
  446. ***************
  447. *** 265,274 ****
  448.   NOSHARE extern int DNEAR quotec;    /* quote char during mlreply() */
  449.   NOSHARE extern CONST char *cname[];    /* names of colors        */
  450.     
  451. ! NOSHARE extern KILL *kbufp;        /* current kill buffer chunk pointer */
  452. ! NOSHARE extern KILL *kbufh;        /* kill buffer header pointer    */
  453. ! NOSHARE    extern int kskip;        /* # of bytes to skip in 1st kill chunk */
  454. ! NOSHARE extern int kused;        /* # of bytes used in kill buffer*/
  455.   NOSHARE extern WINDOW *swindow;     /* saved window pointer     */
  456.   NOSHARE extern int cryptflag;        /* currently encrypting?    */
  457.   NOSHARE extern int oldcrypt;        /* using old(broken) encryption? */
  458. --- 277,287 ----
  459.   NOSHARE extern int DNEAR quotec;    /* quote char during mlreply() */
  460.   NOSHARE extern CONST char *cname[];    /* names of colors        */
  461.     
  462. ! NOSHARE extern int kill_index;        /* current index into kill ring */
  463. ! NOSHARE extern KILL *kbufp[];        /* current kill buffer chunk pointer */
  464. ! NOSHARE extern KILL *kbufh[];        /* kill buffer header pointer    */
  465. ! NOSHARE    extern int kskip[];        /* # of bytes to skip in 1st kill chunk */
  466. ! NOSHARE extern int kused[];        /* # of bytes used in kill buffer*/
  467.   NOSHARE extern WINDOW *swindow;     /* saved window pointer     */
  468.   NOSHARE extern int cryptflag;        /* currently encrypting?    */
  469.   NOSHARE extern int oldcrypt;        /* using old(broken) encryption? */
  470. ***************
  471. *** 334,339 ****
  472. --- 347,355 ----
  473.   NOSHARE extern KEYTAB exbhook;        /* executed when exiting a buffer */
  474.   NOSHARE extern KEYTAB bufhook;        /* executed when entering a buffer */
  475.   
  476. + NOSHARE extern int matchlen;
  477. + NOSHARE extern int matchoff;
  478. + NOSHARE extern LINE *matchline;
  479.   NOSHARE extern char *patmatch;
  480.   
  481.   #if    MAGIC
  482. *** ../orig/efunc.h    Mon Jul 27 21:51:45 1992
  483. --- efunc.h    Mon Jul 27 21:55:34 1992
  484. ***************
  485. *** 45,53 ****
  486. --- 45,55 ----
  487.       {"count-words",            wordcount},
  488.       {"ctlx-prefix",            cex},
  489.       {"cycle-screens",        cycle_screens},
  490. +     {"cycle-ring",            cycle_ring},
  491.       {"delete-blank-lines",        deblank},
  492.       {"delete-buffer",        killbuffer},
  493.       {"delete-global-mode",        delgmode},
  494. +     {"delete-kill-ring",        clear_ring},
  495.       {"delete-mode",            delmode},
  496.       {"delete-next-character",    forwdel},
  497.       {"delete-next-word",        delfword},
  498. ***************
  499. *** 241,246 ****
  500. --- 243,249 ----
  501.       {"write-file",            filewrite},
  502.       {"write-message",        writemsg},
  503.       {"yank",            yank},
  504. +     {"yank-pop",            yank_pop},
  505.   
  506.       {"",            NULL}
  507.   };
  508. *** ../orig/english.h    Mon Jul 27 21:51:45 1992
  509. --- english.h    Mon Jul 27 21:55:35 1992
  510. ***************
  511. *** 230,233 ****
  512. --- 230,234 ----
  513.   #define    TEXT224 "%%Row origin out of range"
  514.   #define    TEXT225 "[Switched to screen %s]"
  515.   #define    TEXT226    "%%Can not kill an executing buffer"
  516. + #define TEXT228 "[Kill ring cleared]"
  517.   #define    TEXT227 "\n--- Press any key to Continue ---"
  518. *** ../orig/epath.h    Mon Jul 27 21:51:45 1992
  519. --- epath.h    Mon Jul 27 21:55:35 1992
  520. ***************
  521. *** 12,21 ****
  522.       ".emacsrc",
  523.       "emacs.hlp",
  524.       "",
  525. !     "sys:c/",
  526. !     "sys:t/",
  527. !     "sys:s/",
  528. !     "c:/",
  529.       ":t/",
  530.       ":s/"
  531.   };
  532. --- 12,18 ----
  533.       ".emacsrc",
  534.       "emacs.hlp",
  535.       "",
  536. !     "c:",
  537.       ":t/",
  538.       ":s/"
  539.   };
  540. *** ../orig/eproto.h    Mon Jul 27 21:51:45 1992
  541. --- eproto.h    Mon Jul 27 21:55:37 1992
  542. ***************
  543. *** 62,69 ****
  544.   extern char *undolock(char *fname);
  545.   extern char *PASCAL NEAR regtostr(char *buf, REGION *region);
  546.   extern char PASCAL NEAR lowerc(char ch);
  547. ! extern char PASCAL NEAR upperc(char ch);
  548. ! #if    ZTC
  549.   extern int (PASCAL NEAR *PASCAL NEAR fncmatch(char *fname))(int, int);
  550.   extern int (PASCAL NEAR *PASCAL NEAR getname(char *prompt))(int, int);
  551.   #else    /* Sun (and others?) screwed up the prototyping.*/
  552. --- 62,69 ----
  553.   extern char *undolock(char *fname);
  554.   extern char *PASCAL NEAR regtostr(char *buf, REGION *region);
  555.   extern char PASCAL NEAR lowerc(char ch);
  556. ! extern int PASCAL NEAR upperc(char ch);
  557. ! #if    ZTC || TURBO
  558.   extern int (PASCAL NEAR *PASCAL NEAR fncmatch(char *fname))(int, int);
  559.   extern int (PASCAL NEAR *PASCAL NEAR getname(char *prompt))(int, int);
  560.   #else    /* Sun (and others?) screwed up the prototyping.*/
  561. ***************
  562. *** 124,131 ****
  563. --- 124,136 ----
  564.   extern int PASCAL NEAR isletter(register unsigned int ch);
  565.   extern int PASCAL NEAR islower(register unsigned int ch);
  566.   extern int PASCAL NEAR is_num(char *st);
  567. + extern int PASCAL NEAR isearch(int dir);
  568.   extern int PASCAL NEAR isupper(register unsigned int ch);
  569. + extern int PASCAL NEAR ldelnewline(void);
  570. + extern int PASCAL NEAR linstr(char *instr);
  571. + extern int PASCAL NEAR lnewline(void);
  572.   extern int PASCAL NEAR lookup_color(char *sp);
  573. + extern int PASCAL NEAR lover(char *ostr);
  574.   extern int PASCAL NEAR mceq(int bc, MC *mt);
  575.   extern int PASCAL NEAR mcscanner(int direct, int beg_or_end, int repeats);
  576.   extern int PASCAL NEAR mcstr(void);
  577. ***************
  578. *** 223,228 ****
  579. --- 228,234 ----
  580.   extern PASCAL NEAR cex(int f, int n);
  581.   extern PASCAL NEAR cinsert(void);
  582.   extern PASCAL NEAR clean(void);
  583. + extern PASCAL NEAR clear_ring(int f, int n);
  584.   extern PASCAL NEAR clrmes(int f, int n);
  585.   extern PASCAL NEAR cmdstr(int c, char *seq);
  586.   extern PASCAL NEAR copyregion(int f, int n);
  587. ***************
  588. *** 233,238 ****
  589. --- 239,245 ----
  590.   extern PASCAL NEAR ctoec(int c);
  591.   extern PASCAL NEAR ctrlg(int f, int n);
  592.   extern PASCAL NEAR cycle_screens(int f, int n);
  593. + extern PASCAL NEAR cycle_ring(int f, int n);
  594.   extern PASCAL NEAR dcline(int argc, char *argv[], int firstflag);
  595.   extern PASCAL NEAR deblank(int f, int n);
  596.   extern PASCAL NEAR debug(BUFFER *bp, char *eline, int *skipflag);
  597. ***************
  598. *** 311,320 ****
  599.   extern PASCAL NEAR inspound(void);
  600.   extern PASCAL NEAR insspace(int f, int n);
  601.   extern PASCAL NEAR inword(void);
  602. - extern PASCAL NEAR isearch(int dir);
  603.   extern PASCAL NEAR ismodeline(WINDOW *wp, int row);
  604.   extern PASCAL NEAR istring(int f, int n);
  605. ! extern PASCAL NEAR kdelete(void);
  606.   extern PASCAL NEAR killbuffer(int f, int n);
  607.   extern PASCAL NEAR killpara(int f, int n);
  608.   extern PASCAL NEAR killregion(int f, int n);
  609. --- 318,326 ----
  610.   extern PASCAL NEAR inspound(void);
  611.   extern PASCAL NEAR insspace(int f, int n);
  612.   extern PASCAL NEAR inword(void);
  613.   extern PASCAL NEAR ismodeline(WINDOW *wp, int row);
  614.   extern PASCAL NEAR istring(int f, int n);
  615. ! extern PASCAL NEAR next_kill(void);
  616.   extern PASCAL NEAR killbuffer(int f, int n);
  617.   extern PASCAL NEAR killpara(int f, int n);
  618.   extern PASCAL NEAR killregion(int f, int n);
  619. ***************
  620. *** 322,336 ****
  621.   extern PASCAL NEAR kinsert(int back, char c);
  622.   extern PASCAL NEAR lchange(register int flag);
  623.   extern PASCAL NEAR ldelete(long n, int kflag);
  624. - extern PASCAL NEAR ldelnewline(void);
  625.   extern PASCAL NEAR lfree(LINE *lp);
  626.   extern PASCAL NEAR linsert(int n, char c);
  627. - extern PASCAL NEAR linstr(char *instr);
  628.   extern PASCAL NEAR listbuffers(int f, int n);
  629.   extern PASCAL NEAR list_screens(int f, int n);
  630. - extern PASCAL NEAR lnewline(void);
  631.   extern PASCAL NEAR long_asc(char buf[], int width, long num);
  632. - extern PASCAL NEAR lover(char *ostr);
  633.   extern PASCAL NEAR lowerregion(int f, int n);
  634.   extern PASCAL NEAR lowerword(int f, int n);
  635.   extern PASCAL NEAR lowrite(char c);
  636. --- 328,338 ----
  637. ***************
  638. *** 340,350 ****
  639.   extern PASCAL NEAR mouse_screen(void);
  640.   extern PASCAL NEAR screenlist(int iflag);
  641.   extern PASCAL NEAR makelit(char *s);
  642. - extern VOID PASCAL NEAR mcclear(void);
  643.   extern PASCAL NEAR meexit(int status);
  644.   extern PASCAL NEAR meta(int f, int n);
  645. - extern PASCAL NEAR mlerase(void);
  646. - extern PASCAL NEAR mlferase(void);
  647.   extern PASCAL NEAR mlforce(char *s);
  648.   extern PASCAL NEAR mlout(int c);
  649.   extern PASCAL NEAR mlputf(int s);
  650. --- 342,349 ----
  651. ***************
  652. *** 392,398 ****
  653.   extern PASCAL NEAR quote(int f, int n);
  654.   extern PASCAL NEAR rdonly(void);
  655.   extern PASCAL NEAR readin(char fname[], int lockfl);
  656. - extern PASCAL NEAR reeat(int c);
  657.   extern PASCAL NEAR reform(char *para);
  658.   extern PASCAL NEAR reframe(WINDOW *wp);
  659.   extern PASCAL NEAR refresh(int f, int n);
  660. --- 391,396 ----
  661. ***************
  662. *** 403,418 ****
  663.   extern PASCAL NEAR resizm(int f, int n);
  664.   extern PASCAL NEAR resterr(void);
  665.   extern PASCAL NEAR restwnd(int f, int n);
  666. - extern VOID PASCAL NEAR rmcclear(void);
  667. - extern VOID PASCAL NEAR rvstrcpy(char *rvstr, char *str);
  668.   extern PASCAL NEAR savewnd(int f, int n);
  669.   extern PASCAL NEAR scwrite(int row, char *outstr, int forg, int bacg);
  670. - extern VOID PASCAL NEAR setbit(int bc, BITMAP cclmap);
  671.   extern PASCAL NEAR setccol(int pos);
  672.   extern PASCAL NEAR setekey(int f, int n);
  673.   extern PASCAL NEAR setfillcol(int f, int n);
  674.   extern PASCAL NEAR setgmode(int f, int n);
  675. - extern VOID PASCAL NEAR setjtable(void);
  676.   extern PASCAL NEAR setmark(int f, int n);
  677.   extern PASCAL NEAR setmod(int f, int n);
  678.   extern PASCAL NEAR setwlist(char *wclist);
  679. --- 401,412 ----
  680. ***************
  681. *** 454,464 ****
  682.   extern PASCAL NEAR updone(WINDOW *wp);
  683.   extern PASCAL NEAR updpos(void);
  684.   extern PASCAL NEAR updupd(int force);
  685. - extern PASCAL NEAR upmode(void);
  686.   extern PASCAL NEAR upperregion(int f, int n);
  687.   extern PASCAL NEAR upperword(int f, int n);
  688.   extern PASCAL NEAR upscreen(int f, int n);
  689. - extern PASCAL NEAR upwind(void);
  690.   extern PASCAL NEAR usebuffer(int f, int n);
  691.   extern PASCAL NEAR varclean(void);
  692.   extern PASCAL NEAR varinit(void);
  693. --- 448,456 ----
  694. ***************
  695. *** 475,484 ****
  696. --- 467,488 ----
  697.   extern PASCAL NEAR writemsg(int f, int n);
  698.   extern PASCAL NEAR writeout(char *fn, char *mode);
  699.   extern PASCAL NEAR yank(int f, int n);
  700. + extern PASCAL NEAR yank_pop(int f, int n);
  701.   extern PASCAL NEAR zotbuf(BUFFER *bp);
  702.   extern unsigned int PASCAL NEAR chcase(register unsigned int ch);
  703.   extern unsigned int PASCAL NEAR getckey(int mflag);
  704.   extern unsigned int PASCAL NEAR stock(char *keyname);
  705. + extern VOID PASCAL NEAR getdtime(char *ts);
  706. + extern VOID PASCAL NEAR mcclear(void);
  707. + extern VOID PASCAL NEAR mlerase(void);
  708. + extern VOID PASCAL NEAR mlferase(void);
  709. + extern VOID PASCAL NEAR reeat(int c);
  710. + extern VOID PASCAL NEAR rmcclear(void);
  711. + extern VOID PASCAL NEAR rvstrcpy(char *rvstr, char *str);
  712. + extern VOID PASCAL NEAR setbit(int bc, BITMAP cclmap);
  713. + extern VOID PASCAL NEAR setjtable(void);
  714. + extern VOID PASCAL NEAR upmode(void);
  715. + extern VOID PASCAL NEAR upwind(void);
  716.   extern WINDOW *PASCAL NEAR mousewindow(int row);
  717.   extern int PASCAL NEAR wpopup(BUFFER *popbuf);
  718.   
  719. ***************
  720. *** 549,555 ****
  721.   extern char *undolock();
  722.   extern char *PASCAL NEAR regtostr();
  723.   extern char PASCAL NEAR lowerc();
  724. ! extern char PASCAL NEAR upperc();
  725.   extern int (PASCAL NEAR *PASCAL NEAR fncmatch())();
  726.   extern int (PASCAL NEAR *PASCAL NEAR getname())();
  727.   extern int a1getc();
  728. --- 553,559 ----
  729.   extern char *undolock();
  730.   extern char *PASCAL NEAR regtostr();
  731.   extern char PASCAL NEAR lowerc();
  732. ! extern int PASCAL NEAR upperc();
  733.   extern int (PASCAL NEAR *PASCAL NEAR fncmatch())();
  734.   extern int (PASCAL NEAR *PASCAL NEAR getname())();
  735.   extern int a1getc();
  736. ***************
  737. *** 606,613 ****
  738. --- 610,622 ----
  739.   extern int PASCAL NEAR isletter();
  740.   extern int PASCAL NEAR islower();
  741.   extern int PASCAL NEAR is_num();
  742. + extern int PASCAL NEAR isearch();
  743.   extern int PASCAL NEAR isupper();
  744. + extern int PASCAL NEAR ldelnewline();
  745. + extern int PASCAL NEAR linstr();
  746. + extern int PASCAL NEAR lnewline();
  747.   extern int PASCAL NEAR lookup_color();
  748. + extern int PASCAL NEAR lover();
  749.   extern int PASCAL NEAR mceq();
  750.   extern int PASCAL NEAR mcscanner();
  751.   extern int PASCAL NEAR mcstr();
  752. ***************
  753. *** 705,710 ****
  754. --- 714,720 ----
  755.   extern PASCAL NEAR cex();
  756.   extern PASCAL NEAR cinsert();
  757.   extern PASCAL NEAR clean();
  758. + extern PASCAL NEAR clear_ring();
  759.   extern PASCAL NEAR clrmes();
  760.   extern PASCAL NEAR cmdstr();
  761.   extern PASCAL NEAR copyregion();
  762. ***************
  763. *** 715,720 ****
  764. --- 725,731 ----
  765.   extern PASCAL NEAR ctoec();
  766.   extern PASCAL NEAR ctrlg();
  767.   extern PASCAL NEAR cycle_screens();
  768. + extern PASCAL NEAR cycle_ring();
  769.   extern PASCAL NEAR dcline();
  770.   extern PASCAL NEAR deblank();
  771.   extern PASCAL NEAR debug();
  772. ***************
  773. *** 794,803 ****
  774.   extern PASCAL NEAR insspace();
  775.   extern PASCAL NEAR inword();
  776.   extern PASCAL NEAR isearch();
  777. - extern PASCAL NEAR isearch();
  778.   extern PASCAL NEAR ismodeline();
  779.   extern PASCAL NEAR istring();
  780. ! extern PASCAL NEAR kdelete();
  781.   extern PASCAL NEAR killbuffer();
  782.   extern PASCAL NEAR killpara();
  783.   extern PASCAL NEAR killregion();
  784. --- 805,813 ----
  785.   extern PASCAL NEAR insspace();
  786.   extern PASCAL NEAR inword();
  787.   extern PASCAL NEAR isearch();
  788.   extern PASCAL NEAR ismodeline();
  789.   extern PASCAL NEAR istring();
  790. ! extern PASCAL NEAR next_kill();
  791.   extern PASCAL NEAR killbuffer();
  792.   extern PASCAL NEAR killpara();
  793.   extern PASCAL NEAR killregion();
  794. ***************
  795. *** 805,819 ****
  796.   extern PASCAL NEAR kinsert();
  797.   extern PASCAL NEAR lchange();
  798.   extern PASCAL NEAR ldelete();
  799. - extern PASCAL NEAR ldelnewline();
  800.   extern PASCAL NEAR lfree();
  801.   extern PASCAL NEAR linsert();
  802. - extern PASCAL NEAR linstr();
  803.   extern PASCAL NEAR listbuffers();
  804.   extern PASCAL NEAR list_screens();
  805. - extern PASCAL NEAR lnewline();
  806.   extern PASCAL NEAR long_asc();
  807. - extern PASCAL NEAR lover();
  808.   extern PASCAL NEAR lowerregion();
  809.   extern PASCAL NEAR lowerword();
  810.   extern PASCAL NEAR lowrite();
  811. --- 815,825 ----
  812. ***************
  813. *** 823,833 ****
  814.   extern PASCAL NEAR mouse_screen();
  815.   extern PASCAL NEAR screenlist();
  816.   extern PASCAL NEAR makelit();
  817. - extern VOID PASCAL NEAR mcclear();
  818.   extern PASCAL NEAR meexit();
  819.   extern PASCAL NEAR meta();
  820. - extern PASCAL NEAR mlerase();
  821. - extern PASCAL NEAR mlferase();
  822.   extern PASCAL NEAR mlforce();
  823.   extern PASCAL NEAR mlout();
  824.   extern PASCAL NEAR mlputf();
  825. --- 829,836 ----
  826. ***************
  827. *** 875,881 ****
  828.   extern PASCAL NEAR quote();
  829.   extern PASCAL NEAR rdonly();
  830.   extern PASCAL NEAR readin();
  831. - extern PASCAL NEAR reeat();
  832.   extern PASCAL NEAR reform();
  833.   extern PASCAL NEAR reframe();
  834.   extern PASCAL NEAR refresh();
  835. --- 878,883 ----
  836. ***************
  837. *** 886,901 ****
  838.   extern PASCAL NEAR resizm();
  839.   extern PASCAL NEAR resterr();
  840.   extern PASCAL NEAR restwnd();
  841. - extern VOID PASCAL NEAR rmcclear();
  842. - extern VOID PASCAL NEAR rvstrcpy();
  843.   extern PASCAL NEAR savewnd();
  844.   extern PASCAL NEAR scwrite();
  845. - extern VOID PASCAL NEAR setbit();
  846.   extern PASCAL NEAR setccol();
  847.   extern PASCAL NEAR setekey();
  848.   extern PASCAL NEAR setfillcol();
  849.   extern PASCAL NEAR setgmode();
  850. - extern VOID PASCAL NEAR setjtable();
  851.   extern PASCAL NEAR setmark();
  852.   extern PASCAL NEAR setmod();
  853.   extern PASCAL NEAR setwlist();
  854. --- 888,899 ----
  855. ***************
  856. *** 937,947 ****
  857.   extern PASCAL NEAR updone();
  858.   extern PASCAL NEAR updpos();
  859.   extern PASCAL NEAR updupd();
  860. - extern PASCAL NEAR upmode();
  861.   extern PASCAL NEAR upperregion();
  862.   extern PASCAL NEAR upperword();
  863.   extern PASCAL NEAR upscreen();
  864. - extern PASCAL NEAR upwind();
  865.   extern PASCAL NEAR usebuffer();
  866.   extern PASCAL NEAR varclean();
  867.   extern PASCAL NEAR varinit();
  868. --- 935,943 ----
  869. ***************
  870. *** 958,967 ****
  871. --- 954,975 ----
  872.   extern PASCAL NEAR writemsg();
  873.   extern PASCAL NEAR writeout();
  874.   extern PASCAL NEAR yank();
  875. + extern PASCAL NEAR yank_pop();
  876.   extern PASCAL NEAR zotbuf();
  877.   extern unsigned int PASCAL NEAR chcase();
  878.   extern unsigned int PASCAL NEAR getckey();
  879.   extern unsigned int PASCAL NEAR stock();
  880. + extern VOID PASCAL NEAR getdtime();
  881. + extern VOID PASCAL NEAR mcclear();
  882. + extern VOID PASCAL NEAR mlerase();
  883. + extern VOID PASCAL NEAR mlferase();
  884. + extern VOID PASCAL NEAR reeat();
  885. + extern VOID PASCAL NEAR rmcclear();
  886. + extern VOID PASCAL NEAR rvstrcpy();
  887. + extern VOID PASCAL NEAR setbit();
  888. + extern VOID PASCAL NEAR setjtable();
  889. + extern VOID PASCAL NEAR upmode();
  890. + extern VOID PASCAL NEAR upwind();
  891.   extern WINDOW *PASCAL NEAR mousewindow();
  892.   extern int PASCAL NEAR wpopup();
  893.   
  894. *** estruct.h.orig    Fri Oct 25 13:39:08 1991
  895. --- estruct.h    Sun Aug  9 13:07:49 1992
  896. ***************
  897. *** 31,37 ****
  898.   */
  899.   
  900.   #define PROGNAME    "MicroEMACS"
  901. ! #define    VERSION        "3.11"
  902.   
  903.   /*    Machine/OS definitions            */
  904.   /*    [Set one of these!!]            */
  905. --- 31,37 ----
  906.   */
  907.   
  908.   #define PROGNAME    "MicroEMACS"
  909. ! #define    VERSION        "3.11c"
  910.   
  911.   /*    Machine/OS definitions            */
  912.   /*    [Set one of these!!]            */
  913. ***************
  914. *** 43,49 ****
  915.   #define FINDER    0            /* Macintosh OS         */
  916.   #define HPUX    0            /* HPUX HP 9000 minicomputer    */
  917.   #define MPE    0            /* HP MPE/XL            */
  918. ! #define MSDOS    0            /* MS-DOS            */
  919.   #define OS2    0            /* Microsoft or IBM OS/2    */
  920.   #define SMOS    0            /* Supermax UNIX System V    */
  921.   #define SUN    0            /* SUN v4.0            */
  922. --- 43,49 ----
  923.   #define FINDER    0            /* Macintosh OS         */
  924.   #define HPUX    0            /* HPUX HP 9000 minicomputer    */
  925.   #define MPE    0            /* HP MPE/XL            */
  926. ! #define MSDOS    1            /* MS-DOS            */
  927.   #define OS2    0            /* Microsoft or IBM OS/2    */
  928.   #define SMOS    0            /* Supermax UNIX System V    */
  929.   #define SUN    0            /* SUN v4.0            */
  930. ***************
  931. *** 62,68 ****
  932.   #define DTL    0    /* DataLight C v3.12 */
  933.   #define GCC    0    /* the GNU C compiler */
  934.   #define LATTICE 0    /* Lattice 2.14 through 3.0 compilers */
  935. ! #define MSC    0    /* MicroSoft C compile version 3 & 4 & 5.1 */
  936.   #define MWC    0    /* Mark Williams C */
  937.   #define TURBO    0    /* Turbo C/MSDOS */
  938.   #define UNIX    0    /* a standard UNIX compiler (cc) */
  939. --- 62,68 ----
  940.   #define DTL    0    /* DataLight C v3.12 */
  941.   #define GCC    0    /* the GNU C compiler */
  942.   #define LATTICE 0    /* Lattice 2.14 through 3.0 compilers */
  943. ! #define MSC    0    /* MicroSoft C compile version 3 & 4 & 5.1 & 6 */
  944.   #define MWC    0    /* Mark Williams C */
  945.   #define TURBO    0    /* Turbo C/MSDOS */
  946.   #define UNIX    0    /* a standard UNIX compiler (cc) */
  947. ***************
  948. *** 82,88 ****
  949.   
  950.   /*   Special keyboard/network definitions         */
  951.   
  952. ! #define ATKBD    0        /* AT-style keyboard with F11, F12 & grey keys */
  953.   #define WANGPC    0        /* WangPC - mostly escape sequences    */
  954.   #define VT100    0        /* Handle VT100 style keypad - NOT VMS.    */
  955.   #define    NOVELL    0        /* IBMPC Novell NetWare flag! */
  956. --- 82,88 ----
  957.   
  958.   /*   Special keyboard/network definitions         */
  959.   
  960. ! #define ATKBD    1        /* AT-style keyboard with F11, F12 & grey keys */
  961.   #define WANGPC    0        /* WangPC - mostly escape sequences    */
  962.   #define VT100    0        /* Handle VT100 style keypad - NOT VMS.    */
  963.   #define    NOVELL    0        /* IBMPC Novell NetWare flag! */
  964. ***************
  965. *** 103,108 ****
  966. --- 103,109 ----
  967.   #define FMR    0            /* Fujitsu FMR series driver    */
  968.   #define HP110    0            /* HP110 screen driver        */
  969.   #define HP150    0            /* HP150 screen driver        */
  970. + #define    I55    0            /* IBM PS55 DOS J4.0/V        */
  971.   #define IBMPC    0            /* IBM-PC CGA/MONO/EGA/VGA drvr    */
  972.   #define MAC    0            /* Macintosh            */
  973.   #define NEC    0            /* NEC-9801VM driver        */
  974. ***************
  975. *** 117,123 ****
  976.   
  977.   /*    Windowing system style (pick one)                */
  978.   
  979. ! #define    WINDOW_TEXT    0        /* Text mode.... simple updates    */
  980.   #define    WINDOW_XVT    0        /* using XVT/any platform    */
  981.   #define    WINDOW_MSWIN    0        /* MicroSoft Windows        */
  982.   #define    WINDOW_X    0        /* X/Unix            */
  983. --- 118,124 ----
  984.   
  985.   /*    Windowing system style (pick one)                */
  986.   
  987. ! #define    WINDOW_TEXT    1        /* Text mode.... simple updates    */
  988.   #define    WINDOW_XVT    0        /* using XVT/any platform    */
  989.   #define    WINDOW_MSWIN    0        /* MicroSoft Windows        */
  990.   #define    WINDOW_X    0        /* X/Unix            */
  991. ***************
  992. *** 146,152 ****
  993.   #define REVSTA    1    /* Status line appears in reverse video     */
  994.   #define    COLOR    1    /* color commands and windows            */
  995.   
  996. ! #define FILOCK    1    /* file locking under unix BSD 4.2        */
  997.   #define    ISRCH    1    /* Incremental searches like ITS EMACS        */
  998.   #define    FLABEL    1    /* function key label code [HP150]        */
  999.   #define    CRYPT    1    /* file encryption enabled?            */
  1000. --- 147,153 ----
  1001.   #define REVSTA    1    /* Status line appears in reverse video     */
  1002.   #define    COLOR    1    /* color commands and windows            */
  1003.   
  1004. ! #define FILOCK    0    /* file locking under unix BSD 4.2        */
  1005.   #define    ISRCH    1    /* Incremental searches like ITS EMACS        */
  1006.   #define    FLABEL    1    /* function key label code [HP150]        */
  1007.   #define    CRYPT    1    /* file encryption enabled?            */
  1008. ***************
  1009. *** 153,159 ****
  1010.   #define MAGIC    1    /* include regular expression matching?        */
  1011.   #define MOUSE    1     /* Include routines for mouse actions        */
  1012.   #define    NOISY    1    /* Use a fancy BELL if it exists        */
  1013. ! #define CTAGS    0    /* include vi-like tagging?            */
  1014.   #define    SPEECH    0    /* spoken EMACS, for the sight impared [not ready] */
  1015.   #define    VARARG    1    /* use varargs.h for mlwrite()            */
  1016.   
  1017. --- 154,160 ----
  1018.   #define MAGIC    1    /* include regular expression matching?        */
  1019.   #define MOUSE    1     /* Include routines for mouse actions        */
  1020.   #define    NOISY    1    /* Use a fancy BELL if it exists        */
  1021. ! #define CTAGS    1    /* include vi-like tagging?            */
  1022.   #define    SPEECH    0    /* spoken EMACS, for the sight impared [not ready] */
  1023.   #define    VARARG    1    /* use varargs.h for mlwrite()            */
  1024.   
  1025. ***************
  1026. *** 174,180 ****
  1027.   #define    VOID
  1028.   #define NOSHARE $low32k $align(1)   /* attempt to optimize read/write vars. */
  1029.   #else
  1030. ! #ifdef    __STDC__
  1031.   #define    CONST    const
  1032.   #define    VOID    void
  1033.   #define    NOSHARE
  1034. --- 175,181 ----
  1035.   #define    VOID
  1036.   #define NOSHARE $low32k $align(1)   /* attempt to optimize read/write vars. */
  1037.   #else
  1038. ! #if    __STDC__ || MSC || TURBO || DTL || GCC || ZTC
  1039.   #define    CONST    const
  1040.   #define    VOID    void
  1041.   #define    NOSHARE
  1042. ***************
  1043. *** 193,199 ****
  1044.   
  1045.   /*    multibyte character support?    */
  1046.   
  1047. ! #if    NEC || FMR
  1048.   #define    DBCS    1    /* double byte character sets enabled */
  1049.   #define    INSDEL    1    /* use insert/delete line display optimizations */
  1050.   
  1051. --- 194,200 ----
  1052.   
  1053.   /*    multibyte character support?    */
  1054.   
  1055. ! #if    NEC || FMR || I55
  1056.   #define    DBCS    1    /* double byte character sets enabled */
  1057.   #define    INSDEL    1    /* use insert/delete line display optimizations */
  1058.   
  1059. ***************
  1060. *** 213,219 ****
  1061.   #define    PROTO    0
  1062.   #endif
  1063.   
  1064. ! #if    __STDC__ && (GCC == 0)    /* if ANSI C compatible */
  1065.   #define    ETYPE    union
  1066.   #else
  1067.   #define    ETYPE    struct
  1068. --- 214,222 ----
  1069.   #define    PROTO    0
  1070.   #endif
  1071.   
  1072. ! 
  1073. ! /* Gnu can't for some reason...*/
  1074. ! #if    (__STDC__ && (GCC == 0)) || MSC || TURBO || DTL || VMS || GCC || ZTC
  1075.   #define    ETYPE    union
  1076.   #else
  1077.   #define    ETYPE    struct
  1078. ***************
  1079. *** 411,416 ****
  1080. --- 414,420 ----
  1081.   #define    NLOCKS    100            /* max # of file locks active    */
  1082.   #define    NCOLORS    16            /* number of supported colors    */
  1083.   #define    KBLOCK    250            /* sizeof kill buffer chunks    */
  1084. + #define    NRING    16            /* # of buffers in kill ring    */
  1085.   #define    NBLOCK    16            /* line block chunk size    */
  1086.   #define    NVSIZE    10            /* max #chars in a var name    */
  1087.   #define NMARKS    10            /* number of marks        */
  1088. ***************
  1089. *** 487,492 ****
  1090. --- 491,497 ----
  1091.   #define CFCPCN    0x0001            /* Last command was C-P, C-N    */
  1092.   #define CFKILL    0x0002            /* Last command was a kill    */
  1093.   #define    CFSRCH    0x0004            /* last command was a search    */
  1094. + #define CFYANK    0x0008            /* last command was a yank    */
  1095.   
  1096.   #define    SRNORM    0            /* end past, begin front    */
  1097.   #define    SRBEGIN    1            /* always at front        */
  1098. *** ../orig/eval.c    Mon Jul 27 21:51:46 1992
  1099. --- eval.c    Mon Jul 27 21:54:39 1992
  1100. ***************
  1101. *** 328,333 ****
  1102. --- 328,334 ----
  1103.           case EVFMTLEAD:    return(fmtlead);
  1104.           case EVWCHARS:    return(getwlist(result));
  1105.           case EVPOPFLAG: return(ltos(popflag));
  1106. +         case EVPOSFLAG: return(ltos(posflag));
  1107.           case EVYANKFLAG:    return(ltos(yankflag));
  1108.           case EVSCRNAME:    return(first_screen->s_screen_name);
  1109.           case EVCURWIND: return(int_asc(getcwnum()));
  1110. ***************
  1111. *** 335,340 ****
  1112. --- 336,342 ----
  1113.           case EVORGCOL:    return(int_asc(term.t_colorg));
  1114.           case EVORGROW:    return(int_asc(term.t_roworg));
  1115.           case EVDESKCLR:    return(cname[deskcolor]);
  1116. +         case EVTIMEFLAG: return(ltos(timeflag));
  1117.       }
  1118.       meexit(-12);    /* again, we should never get here */
  1119.   }
  1120. ***************
  1121. *** 363,369 ****
  1122.       static char value[NSTRING];    /* temp buffer for value */
  1123.   
  1124.       /* no kill buffer....just a null string */
  1125. !     if (kbufh == (KILL *)NULL) {
  1126.           value[0] = 0;
  1127.           return(value);
  1128.       }
  1129. --- 365,371 ----
  1130.       static char value[NSTRING];    /* temp buffer for value */
  1131.   
  1132.       /* no kill buffer....just a null string */
  1133. !     if (kbufh[kill_index] == (KILL *)NULL) {
  1134.           value[0] = 0;
  1135.           return(value);
  1136.       }
  1137. ***************
  1138. *** 373,382 ****
  1139.       size = NSTRING - 1;
  1140.   
  1141.       /* backed up characters? */
  1142. !     if (kskip > 0) {
  1143. !         kptr = kbufh;
  1144. !         sp = &(kptr->d_chunk[kskip]);
  1145. !         counter = kskip;
  1146.           while (counter++ < KBLOCK) {
  1147.               *vp++ = *sp++;
  1148.               if (--size == 0) {
  1149. --- 375,384 ----
  1150.       size = NSTRING - 1;
  1151.   
  1152.       /* backed up characters? */
  1153. !     if (kskip[kill_index] > 0) {
  1154. !         kptr = kbufh[kill_index];
  1155. !         sp = &(kptr->d_chunk[kskip[kill_index]]);
  1156. !         counter = kskip[kill_index];
  1157.           while (counter++ < KBLOCK) {
  1158.               *vp++ = *sp++;
  1159.               if (--size == 0) {
  1160. ***************
  1161. *** 386,396 ****
  1162.           }
  1163.           kptr = kptr->d_next;
  1164.       } else {
  1165. !         kptr = kbufh;
  1166.       }
  1167.   
  1168.       if (kptr != (KILL *)NULL) {
  1169. !         while (kptr != kbufp) {
  1170.               sp = kptr->d_chunk;
  1171.               for (counter = 0; counter < KBLOCK; counter++) {
  1172.                   *vp++ = *sp++;
  1173. --- 388,398 ----
  1174.           }
  1175.           kptr = kptr->d_next;
  1176.       } else {
  1177. !         kptr = kbufh[kill_index];
  1178.       }
  1179.   
  1180.       if (kptr != (KILL *)NULL) {
  1181. !         while (kptr != kbufp[kill_index]) {
  1182.               sp = kptr->d_chunk;
  1183.               for (counter = 0; counter < KBLOCK; counter++) {
  1184.                   *vp++ = *sp++;
  1185. ***************
  1186. *** 401,407 ****
  1187.               }
  1188.               kptr = kptr->d_next;
  1189.           }
  1190. !         counter = kused;
  1191.           sp = kptr->d_chunk;
  1192.           while (counter--) {
  1193.               *vp++ = *sp++;
  1194. --- 403,409 ----
  1195.               }
  1196.               kptr = kptr->d_next;
  1197.           }
  1198. !         counter = kused[kill_index];
  1199.           sp = kptr->d_chunk;
  1200.           while (counter--) {
  1201.               *vp++ = *sp++;
  1202. ***************
  1203. *** 763,768 ****
  1204. --- 765,773 ----
  1205.                   break;
  1206.           case EVPOPFLAG: popflag = stol(value);
  1207.                   break;
  1208. +         case EVPOSFLAG: posflag = stol(value);
  1209. +                 upmode();
  1210. +                 break;
  1211.           case EVYANKFLAG:    yankflag = stol(value);
  1212.                   break;
  1213.           case EVSCRNAME:    select_screen(lookup_screen(value), TRUE);
  1214. ***************
  1215. *** 782,787 ****
  1216. --- 787,795 ----
  1217.   #endif
  1218.                   }
  1219.                   break;
  1220. +         case EVTIMEFLAG: timeflag = stol(value);
  1221. +                 upmode();
  1222. +                 break;
  1223.           }
  1224.           break;
  1225.       }
  1226. ***************
  1227. *** 1264,1270 ****
  1228.       char outseq[256];    /* output buffer for keystroke sequence */
  1229.   
  1230.       /* and get a buffer for it */
  1231. !     varbuf = bfind(TEXT56, TRUE, 0);
  1232.   /*           "Variable list" */
  1233.       if (varbuf == NULL || bclear(varbuf) == FALSE) {
  1234.           mlwrite(TEXT57);
  1235. --- 1272,1278 ----
  1236.       char outseq[256];    /* output buffer for keystroke sequence */
  1237.   
  1238.       /* and get a buffer for it */
  1239. !     varbuf = bfind(TEXT56, TRUE, BFINVS);
  1240.   /*           "Variable list" */
  1241.       if (varbuf == NULL || bclear(varbuf) == FALSE) {
  1242.           mlwrite(TEXT57);
  1243. ***************
  1244. *** 1334,1340 ****
  1245.       char outseq[80];    /* output buffer for keystroke sequence */
  1246.   
  1247.       /* get a buffer for the function list */
  1248. !     fncbuf = bfind(TEXT211, TRUE, 0);
  1249.   /*           "Function list" */
  1250.       if (fncbuf == NULL || bclear(fncbuf) == FALSE) {
  1251.           mlwrite(TEXT212);
  1252. --- 1342,1348 ----
  1253.       char outseq[80];    /* output buffer for keystroke sequence */
  1254.   
  1255.       /* get a buffer for the function list */
  1256. !     fncbuf = bfind(TEXT211, TRUE, BFINVS);
  1257.   /*           "Function list" */
  1258.       if (fncbuf == NULL || bclear(fncbuf) == FALSE) {
  1259.           mlwrite(TEXT212);
  1260. *** ../orig/evar.h    Mon Jul 27 21:51:46 1992
  1261. --- evar.h    Mon Jul 27 21:55:40 1992
  1262. ***************
  1263. *** 69,74 ****
  1264. --- 69,75 ----
  1265.       "paralead",        /* paragraph leadin characters */
  1266.       "pending",        /* type ahead pending flag */
  1267.       "popflag",        /* pop-up windows active? */
  1268. +     "posflag",        /* display point position on modeline? */
  1269.       "progname",        /* returns current prog name - "MicroEMACS" */
  1270.       "ram",            /* ram in use by malloc */
  1271.       "readhook",        /* read file execution hook */
  1272. ***************
  1273. *** 87,92 ****
  1274. --- 88,94 ----
  1275.       "sterm",        /* search terminator character */
  1276.       "target",        /* target for line moves */
  1277.       "time",            /* date and time */
  1278. +     "timeflag",        /* display time? */
  1279.       "tpause",        /* length to pause for paren matching */
  1280.       "version",        /* current version number */
  1281.       "wchars",        /* set of characters legal in words */
  1282. ***************
  1283. *** 151,183 ****
  1284.   #define    EVPARALEAD    46
  1285.   #define EVPENDING       47
  1286.   #define    EVPOPFLAG    48
  1287. ! #define EVPROGNAME      49
  1288. ! #define EVRAM           50
  1289. ! #define EVREADHK        51
  1290. ! #define    EVREGION    52
  1291. ! #define EVREPLACE       53
  1292. ! #define EVRVAL          54
  1293. ! #define EVSCRNAME    55
  1294. ! #define EVSEARCH        56
  1295. ! #define EVSEARCHPNT    57
  1296. ! #define EVSEED          58
  1297. ! #define EVSOFTTAB    59
  1298. ! #define EVSRES          60
  1299. ! #define EVSSAVE         61
  1300. ! #define EVSSCROLL    62
  1301. ! #define EVSTATUS    63
  1302. ! #define EVSTERM     64
  1303. ! #define EVTARGET    65
  1304. ! #define EVTIME        66
  1305. ! #define EVTPAUSE    67
  1306. ! #define EVVERSION    68
  1307. ! #define    EVWCHARS    69
  1308. ! #define EVWLINE     70
  1309. ! #define EVWRAPHK    71
  1310. ! #define    EVWRITEHK    72
  1311. ! #define EVXPOS        73
  1312. ! #define    EVYANKFLAG    74
  1313. ! #define EVYPOS        75
  1314.   
  1315.   /*    list of recognized user functions    */
  1316.   
  1317. --- 153,187 ----
  1318.   #define    EVPARALEAD    46
  1319.   #define EVPENDING       47
  1320.   #define    EVPOPFLAG    48
  1321. ! #define    EVPOSFLAG    49
  1322. ! #define EVPROGNAME      50
  1323. ! #define EVRAM           51
  1324. ! #define EVREADHK        52
  1325. ! #define    EVREGION    53
  1326. ! #define EVREPLACE       54
  1327. ! #define EVRVAL          55
  1328. ! #define EVSCRNAME    56
  1329. ! #define EVSEARCH        57
  1330. ! #define EVSEARCHPNT    58
  1331. ! #define EVSEED          59
  1332. ! #define EVSOFTTAB    60
  1333. ! #define EVSRES          61
  1334. ! #define EVSSAVE         62
  1335. ! #define EVSSCROLL    63
  1336. ! #define EVSTATUS    64
  1337. ! #define EVSTERM     65
  1338. ! #define EVTARGET    66
  1339. ! #define EVTIME        67
  1340. ! #define EVTIMEFLAG    68
  1341. ! #define EVTPAUSE    69
  1342. ! #define EVVERSION    70
  1343. ! #define    EVWCHARS    71
  1344. ! #define EVWLINE     72
  1345. ! #define EVWRAPHK    73
  1346. ! #define    EVWRITEHK    74
  1347. ! #define EVXPOS        75
  1348. ! #define    EVYANKFLAG    76
  1349. ! #define EVYPOS        77
  1350.   
  1351.   /*    list of recognized user functions    */
  1352.   
  1353. *** ../orig/file.c    Mon Jul 27 21:51:47 1992
  1354. --- file.c    Mon Jul 27 22:10:30 1992
  1355. ***************
  1356. *** 568,574 ****
  1357.       int sflag;        /* are we safe saving? */
  1358.       char tname[NSTRING];    /* temporary file name */
  1359.       char buf[NSTRING];    /* message buffer */
  1360. ! #if    BSD | SUN | V7
  1361.       struct stat st;        /* we need info about the file permisions */
  1362.   #endif
  1363.   
  1364. --- 568,574 ----
  1365.       int sflag;        /* are we safe saving? */
  1366.       char tname[NSTRING];    /* temporary file name */
  1367.       char buf[NSTRING];    /* message buffer */
  1368. ! #if    BSD | SUN | V7 | XENIX
  1369.       struct stat st;        /* we need info about the file permisions */
  1370.   #endif
  1371.   
  1372. ***************
  1373. *** 648,654 ****
  1374.               strcat(buf, "s");
  1375.   
  1376.           if (sflag) {
  1377. ! #if    BSD | SUN | V7
  1378.               /* get the permisions on the original file */
  1379.               stat(fn, &st);
  1380.   #endif
  1381. --- 648,654 ----
  1382.               strcat(buf, "s");
  1383.   
  1384.           if (sflag) {
  1385. ! #if    BSD | SUN | V7 | XENIX
  1386.               /* get the permisions on the original file */
  1387.               stat(fn, &st);
  1388.   #endif
  1389. ***************
  1390. *** 655,662 ****
  1391.               /* erase original file */
  1392.               /* rename temporary file to original name */
  1393.               if (unlink(fn) == 0 && rename(tname, fn) == 0) {
  1394. ! #if    BSD | SUN | V7
  1395.                   chmod(fn, (int)st.st_uid, (int)st.st_gid);
  1396.                   chmod(fn, (int)st.st_mode);
  1397.   #else
  1398.                   ;
  1399. --- 655,664 ----
  1400.               /* erase original file */
  1401.               /* rename temporary file to original name */
  1402.               if (unlink(fn) == 0 && rename(tname, fn) == 0) {
  1403. ! #if    BSD | SUN | V7 | XENIX
  1404. ! #if    !(PC_BSD)
  1405.                   chmod(fn, (int)st.st_uid, (int)st.st_gid);
  1406. + #endif /* !(PC_BSD) */
  1407.                   chmod(fn, (int)st.st_mode);
  1408.   #else
  1409.                   ;
  1410. ***************
  1411. *** 840,846 ****
  1412.           return(status);
  1413.   
  1414.       /* get a buffer for the file list */
  1415. !     dirbuf = bfind("File List", TRUE, 0);
  1416.       if (dirbuf == NULL || bclear(dirbuf) == FALSE) {
  1417.           mlwrite("Can not display file list");
  1418.   /*            "Can not display function list" */
  1419. --- 842,848 ----
  1420.           return(status);
  1421.   
  1422.       /* get a buffer for the file list */
  1423. !     dirbuf = bfind("File List", TRUE, BFINVS);
  1424.       if (dirbuf == NULL || bclear(dirbuf) == FALSE) {
  1425.           mlwrite("Can not display file list");
  1426.   /*            "Can not display function list" */
  1427. *** ../orig/french.h    Mon Jul 27 21:51:48 1992
  1428. --- french.h    Mon Jul 27 21:55:40 1992
  1429. ***************
  1430. *** 270,273 ****
  1431.   #define    TEXT225 "[Switched to screen %s]"
  1432.   #define    TEXT226    "%%Can not kill an executing buffer"
  1433.   #define    TEXT227 "\n--- Press any key to Continue ---"
  1434. ! 
  1435. --- 270,273 ----
  1436.   #define    TEXT225 "[Switched to screen %s]"
  1437.   #define    TEXT226    "%%Can not kill an executing buffer"
  1438.   #define    TEXT227 "\n--- Press any key to Continue ---"
  1439. ! #define TEXT228 "[List du ratures vide']"
  1440. *** ../orig/german.h    Mon Jul 27 21:51:48 1992
  1441. --- german.h    Mon Jul 27 21:55:41 1992
  1442. ***************
  1443. *** 292,295 ****
  1444. --- 292,296 ----
  1445.   #define    TEXT225 "[Switched to screen %s]"
  1446.   #define    TEXT226    "%%Can not kill an executing buffer"
  1447.   #define    TEXT227 "\n--- Press any key to Continue ---"
  1448. + #define TEXT228 "[Kill ring cleared]"
  1449.   
  1450. *** ../orig/history.c    Mon Jul 27 21:51:49 1992
  1451. --- history.c    Mon Jul 27 21:54:44 1992
  1452. ***************
  1453. *** 1741,1746 ****
  1454. --- 1741,1794 ----
  1455.    *      than the execute-macro-<n> commands which I am trying to phase out.
  1456.    *    31-oct-91
  1457.    *    [RELEASED version 3.11 for general distribution]
  1458. +  *    31-Oct-91 Ken Cornetet
  1459. +  *    - extra parameter in non-proto version of setkey() deleted
  1460. +  *    - Microport V/AT modifications. An "ndir" package is needed
  1461. +  *      (contact Ken at <kenc@ezelmo.UUCP> for this)
  1462. +  *      Also, set terminfo string "is2" on closing tty
  1463. +  *    19-Nov-91 Pete Dunlap
  1464. +  *    - changed initializers for search path for the AMIGA to more closely
  1465. +  *      resemble reality, don't need to put boot disk in on each search
  1466. +  *    - added XENIX to the list of files to preserve permisions
  1467. +  *    19-Nov-91 Daniel Lawrence
  1468. +  *    - added two missing zeroes in the TERM structure for the HP150
  1469. +  *    21-nov-91
  1470. +  *    - added $timeflag, when TRUE displays hour/minute of last keystroke
  1471. +  *      on bottom modeline
  1472. +  *    - ? in file/buffer/command name completion brings up a completion
  1473. +  *      list as will a partial completion attempt.
  1474. +  *    - changed all lists/description popups to BFINVS invisible buffers
  1475. +  *    - changed name of buffer list buffer from [List] to [Buffers]
  1476. +  *    - added some missing systems to the list for dolock() in dolock.c
  1477. +  *      (notable USG, V7 and BSD)
  1478. +  *    23-nov-91
  1479. +  *    [RELEASED update 3.11a via BBS]
  1480. +  *    24-dec-91
  1481. +  *    - added new commands yank-pop (M-Y), delete-kill-ring (M-^Y),
  1482. +  *      and cycle-ring (^X-Y) to handle a ring of kill buffers. More
  1483. +  *      info on their use in the reference manual.
  1484. +  *    - changed version to 3.11b
  1485. +  *    5-jan-92 John M. Gamble
  1486. +  *    - pop-buffer, with a numeric argument, now behaves like select-buffer
  1487. +  *      by making that buffer INVISIBLE.
  1488. +  *    - Reverse search groups handled more sensibly, smaller code.
  1489. +  *    7-jan-92 Walter Warniaha/via BBS
  1490. +  *    - made some fixes to help MSC under MSDOS work properly. Set default
  1491. +  *      stack to 20K, fixed some variable conflicts.
  1492. +  *    15-jan-92
  1493. +  *    - added $posflag to show point position on current modeline as
  1494. +  *      suggested by Brian Casiello, defaults to on.
  1495. +  *    19-jan-92 John M. Gamble
  1496. +  *    - On some otherwise ANSI C compilers, __STDC__ is not 1, because we
  1497. +  *      also make use of the PASCAL modifier, which is not ANSI.  So in
  1498. +  *      ESTRUCT.H, where there is a check on __STDC__, we also list the
  1499. +  *      other ANSI C compilers.  This turns on VOID, CONST, and makes
  1500. +  *      ETYPE a union instead of a struct.
  1501. +  *    25-jan-92 John M. Gamble
  1502. +  *    - Normal Isearch exit updates the search jump tables too.
  1503. +  *    31-jan-91
  1504. +  *    - fill-paragraph on an empty buffer no longer hangs
  1505. +  *    - changed version number to 3.11c and released via BBS
  1506.    */
  1507.   
  1508.   history()
  1509. *** ../orig/hp150.c    Mon Jul 27 21:51:51 1992
  1510. --- hp150.c    Mon Jul 27 21:54:45 1992
  1511. ***************
  1512. *** 56,61 ****
  1513. --- 56,62 ----
  1514.   
  1515.   union REGS r;        /* register set for bios and dos (AGIOS) calls */
  1516.   int capslock = 0;    /* caps lock flag */
  1517. + int break_flag;        /* state of MSDOS control break processing */
  1518.   
  1519.   /*
  1520.    * Standard terminal interface dispatch table. Most of the fields point into
  1521. ***************
  1522. *** 68,73 ****
  1523. --- 69,75 ----
  1524.           NCOL,
  1525.       MARGIN,
  1526.       SCRSIZ,
  1527. +     0, 0,
  1528.       NPAUSE,
  1529.       openhp,
  1530.           closehp,
  1531. ***************
  1532. *** 428,446 ****
  1533.   PASCAL NEAR ckeyoff()    /* turn control-C trapping off */
  1534.   
  1535.   {
  1536. !     r.h.ah = 0x33;    /* ctrl-break check */
  1537. !     r.h.al = 1;    /* set the state of the ctrl-break check */
  1538. !     r.h.dl = 0;    /* turn it off */
  1539. !     intdos(&r, &r);
  1540.   }
  1541.   
  1542.   PASCAL NEAR ckeyon()    /* turn control-C trapping on */
  1543.   
  1544.   {
  1545. !     r.h.ah = 0x33;    /* ctrl-break check */
  1546. !     r.h.al = 1;    /* set the state of the ctrl-break check */
  1547. !     r.h.dl = 1;    /* turn it on */
  1548. !     intdos(&r, &r);
  1549.   }
  1550.   
  1551.   #ifdef    unsigned
  1552. --- 430,459 ----
  1553.   PASCAL NEAR ckeyoff()    /* turn control-C trapping off */
  1554.   
  1555.   {
  1556. !     /* find the current state of the control break inturrupt */
  1557. !     rg.h.ah = 0x33;    /* ctrl-break check */
  1558. !     rg.h.al = 0;    /* request the state of the ctrl-break check */
  1559. !     intdos(&rg, &rg);
  1560. !     break_flag = rg.h.dl;
  1561. ! 
  1562. !     /* set the break processing off if it is on */
  1563. !     if (break_flag == 1) {
  1564. !         rg.h.ah = 0x33;    /* ctrl-break check */
  1565. !         rg.h.al = 1;    /* set the state of the ctrl-break check */
  1566. !         rg.h.dl = 0;    /* turn it off */
  1567. !         intdos(&rg, &rg);
  1568. !     }
  1569.   }
  1570.   
  1571.   PASCAL NEAR ckeyon()    /* turn control-C trapping on */
  1572.   
  1573.   {
  1574. !     if (break_flag == 1) {
  1575. !         rg.h.ah = 0x33;    /* ctrl-break check */
  1576. !         rg.h.al = 1;    /* set the state of the ctrl-break check */
  1577. !         rg.h.dl = 1;    /* turn it on */
  1578. !         intdos(&rg, &rg);
  1579. !     }
  1580.   }
  1581.   
  1582.   #ifdef    unsigned
  1583. *** ../orig/ibmpc.c    Mon Jul 27 21:51:51 1992
  1584. --- ibmpc.c    Mon Jul 27 21:54:46 1992
  1585. ***************
  1586. *** 70,77 ****
  1587.   int revflag = FALSE;            /* are we currently in rev video? */
  1588.   int desk_rows;                /* number of rows on current desktop */
  1589.   int desk_cols;                /* number of cols on current desktop */
  1590.   
  1591. - 
  1592.   PASCAL NEAR ibmmove();
  1593.   PASCAL NEAR ibmeeol();
  1594.   PASCAL NEAR ibmputc();
  1595. --- 70,77 ----
  1596.   int revflag = FALSE;            /* are we currently in rev video? */
  1597.   int desk_rows;                /* number of rows on current desktop */
  1598.   int desk_cols;                /* number of cols on current desktop */
  1599. + int break_flag;            /* state of MSDOS control break processing */
  1600.   
  1601.   PASCAL NEAR ibmmove();
  1602.   PASCAL NEAR ibmeeol();
  1603.   PASCAL NEAR ibmputc();
  1604. ***************
  1605. *** 258,264 ****
  1606. --- 258,268 ----
  1607.           rg.h.bh = 0;        /* display page zero */
  1608.           rg.x.cx = 1;        /* only one please! */
  1609.           rg.h.al = ' ';        /* character to write */
  1610. + #if    COLOR
  1611.           rg.h.bl = ((ctrans[gbcolor] << 4) | ctrans[gfcolor]);/* attribute */
  1612. + #else
  1613. +         rg.h.bl = 07;
  1614. + #endif
  1615.           int86(0x10, &rg, &rg);
  1616.           return;
  1617.       }
  1618. ***************
  1619. *** 272,278 ****
  1620. --- 276,286 ----
  1621.       rg.h.bh = 0;        /* display page zero */
  1622.       rg.x.cx = 1;        /* only one please! */
  1623.       rg.h.al = ch;        /* character to write */
  1624. + #if    COLOR
  1625.       rg.h.bl = ((ctrans[gbcolor] << 4) | ctrans[gfcolor]);    /* attribute */
  1626. + #else
  1627. +     rg.h.bl = 07;
  1628. + #endif
  1629.       int86(0x10, &rg, &rg);
  1630.   
  1631.       /* advance the cursor by 1 position */
  1632. ***************
  1633. *** 422,432 ****
  1634. --- 430,459 ----
  1635.   PASCAL NEAR ibmkopen()    /* open the keyboard */
  1636.   
  1637.   {
  1638. +     /* find the current state of the control break inturrupt */
  1639. +     rg.h.ah = 0x33;    /* ctrl-break check */
  1640. +     rg.h.al = 0;    /* request the state of the ctrl-break check */
  1641. +     intdos(&rg, &rg);
  1642. +     break_flag = rg.h.dl;
  1643. + 
  1644. +     /* set the break processing off if it is on */
  1645. +     if (break_flag == 1) {
  1646. +         rg.h.ah = 0x33;    /* ctrl-break check */
  1647. +         rg.h.al = 1;    /* set the state of the ctrl-break check */
  1648. +         rg.h.dl = 0;    /* turn it off */
  1649. +         intdos(&rg, &rg);
  1650. +     }
  1651.   }
  1652.   
  1653.   PASCAL NEAR ibmkclose() /* close the keyboard */
  1654.   
  1655.   {
  1656. +     if (break_flag == 1) {
  1657. +         rg.h.ah = 0x33;    /* ctrl-break check */
  1658. +         rg.h.al = 1;    /* set the state of the ctrl-break check */
  1659. +         rg.h.dl = 1;    /* turn it on */
  1660. +         intdos(&rg, &rg);
  1661. +     }
  1662.   }
  1663.   
  1664.   PASCAL NEAR scinit(type) /* initialize the screen head pointers */
  1665. *** ../orig/input.c    Mon Jul 27 21:51:51 1992
  1666. --- input.c    Mon Jul 27 21:54:48 1992
  1667. ***************
  1668. *** 296,301 ****
  1669. --- 296,330 ----
  1670.               TTflush();
  1671.               if (buf[cpos - 1] == 0)
  1672.                   return(buf);
  1673. +             goto clist;
  1674. + 
  1675. +         } else if (c == '?') {    
  1676. + 
  1677. + clist:            /* make a completion list! */
  1678. +             switch (type) {
  1679. +                 case CMP_BUFFER:
  1680. +                     clist_buffer(buf, &cpos);
  1681. +                     break;
  1682. +                 case CMP_COMMAND:
  1683. +                     clist_command(buf, &cpos);
  1684. +                     break;
  1685. +                 case CMP_FILENAME:
  1686. +                     clist_file(buf, &cpos);
  1687. +                     break;
  1688. +             }
  1689. +             update(TRUE);
  1690. + 
  1691. +             /* if it exists, reprompt the user */
  1692. +             if (prompt) {
  1693. +                 buf[cpos] = 0;
  1694. +                 if (type == CMP_COMMAND)
  1695. +                     mlwrite("%s%s", prompt, buf);
  1696. +                 else if (defval)
  1697. +                     mlwrite("%s[%s]: %s", prompt, defval, buf);
  1698. +                 else
  1699. +                     mlwrite("%s: %s", prompt, buf);
  1700. +             }
  1701. + 
  1702.           } else {
  1703.               if (cpos < maxlen && c > ' ') {
  1704.                   buf[cpos++] = c;
  1705. ***************
  1706. *** 383,388 ****
  1707. --- 412,453 ----
  1708.       return;
  1709.   }
  1710.   
  1711. + /*    clist_command:    Make a completion list based on a partial name */
  1712. + 
  1713. + clist_command(name, cpos)
  1714. + 
  1715. + char *name;    /* command containing the current name to complete */
  1716. + int *cpos;    /* ptr to position of next character to insert */
  1717. + 
  1718. + {
  1719. +     register NBIND *bp;    /* trial command to complete */
  1720. +     register int curbind;    /* index into the names[] array */
  1721. +     register int name_len;    /* current length of input string */
  1722. +     register BUFFER *listbuf;/* buffer to put completion list into */
  1723. + 
  1724. +     /* get a buffer for the completion list */
  1725. +     listbuf = bfind("[Completion list]", TRUE, BFINVS);
  1726. +     if (listbuf == NULL || bclear(listbuf) == FALSE) {
  1727. +         ctrlg(FALSE, 0);
  1728. +         TTflush();
  1729. +         return;
  1730. +     }
  1731. + 
  1732. +     name_len = *cpos;
  1733. + 
  1734. +     /* first, we start at the first command and scan the list */
  1735. +     for (curbind = 0; curbind <= numfunc; curbind++) {
  1736. + 
  1737. +         /* is this a match? */
  1738. +         bp = &names[curbind];
  1739. +         if (strncmp(name, bp->n_name, name_len) == 0)
  1740. +             addline(listbuf, bp->n_name);
  1741. +     }
  1742. + 
  1743. +     wpopup(listbuf);
  1744. +     return;
  1745. + }
  1746. + 
  1747.   /*    comp_buffer:    Attempt a completion on a buffer name    */
  1748.   
  1749.   comp_buffer(name, cpos)
  1750. ***************
  1751. *** 456,461 ****
  1752. --- 521,564 ----
  1753.       return;
  1754.   }
  1755.   
  1756. + /*    clist_buffer:    Make a completion list based on a partial buffer name */
  1757. + 
  1758. + clist_buffer(name, cpos)
  1759. + 
  1760. + char *name;    /* command containing the current name to complete */
  1761. + int *cpos;    /* ptr to position of next character to insert */
  1762. + 
  1763. + {
  1764. +     register int name_len;    /* current length of input string */
  1765. +     register BUFFER *listbuf;/* buffer to put completion list into */
  1766. +     register BUFFER *bp;    /* trial buffer to complete */
  1767. + 
  1768. +     /* get a buffer for the completion list */
  1769. +     listbuf = bfind("[Completion list]", TRUE, BFINVS);
  1770. +     if (listbuf == NULL || bclear(listbuf) == FALSE) {
  1771. +         ctrlg(FALSE, 0);
  1772. +         TTflush();
  1773. +         return;
  1774. +     }
  1775. + 
  1776. +     /* first, we start at the first buffer and scan the list */
  1777. +     name_len = *cpos;
  1778. +     bp = bheadp;
  1779. + 
  1780. +     while (bp) {
  1781. + 
  1782. +         /* is this a match? */
  1783. +         if (strncmp(name, bp->b_bname, name_len) == 0)
  1784. +             addline(listbuf, bp->b_bname);
  1785. + 
  1786. +         /* on to the next buffer */
  1787. +         bp = bp->b_bufp;
  1788. +     }
  1789. + 
  1790. +     wpopup(listbuf);
  1791. +     return;
  1792. + }
  1793. + 
  1794.   /*    comp_file:    Attempt a completion on a file name    */
  1795.   
  1796.   comp_file(name, cpos)
  1797. ***************
  1798. *** 532,537 ****
  1799. --- 635,680 ----
  1800.   
  1801.       TTflush();
  1802.   
  1803. +     return;
  1804. + }
  1805. + 
  1806. + /*    clist_file:    Make a completion list based on a partial file name */
  1807. + 
  1808. + clist_file(name, cpos)
  1809. + 
  1810. + char *name;    /* command containing the current name to complete */
  1811. + int *cpos;    /* ptr to position of next character to insert */
  1812. + 
  1813. + {
  1814. +     register int name_len;    /* current length of input string */
  1815. +     register BUFFER *listbuf;/* buffer to put completion list into */
  1816. +     register char *fname;    /* trial file to complete */
  1817. + 
  1818. +     /* get a buffer for the completion list */
  1819. +     listbuf = bfind("[Completion list]", TRUE, BFINVS);
  1820. +     if (listbuf == NULL || bclear(listbuf) == FALSE) {
  1821. +         ctrlg(FALSE, 0);
  1822. +         TTflush();
  1823. +         return;
  1824. +     }
  1825. + 
  1826. +     /* first, we start at the first file and scan the list */
  1827. +     name_len = *cpos;
  1828. +     name[*cpos] = 0;
  1829. +     fname = getffile(name);
  1830. + 
  1831. +     /* first, we start at the first file and scan the list */
  1832. +     while (fname) {
  1833. + 
  1834. +         /* is this a match? */
  1835. +         if (strncmp(name, fname, name_len) == 0)
  1836. +             addline(listbuf, fname);
  1837. + 
  1838. +         /* on to the next file */
  1839. +         fname = getnfile();
  1840. +     }
  1841. + 
  1842. +     wpopup(listbuf);
  1843.       return;
  1844.   }
  1845.   
  1846. *** ../orig/isearch.c    Mon Jul 27 21:51:51 1992
  1847. --- isearch.c    Mon Jul 27 21:54:49 1992
  1848. ***************
  1849. *** 47,54 ****
  1850.   static int cmd_offset;            /* Current offset into command buff */
  1851.   static int cmd_reexecute = -1;        /* > 0 if re-executing command */
  1852.   
  1853. - PASCAL NEAR reeat();    /* A local function type definition */
  1854. - 
  1855.   /*
  1856.    * Subroutine to do incremental reverse search.  It actually uses the
  1857.    * same code as the normal incremental search, as both can go both ways.
  1858. --- 47,52 ----
  1859. ***************
  1860. *** 114,123 ****
  1861.    * will stall until the pattern string is edited back into something that
  1862.    * exists (or until the search is aborted).
  1863.    */
  1864. ! PASCAL NEAR isearch(dir)
  1865. ! 
  1866.   int    dir;
  1867. - 
  1868.   {
  1869.       int            status;        /* Search status */
  1870.       int            col;        /* prompt column */
  1871. --- 112,119 ----
  1872.    * will stall until the pattern string is edited back into something that
  1873.    * exists (or until the search is aborted).
  1874.    */
  1875. ! int PASCAL NEAR isearch(dir)
  1876.   int    dir;
  1877.   {
  1878.       int            status;        /* Search status */
  1879.       int            col;        /* prompt column */
  1880. ***************
  1881. *** 162,169 ****
  1882.        */
  1883.       c = ectoc(expc = get_char());
  1884.   
  1885. !     if (expc == sterm)            /* Want to quit searching?    */
  1886.           return(TRUE);            /* Quit searching now          */
  1887.   
  1888.       if (expc == abortc)            /* If abort search request    */
  1889.           break;                /* Quit searching          */
  1890. --- 158,167 ----
  1891.        */
  1892.       c = ectoc(expc = get_char());
  1893.   
  1894. !     if (expc == sterm) {            /* Want to quit searching?    */
  1895. !         setjtable();            /* Update the jump tables     */
  1896.           return(TRUE);            /* Quit searching now          */
  1897. +     }
  1898.   
  1899.       if (expc == abortc)            /* If abort search request    */
  1900.           break;                /* Quit searching          */
  1901. ***************
  1902. *** 446,452 ****
  1903.       return(c);                /* and return the last char          */
  1904.   }
  1905.   
  1906. ! PASCAL NEAR reeat(c)
  1907.   int    c;
  1908.   {
  1909.       if (eaten_char != -1)        /* If we've already been here          */
  1910. --- 444,450 ----
  1911.       return(c);                /* and return the last char          */
  1912.   }
  1913.   
  1914. ! VOID PASCAL NEAR reeat(c)
  1915.   int    c;
  1916.   {
  1917.       if (eaten_char != -1)        /* If we've already been here          */
  1918. ***************
  1919. *** 456,462 ****
  1920.       term.t_getchar = uneat;        /* Replace it with ours              */
  1921.   }
  1922.   #else
  1923. ! PASCAL NEAR isearch(dir)
  1924.   
  1925.   int dir;
  1926.   
  1927. --- 454,460 ----
  1928.       term.t_getchar = uneat;        /* Replace it with ours              */
  1929.   }
  1930.   #else
  1931. ! int PASCAL NEAR isearch(dir)
  1932.   
  1933.   int dir;
  1934.   
  1935. *** ../orig/japan.h    Mon Jul 27 21:51:52 1992
  1936. --- japan.h    Mon Jul 27 21:55:42 1992
  1937. ***************
  1938. *** 232,235 ****
  1939.   #define    TEXT225 "[Switched to screen %s]"
  1940.   #define    TEXT226    "%%Can not kill an executing buffer"
  1941.   #define    TEXT227 "\n--- Press any key to Continue ---"
  1942. ! 
  1943. --- 232,235 ----
  1944.   #define    TEXT225 "[Switched to screen %s]"
  1945.   #define    TEXT226    "%%Can not kill an executing buffer"
  1946.   #define    TEXT227 "\n--- Press any key to Continue ---"
  1947. ! #define TEXT228 "[Kill ring cleared]"
  1948. *** ../orig/latin.h    Mon Jul 27 21:51:52 1992
  1949. --- latin.h    Mon Jul 27 21:55:43 1992
  1950. ***************
  1951. *** 228,231 ****
  1952. --- 228,232 ----
  1953.   #define    TEXT224 "%%Row origin out of range"
  1954.   #define    TEXT225 "[Switched to screen %s]"
  1955.   #define    TEXT226    "%%Can not kill an executing buffer"
  1956. + #define TEXT228 "[Kill ring cleared]"
  1957.   #define    TEXT227 "\n--- Press any key to Continue ---"
  1958. *** ../orig/line.c    Mon Jul 27 21:51:52 1992
  1959. --- line.c    Mon Jul 27 21:54:52 1992
  1960. ***************
  1961. *** 19,24 ****
  1962. --- 19,26 ----
  1963.   
  1964.   #define    BSIZE(a)    (a + NBLOCK - 1) & (~(NBLOCK - 1))
  1965.   
  1966. + static long last_size = -1L;    /* last # of bytes yanked */
  1967. + 
  1968.   /*
  1969.    * This routine allocates a block of memory large enough to hold a LINE
  1970.    * containing "used" characters. Return a pointer to the new block, or
  1971. ***************
  1972. *** 151,157 ****
  1973.    * linstr -- Insert a string at the current point
  1974.    */
  1975.   
  1976. ! PASCAL NEAR linstr(instr)
  1977.   char    *instr;
  1978.   {
  1979.       register int status;
  1980. --- 153,159 ----
  1981.    * linstr -- Insert a string at the current point
  1982.    */
  1983.   
  1984. ! int PASCAL NEAR linstr(instr)
  1985.   char    *instr;
  1986.   {
  1987.       register int status;
  1988. ***************
  1989. *** 319,325 ****
  1990.    * lover -- Overwrite a string at the current point
  1991.    */
  1992.   
  1993. ! PASCAL NEAR lover(ostr)
  1994.   
  1995.   char    *ostr;
  1996.   
  1997. --- 321,327 ----
  1998.    * lover -- Overwrite a string at the current point
  1999.    */
  2000.   
  2001. ! int PASCAL NEAR lover(ostr)
  2002.   
  2003.   char    *ostr;
  2004.   
  2005. ***************
  2006. *** 349,355 ****
  2007.    * update of dot and mark is a bit easier then in the above case, because the
  2008.    * split forces more updating.
  2009.    */
  2010. ! PASCAL NEAR lnewline()
  2011.   {
  2012.       register char    *cp1;
  2013.       register char    *cp2;
  2014. --- 351,357 ----
  2015.    * update of dot and mark is a bit easier then in the above case, because the
  2016.    * split forces more updating.
  2017.    */
  2018. ! int PASCAL NEAR lnewline()
  2019.   {
  2020.       register char    *cp1;
  2021.       register char    *cp2;
  2022. ***************
  2023. *** 693,699 ****
  2024.    * about in memory. Return FALSE on error and TRUE if all looks ok. Called by
  2025.    * "ldelete" only.
  2026.    */
  2027. ! PASCAL NEAR ldelnewline()
  2028.   {
  2029.       register char    *cp1;
  2030.       register char    *cp2;
  2031. --- 695,701 ----
  2032.    * about in memory. Return FALSE on error and TRUE if all looks ok. Called by
  2033.    * "ldelete" only.
  2034.    */
  2035. ! int PASCAL NEAR ldelnewline()
  2036.   {
  2037.       register char    *cp1;
  2038.       register char    *cp2;
  2039. ***************
  2040. *** 843,869 ****
  2041.    * new kill context is being created. The kill buffer array is released, just
  2042.    * in case the buffer has grown to immense size. No errors.
  2043.    */
  2044. ! PASCAL NEAR kdelete()
  2045.   {
  2046.       KILL *kp;    /* ptr to scan kill buffer chunk list */
  2047.   
  2048. !     if (kbufh != NULL) {
  2049.   
  2050.           /* first, delete all the chunks */
  2051. !         kbufp = kbufh;
  2052. !         while (kbufp != NULL) {
  2053. !             kp = kbufp->d_next;
  2054. !             free((char *)kbufp);
  2055. !             kbufp = kp;
  2056.           }
  2057.   
  2058.           /* and reset all the kill buffer pointers */
  2059. !         kbufh = kbufp = NULL;
  2060. !         kskip = 0;
  2061. !         kused = KBLOCK;             
  2062.       }
  2063.   }
  2064.   
  2065.   /*
  2066.    * Insert a character to the kill buffer, allocating new chunks as needed.
  2067.    * Return TRUE if all is well, and FALSE on errors.
  2068. --- 845,890 ----
  2069.    * new kill context is being created. The kill buffer array is released, just
  2070.    * in case the buffer has grown to immense size. No errors.
  2071.    */
  2072. ! 
  2073. ! void kdelete()
  2074. ! 
  2075.   {
  2076.       KILL *kp;    /* ptr to scan kill buffer chunk list */
  2077.   
  2078. !     if (kbufh[kill_index] != NULL) {
  2079.   
  2080.           /* first, delete all the chunks */
  2081. !         kbufp[kill_index] = kbufh[kill_index];
  2082. !         while (kbufp[kill_index] != NULL) {
  2083. !             kp = kbufp[kill_index]->d_next;
  2084. !             free((char *)kbufp[kill_index]);
  2085. !             kbufp[kill_index] = kp;
  2086.           }
  2087.   
  2088.           /* and reset all the kill buffer pointers */
  2089. !         kbufh[kill_index] = kbufp[kill_index] = NULL;
  2090. !         kskip[kill_index] = 0;
  2091. !         kused[kill_index] = KBLOCK;             
  2092.       }
  2093.   }
  2094.   
  2095. + /*    next_kill:    advance to the next position in the kill ring,
  2096. +             pushing the current kill buffer and clearing
  2097. +             what will be the new kill buffer
  2098. + */
  2099. + 
  2100. + PASCAL NEAR next_kill()
  2101. + 
  2102. + {
  2103. +     /* advance to the next kill ring entry */
  2104. +     kill_index++;
  2105. +     if (kill_index == NRING)
  2106. +         kill_index = 0;
  2107. + 
  2108. +     /* and clear it, so it is ready for use */
  2109. +     kdelete();
  2110. + }
  2111. + 
  2112.   /*
  2113.    * Insert a character to the kill buffer, allocating new chunks as needed.
  2114.    * Return TRUE if all is well, and FALSE on errors.
  2115. ***************
  2116. *** 884,924 ****
  2117.       if (direct == FORWARD) {
  2118.   
  2119.           /* check to see if we need a new chunk */
  2120. !         if (kused >= KBLOCK) {
  2121.               if ((nchunk = (KILL *)malloc(sizeof(KILL))) == NULL)
  2122.                   return(FALSE);
  2123. !             if (kbufh == NULL)    /* set head ptr if first time */
  2124. !                 kbufh = nchunk;
  2125. !             if (kbufp != NULL)    /* point the current to this new one */
  2126. !                 kbufp->d_next = nchunk;
  2127. !             kbufp = nchunk;
  2128. !             kbufp->d_next = NULL;
  2129. !             kused = 0;
  2130.           }
  2131.       
  2132.           /* and now insert the character */
  2133. !         kbufp->d_chunk[kused++] = c;
  2134.       } else {
  2135.           /* BACKWARDS */
  2136.           /* check to see if we need a new chunk */
  2137. !         if (kskip == 0) {
  2138.               if ((nchunk = (KILL *)malloc(sizeof(KILL))) == NULL)
  2139.                   return(FALSE);
  2140. !             if (kbufh == NULL) {    /* set head ptr if first time */
  2141. !                 kbufh = nchunk;
  2142. !                 kbufp = nchunk;
  2143. !                 kskip = KBLOCK;
  2144. !                 kused = KBLOCK;
  2145.                   nchunk->d_next = (KILL *)NULL;
  2146.               } else {
  2147. !                 nchunk->d_next = kbufh;
  2148. !                 kbufh = nchunk;
  2149. !                 kskip = KBLOCK;
  2150.               }
  2151.           }
  2152.       
  2153.           /* and now insert the character */
  2154. !         kbufh->d_chunk[--kskip] = c;
  2155.       }
  2156.       return(TRUE);
  2157.   }
  2158. --- 905,945 ----
  2159.       if (direct == FORWARD) {
  2160.   
  2161.           /* check to see if we need a new chunk */
  2162. !         if (kused[kill_index] >= KBLOCK) {
  2163.               if ((nchunk = (KILL *)malloc(sizeof(KILL))) == NULL)
  2164.                   return(FALSE);
  2165. !             if (kbufh[kill_index] == NULL)    /* set head ptr if first time */
  2166. !                 kbufh[kill_index] = nchunk;
  2167. !             if (kbufp[kill_index] != NULL)    /* point the current to this new one */
  2168. !                 kbufp[kill_index]->d_next = nchunk;
  2169. !             kbufp[kill_index] = nchunk;
  2170. !             kbufp[kill_index]->d_next = NULL;
  2171. !             kused[kill_index] = 0;
  2172.           }
  2173.       
  2174.           /* and now insert the character */
  2175. !         kbufp[kill_index]->d_chunk[kused[kill_index]++] = c;
  2176.       } else {
  2177.           /* BACKWARDS */
  2178.           /* check to see if we need a new chunk */
  2179. !         if (kskip[kill_index] == 0) {
  2180.               if ((nchunk = (KILL *)malloc(sizeof(KILL))) == NULL)
  2181.                   return(FALSE);
  2182. !             if (kbufh[kill_index] == NULL) {    /* set head ptr if first time */
  2183. !                 kbufh[kill_index] = nchunk;
  2184. !                 kbufp[kill_index] = nchunk;
  2185. !                 kskip[kill_index] = KBLOCK;
  2186. !                 kused[kill_index] = KBLOCK;
  2187.                   nchunk->d_next = (KILL *)NULL;
  2188.               } else {
  2189. !                 nchunk->d_next = kbufh[kill_index];
  2190. !                 kbufh[kill_index] = nchunk;
  2191. !                 kskip[kill_index] = KBLOCK;
  2192.               }
  2193.           }
  2194.       
  2195.           /* and now insert the character */
  2196. !         kbufh[kill_index]->d_chunk[--kskip[kill_index]] = c;
  2197.       }
  2198.       return(TRUE);
  2199.   }
  2200. ***************
  2201. *** 946,954 ****
  2202.           return(rdonly());    /* we are in read only mode    */
  2203.       if (n < 0)
  2204.           return(FALSE);
  2205.       /* make sure there is something to yank */
  2206. !     if (kbufh == NULL)
  2207.           return(TRUE);        /* not an error, just nothing */
  2208.   
  2209.       /*
  2210.        * Save the local pointers to hold global ".".
  2211. --- 967,978 ----
  2212.           return(rdonly());    /* we are in read only mode    */
  2213.       if (n < 0)
  2214.           return(FALSE);
  2215. + 
  2216.       /* make sure there is something to yank */
  2217. !     if (kbufh[kill_index] == NULL) {
  2218. !         last_size = 0L;
  2219.           return(TRUE);        /* not an error, just nothing */
  2220. +     }
  2221.   
  2222.       /*
  2223.        * Save the local pointers to hold global ".".
  2224. ***************
  2225. *** 964,995 ****
  2226.   
  2227.       /* for each time.... */
  2228.       while (n--) {
  2229. !         if (kskip > 0) {
  2230. !             kptr = kbufh;
  2231. !             sp = &(kptr->d_chunk[kskip]);
  2232. !             counter = kskip;
  2233.               while (counter++ < KBLOCK) {
  2234.                   Char_insert(*sp);
  2235.                   ++sp;
  2236.               }
  2237.               kptr = kptr->d_next;
  2238.           } else {
  2239. !             kptr = kbufh;
  2240.           }
  2241.       
  2242.           if (kptr != (KILL *)NULL) {
  2243. !             while (kptr != kbufp) {
  2244.                   sp = kptr->d_chunk;
  2245.                   for(counter = 0; counter < KBLOCK; counter++) {
  2246.                       Char_insert(*sp);
  2247.                       ++sp;
  2248.                   }
  2249.                   kptr = kptr->d_next;
  2250.               }
  2251. !             counter = kused;
  2252.               sp = kptr->d_chunk;
  2253.               while (counter--) {
  2254.                   Char_insert(*sp);
  2255.                   ++sp;
  2256.               }
  2257.           }
  2258. --- 988,1023 ----
  2259.   
  2260.       /* for each time.... */
  2261.       while (n--) {
  2262. !         last_size = 0L;
  2263. !         if (kskip[kill_index] > 0) {
  2264. !             kptr = kbufh[kill_index];
  2265. !             sp = &(kptr->d_chunk[kskip[kill_index]]);
  2266. !             counter = kskip[kill_index];
  2267.               while (counter++ < KBLOCK) {
  2268.                   Char_insert(*sp);
  2269. +                 last_size++;
  2270.                   ++sp;
  2271.               }
  2272.               kptr = kptr->d_next;
  2273.           } else {
  2274. !             kptr = kbufh[kill_index];
  2275.           }
  2276.       
  2277.           if (kptr != (KILL *)NULL) {
  2278. !             while (kptr != kbufp[kill_index]) {
  2279.                   sp = kptr->d_chunk;
  2280.                   for(counter = 0; counter < KBLOCK; counter++) {
  2281.                       Char_insert(*sp);
  2282. +                     last_size++;
  2283.                       ++sp;
  2284.                   }
  2285.                   kptr = kptr->d_next;
  2286.               }
  2287. !             counter = kused[kill_index];
  2288.               sp = kptr->d_chunk;
  2289.               while (counter--) {
  2290.                   Char_insert(*sp);
  2291. +                 last_size++;
  2292.                   ++sp;
  2293.               }
  2294.           }
  2295. ***************
  2296. *** 1002,1007 ****
  2297. --- 1030,1094 ----
  2298.           curwp->w_dotp = lforw(curline);
  2299.           curwp->w_doto = curoff;
  2300.       }
  2301. +     thisflag |= CFYANK;
  2302. +     return(TRUE);
  2303. + }
  2304. + 
  2305. + PASCAL NEAR cycle_ring(f, n)
  2306. + 
  2307. + int f,n;    /* prefix flag and argument */
  2308. + 
  2309. + {
  2310. +     register int orig_index;    /* original kill_index */
  2311. + 
  2312. +     /* if there is an argument, cycle the kill index */
  2313. +     if (f) {
  2314. +         while (n) {
  2315. +             orig_index = kill_index;
  2316. +             do {
  2317. +                 kill_index--;
  2318. +                 if (kill_index < 0)
  2319. +                     kill_index = NRING - 1;
  2320. +             } while ((orig_index != kill_index) &&
  2321. +                 (kbufh[kill_index] == (KILL *)NULL));
  2322. +             n--;
  2323. +         }
  2324. +     }
  2325. + }
  2326. + 
  2327. + PASCAL NEAR yank_pop(f, n)
  2328. + 
  2329. + int f,n;    /* prefix flag and argument */
  2330. + 
  2331. + {
  2332. +     /* defaulted non first call will cycle by 1 */
  2333. +     if ((lastflag & CFYANK) && (f == FALSE)) {
  2334. +         f = TRUE;
  2335. +         n = 1;
  2336. +     }
  2337. + 
  2338. +     /* cycle the kill ring appropriately */
  2339. +     cycle_ring(f, n);
  2340. + 
  2341. +     /* if not the first consectutive time, delete the last yank */
  2342. +     if ((lastflag & CFYANK))
  2343. +         ldelete(-last_size, FALSE);
  2344. + 
  2345. +     /* and insert the current kill buffer */
  2346. +     return(yank(FALSE, 1));
  2347. + }
  2348. + 
  2349. + PASCAL NEAR clear_ring(f, n)
  2350. + 
  2351. + int f,n;    /* prefix flag and argument */
  2352. + 
  2353. + {
  2354. +     register int index;
  2355. + 
  2356. +     for (index = 0; index < NRING; index++)
  2357. +         next_kill();
  2358. +     mlwrite(TEXT228);
  2359. + /*        "[Kill ring cleared]" */
  2360.       return(TRUE);
  2361.   }
  2362.   
  2363. ***************
  2364. *** 1014,1030 ****
  2365.       char *sp;
  2366.       int counter;
  2367.   
  2368. !     if (kbufh == (KILL *)NULL) {
  2369.           printf("<EMPTY>\n");
  2370.           return;
  2371.       }
  2372.   
  2373.       index = 1;
  2374. !     if (kskip > 0) {
  2375. !         kptr = kbufh;
  2376. !         printf("kskip = %d\nBLOCK %d <", kskip, index++);
  2377. !         sp = &(kptr->d_chunk[kskip]);
  2378. !         counter = kskip;
  2379.           while (counter++ < KBLOCK) {
  2380.               putchar(*sp++);
  2381.           }
  2382. --- 1101,1117 ----
  2383.       char *sp;
  2384.       int counter;
  2385.   
  2386. !     if (kbufh[kill_index] == (KILL *)NULL) {
  2387.           printf("<EMPTY>\n");
  2388.           return;
  2389.       }
  2390.   
  2391.       index = 1;
  2392. !     if (kskip[kill_index] > 0) {
  2393. !         kptr = kbufh[kill_index];
  2394. !         printf("kskip[kill_index] = %d\nBLOCK %d <", kskip[kill_index], index++);
  2395. !         sp = &(kptr->d_chunk[kskip[kill_index]]);
  2396. !         counter = kskip[kill_index];
  2397.           while (counter++ < KBLOCK) {
  2398.               putchar(*sp++);
  2399.           }
  2400. ***************
  2401. *** 1031,1051 ****
  2402.           printf(">\n");
  2403.           kptr = kptr->d_next;
  2404.       } else {
  2405. !         kptr = kbufh;
  2406.       }
  2407.   
  2408.       if (kptr != (KILL *)NULL) {
  2409. !         while (kptr != kbufp) {
  2410.               printf("BLOCK %d <%255s>\n", index++, kptr->d_chunk);
  2411.               kptr = kptr->d_next;
  2412.           }
  2413.           printf("BLOCK %d <", index++);
  2414. !         counter = kused;
  2415.           sp = kptr->d_chunk;
  2416.           while (counter--) {
  2417.               putchar(*sp++);
  2418.           }
  2419. !         printf(">\nkused = %d\n", kused);
  2420.       }
  2421.   
  2422.   }
  2423. --- 1118,1138 ----
  2424.           printf(">\n");
  2425.           kptr = kptr->d_next;
  2426.       } else {
  2427. !         kptr = kbufh[kill_index];
  2428.       }
  2429.   
  2430.       if (kptr != (KILL *)NULL) {
  2431. !         while (kptr != kbufp[kill_index]) {
  2432.               printf("BLOCK %d <%255s>\n", index++, kptr->d_chunk);
  2433.               kptr = kptr->d_next;
  2434.           }
  2435.           printf("BLOCK %d <", index++);
  2436. !         counter = kused[kill_index];
  2437.           sp = kptr->d_chunk;
  2438.           while (counter--) {
  2439.               putchar(*sp++);
  2440.           }
  2441. !         printf(">\nkused[kill_index] = %d\n", kused[kill_index]);
  2442.       }
  2443.   
  2444.   }
  2445. *** ../orig/main.c    Mon Jul 27 21:51:53 1992
  2446. --- main.c    Mon Jul 27 21:54:53 1992
  2447. ***************
  2448. *** 27,32 ****
  2449. --- 27,36 ----
  2450.   
  2451.   /* for many different systems, increase the default stack space */
  2452.   
  2453. + #if    MSDOS && MSC
  2454. + unsigned _stackavail = 20000;
  2455. + #endif
  2456. + 
  2457.   #if    MSDOS && LATTICE
  2458.   unsigned _stack = 20000;
  2459.   #endif
  2460. ***************
  2461. *** 149,156 ****
  2462.           bp = bheadp;
  2463.       }
  2464.   
  2465. !     /* and the kill buffer */
  2466. !     kdelete();
  2467.   
  2468.       /* clear some search variables */
  2469.   #if    MAGIC
  2470. --- 153,160 ----
  2471.           bp = bheadp;
  2472.       }
  2473.   
  2474. !     /* and the kill buffers */
  2475. !     clear_ring();
  2476.   
  2477.       /* clear some search variables */
  2478.   #if    MAGIC
  2479. ***************
  2480. *** 374,379 ****
  2481. --- 378,384 ----
  2482.       register int mflag;    /* negative flag on repeat */
  2483.       register int basec;    /* c stripped of meta character */
  2484.       register int oldflag;    /* old last flag value */
  2485. +     char time[6];        /* current display time */
  2486.   
  2487.       /* setup to process commands */
  2488.       lastflag = 0;        /* Fake last flags.    */
  2489. ***************
  2490. *** 407,412 ****
  2491. --- 412,428 ----
  2492.       }
  2493.   #endif
  2494.   
  2495. +     /* update time on the bottom modeline? */
  2496. +     if (timeflag) {
  2497. +         getdtime(time);
  2498. +         if (strcmp(lasttime, time) != 0)
  2499. +             upmode();
  2500. +     }
  2501. + 
  2502. +     /* update position on current modeline? */
  2503. +     if (posflag)
  2504. +         upmode();
  2505. + 
  2506.       /* Fix up the screen    */
  2507.       update(FALSE);
  2508.   
  2509. ***************
  2510. *** 526,531 ****
  2511. --- 542,557 ----
  2512.   
  2513.   {
  2514.       register BUFFER *bp;
  2515. +     register int index;
  2516. + 
  2517. +     /* init the kill ring */
  2518. +     for (index = 0; index < NRING; index++) {
  2519. +         kbufp[index] = (KILL *)NULL;
  2520. +         kbufh[index] = (KILL *)NULL;
  2521. +         kskip[index] = 0;
  2522. +         kused[index] = KBLOCK;
  2523. +     }
  2524. +     kill_index = 0;
  2525.   
  2526.       /* initialize some important globals */
  2527.   
  2528. ***************
  2529. *** 544,550 ****
  2530.   
  2531.       /* allocate the first buffer */
  2532.       bp = bfind(bname, TRUE, 0);        /* First buffer     */
  2533. !     blistp = bfind("[List]", TRUE, BFINVS); /* Buffer list buffer    */
  2534.       slistp = bfind("[Screens]", TRUE, BFINVS); /* Buffer list buffer    */
  2535.       if (bp==NULL || blistp==NULL)
  2536.           meexit(1);
  2537. --- 570,576 ----
  2538.   
  2539.       /* allocate the first buffer */
  2540.       bp = bfind(bname, TRUE, 0);        /* First buffer     */
  2541. !     blistp = bfind("[Buffers]", TRUE, BFINVS); /* Buffer list buffer    */
  2542.       slistp = bfind("[Screens]", TRUE, BFINVS); /* Buffer list buffer    */
  2543.       if (bp==NULL || blistp==NULL)
  2544.           meexit(1);
  2545. *** ../orig/platin.h    Mon Jul 27 21:51:54 1992
  2546. --- platin.h    Mon Jul 27 21:55:44 1992
  2547. ***************
  2548. *** 232,235 ****
  2549. --- 232,236 ----
  2550.   #define    TEXT225 "[Switched to screen %s]"
  2551.   #define    TEXT226    "%%Can not kill an executing buffer"
  2552.   #define    TEXT227 "\n--- Press any key to Continue ---"
  2553. + #define TEXT228 "[Illkay ingray earedclay]"
  2554.   
  2555. *** ../orig/random.c    Mon Jul 27 21:51:55 1992
  2556. --- random.c    Mon Jul 27 21:54:56 1992
  2557. ***************
  2558. *** 745,751 ****
  2559.                   return(backdel(f, -n));
  2560.           if (f != FALSE) {                       /* Really a kill.       */
  2561.                   if ((lastflag&CFKILL) == 0)
  2562. !                         kdelete();
  2563.                   thisflag |= CFKILL;
  2564.           }
  2565.           return(ldelete((long)n, f));
  2566. --- 745,751 ----
  2567.                   return(backdel(f, -n));
  2568.           if (f != FALSE) {                       /* Really a kill.       */
  2569.                   if ((lastflag&CFKILL) == 0)
  2570. !                         next_kill();
  2571.                   thisflag |= CFKILL;
  2572.           }
  2573.           return(ldelete((long)n, f));
  2574. ***************
  2575. *** 770,776 ****
  2576.                   return(forwdel(f, -n));
  2577.           if (f != FALSE) {                       /* Really a kill.       */
  2578.                   if ((lastflag&CFKILL) == 0)
  2579. !                         kdelete();
  2580.                   thisflag |= CFKILL;
  2581.           }
  2582.           if ((s=backchar(f, n)) == TRUE)
  2583. --- 770,776 ----
  2584.                   return(forwdel(f, -n));
  2585.           if (f != FALSE) {                       /* Really a kill.       */
  2586.                   if ((lastflag&CFKILL) == 0)
  2587. !                         next_kill();
  2588.                   thisflag |= CFKILL;
  2589.           }
  2590.           if ((s=backchar(f, n)) == TRUE)
  2591. ***************
  2592. *** 797,803 ****
  2593.       if (curbp->b_mode&MDVIEW)    /* don't allow this command if    */
  2594.           return(rdonly());    /* we are in read only mode    */
  2595.           if ((lastflag&CFKILL) == 0)             /* Clear kill buffer if */
  2596. !                 kdelete();                      /* last wasn't a kill.  */
  2597.           thisflag |= CFKILL;
  2598.   
  2599.           if (f == FALSE) {
  2600. --- 797,803 ----
  2601.       if (curbp->b_mode&MDVIEW)    /* don't allow this command if    */
  2602.           return(rdonly());    /* we are in read only mode    */
  2603.           if ((lastflag&CFKILL) == 0)             /* Clear kill buffer if */
  2604. !                 next_kill();            /* last wasn't a kill.  */
  2605.           thisflag |= CFKILL;
  2606.   
  2607.           if (f == FALSE) {
  2608. *** ../orig/region.c    Mon Jul 27 21:51:55 1992
  2609. --- region.c    Mon Jul 27 21:54:57 1992
  2610. ***************
  2611. *** 64,70 ****
  2612.           if ((s=getregion(®ion)) != TRUE)
  2613.                   return(s);
  2614.           if ((lastflag&CFKILL) == 0)             /* This is a kill type  */
  2615. !                 kdelete();                      /* command, so do magic */
  2616.           thisflag |= CFKILL;                     /* kill buffer stuff.   */
  2617.           curwp->w_dotp = region.r_linep;
  2618.           curwp->w_doto = region.r_offset;
  2619. --- 64,70 ----
  2620.           if ((s=getregion(®ion)) != TRUE)
  2621.                   return(s);
  2622.           if ((lastflag&CFKILL) == 0)             /* This is a kill type  */
  2623. !                 next_kill();                      /* command, so do magic */
  2624.           thisflag |= CFKILL;                     /* kill buffer stuff.   */
  2625.           curwp->w_dotp = region.r_linep;
  2626.           curwp->w_doto = region.r_offset;
  2627. ***************
  2628. *** 90,96 ****
  2629.           if ((s=getregion(®ion)) != TRUE)
  2630.                   return(s);
  2631.           if ((lastflag&CFKILL) == 0)             /* Kill type command.   */
  2632. !                 kdelete();
  2633.           thisflag |= CFKILL;
  2634.           linep = region.r_linep;                 /* Current line.        */
  2635.           loffs = region.r_offset;                /* Current offset.      */
  2636. --- 90,96 ----
  2637.           if ((s=getregion(®ion)) != TRUE)
  2638.                   return(s);
  2639.           if ((lastflag&CFKILL) == 0)             /* Kill type command.   */
  2640. !                 next_kill();
  2641.           thisflag |= CFKILL;
  2642.           linep = region.r_linep;                 /* Current line.        */
  2643.           loffs = region.r_offset;                /* Current offset.      */
  2644. *** ../orig/search.c    Mon Jul 27 21:51:56 1992
  2645. --- search.c    Mon Jul 27 21:55:00 1992
  2646. ***************
  2647. *** 12,23 ****
  2648.   #include "edef.h"
  2649.   #include "elang.h"
  2650.   
  2651. - /* The variables matchline and matchoff hold the line
  2652. -  * and offset position of the *start* of the match.
  2653. -  */
  2654. - static int    matchlen;
  2655. - static int    matchoff;
  2656. - static LINE    *matchline;
  2657.   static int    patlenadd;
  2658.   static int    lastchfjump, lastchbjump;
  2659.   static int    deltaf[HICHAR], deltab[HICHAR];
  2660. --- 12,17 ----
  2661. ***************
  2662. *** 366,383 ****
  2663.               }
  2664.           }
  2665.           else if (mcptr->mc_type == GRPBEG) {
  2666. !             if (direct == FORWARD) {
  2667. !                 group_reg[mcptr->u.group_no].r_offset = curoff;
  2668. !                 group_reg[mcptr->u.group_no].r_linep = curline;
  2669. !             }
  2670. !             group_reg[mcptr->u.group_no].r_size = -matchlen;
  2671.           }
  2672.           else if (mcptr->mc_type == GRPEND) {
  2673. !             if (direct == REVERSE) {
  2674. !                 group_reg[mcptr->u.group_no].r_offset = curoff;
  2675. !                 group_reg[mcptr->u.group_no].r_linep = curline;
  2676. !             }
  2677. !             group_len[mcptr->u.group_no] = matchlen;
  2678.           }
  2679.           else if (mcptr->mc_type == BOL) {
  2680.               if (curoff != 0)
  2681. --- 360,371 ----
  2682.               }
  2683.           }
  2684.           else if (mcptr->mc_type == GRPBEG) {
  2685. !             group_reg[mcptr->u.group_no].r_offset = curoff;
  2686. !             group_reg[mcptr->u.group_no].r_linep = curline;
  2687. !             group_reg[mcptr->u.group_no].r_size = (direct == FORWARD)? -matchlen: matchlen;
  2688.           }
  2689.           else if (mcptr->mc_type == GRPEND) {
  2690. !             group_len[mcptr->u.group_no] = (direct == FORWARD)? matchlen: -matchlen;
  2691.           }
  2692.           else if (mcptr->mc_type == BOL) {
  2693.               if (curoff != 0)
  2694. ***************
  2695. *** 543,549 ****
  2696.       curline = *pcurline;
  2697.       curoff = *pcuroff;
  2698.   
  2699. !     if (dir == FORWARD) {
  2700.           while (jump != 0) {
  2701.               curoff += jump;
  2702.               spare = curoff - llength(curline);
  2703. --- 531,538 ----
  2704.       curline = *pcurline;
  2705.       curoff = *pcuroff;
  2706.   
  2707. !     if (dir == FORWARD)
  2708. !     {
  2709.           while (jump != 0) {
  2710.               curoff += jump;
  2711.               spare = curoff - llength(curline);
  2712. ***************
  2713. *** 722,728 ****
  2714.       char        tpat[NPAT+20];
  2715.   
  2716.       strcpy(tpat, prompt);    /* copy prompt to output string */
  2717. !     strcat(tpat, " [");    /* build new prompt string */
  2718.       expandp(&apat[0], &tpat[strlen(tpat)], NPAT/2);    /* add old pattern */
  2719.       strcat(tpat, "]");
  2720.   
  2721. --- 711,717 ----
  2722.       char        tpat[NPAT+20];
  2723.   
  2724.       strcpy(tpat, prompt);    /* copy prompt to output string */
  2725. !     strcat(tpat, " [");
  2726.       expandp(&apat[0], &tpat[strlen(tpat)], NPAT/2);    /* add old pattern */
  2727.       strcat(tpat, "]");
  2728.   
  2729. ***************
  2730. *** 739,745 ****
  2731.   
  2732.       /* Read a pattern.  Either we get one,
  2733.        * or we just get the META charater, and use the previous pattern.
  2734. !      * Then, if it's the search string, make a reversed pattern.
  2735.        * *Then*, make the meta-pattern, if we are defined that way.
  2736.        */
  2737.       if ((status = mltreply(tpat, tpat, NPAT, sterm)) == TRUE) {
  2738. --- 728,734 ----
  2739.   
  2740.       /* Read a pattern.  Either we get one,
  2741.        * or we just get the META charater, and use the previous pattern.
  2742. !      * Then, if it's the search string, create the delta tables.
  2743.        * *Then*, make the meta-pattern, if we are defined that way.
  2744.        */
  2745.       if ((status = mltreply(tpat, tpat, NPAT, sterm)) == TRUE) {
  2746. ***************
  2747. *** 746,754 ****
  2748.           lastflag &= ~CFSRCH;
  2749.           strcpy(apat, tpat);
  2750.   
  2751. -         /* If we are doing the search string,
  2752. -          * set the delta tables.
  2753. -          */
  2754.           if (srch)
  2755.               setjtable();
  2756.   
  2757. --- 735,740 ----
  2758. ***************
  2759. *** 791,812 ****
  2760.       tmpreg.r_offset = matchoff;
  2761.       tmpreg.r_linep = matchline;
  2762.       tmpreg.r_size = matchlen;
  2763. -     regtostr(patmatch, &tmpreg);
  2764.   
  2765. ! #if    MAGIC
  2766.       /*
  2767.        * Save the groups.
  2768.        */
  2769. !     grpmatch[0] = patmatch;
  2770. !     for (j = 1; j <= group_count; j++) {
  2771.           group_reg[j].r_size += group_len[j];
  2772. !         if (grpmatch[j] != NULL) {
  2773.               free(grpmatch[j]);
  2774. -         }
  2775.   
  2776. !         if ((grpmatch[j] = malloc(group_reg[j].r_size + 1)) != NULL) {
  2777.               regtostr(grpmatch[j], &group_reg[j]);
  2778. !         } else {
  2779.               mlwrite(TEXT94);
  2780.   /*            "%%Out of memory" */
  2781.               return ABORT;
  2782. --- 777,800 ----
  2783.       tmpreg.r_offset = matchoff;
  2784.       tmpreg.r_linep = matchline;
  2785.       tmpreg.r_size = matchlen;
  2786.   
  2787. ! #if    MAGIC == 0
  2788. !     regtostr(patmatch, &tmpreg);
  2789. ! #else
  2790.       /*
  2791.        * Save the groups.
  2792.        */
  2793. !     grpmatch[0] = regtostr(patmatch, &tmpreg);
  2794. !     for (j = 1; j <= group_count; j++)
  2795. !     {
  2796.           group_reg[j].r_size += group_len[j];
  2797. ! 
  2798. !         if (grpmatch[j] != NULL)
  2799.               free(grpmatch[j]);
  2800.   
  2801. !         if ((grpmatch[j] = malloc(group_reg[j].r_size + 1)) != NULL)
  2802.               regtostr(grpmatch[j], &group_reg[j]);
  2803. !         else {
  2804.               mlwrite(TEXT94);
  2805.   /*            "%%Out of memory" */
  2806.               return ABORT;
  2807. ***************
  2808. *** 1026,1032 ****
  2809.           /* if this is the point origin, flag so we a can reset it */
  2810.           if (curwp->w_dotp == origline) {
  2811.               origline = NULL;
  2812. !             lastline = curwp->w_dotp->l_bp;
  2813.           }
  2814.   
  2815.           /* Delete the sucker, and insert its
  2816. --- 1014,1020 ----
  2817.           /* if this is the point origin, flag so we a can reset it */
  2818.           if (curwp->w_dotp == origline) {
  2819.               origline = NULL;
  2820. !             lastline = lback(curwp->w_dotp);
  2821.           }
  2822.   
  2823.           /* Delete the sucker, and insert its
  2824. ***************
  2825. *** 1038,1044 ****
  2826.           status = delins(matchlen, &rpat[0], FALSE);
  2827.   #endif
  2828.           if (origline == NULL) {
  2829. !             origline = lastline->l_fp;
  2830.               origoff = 0;
  2831.           }
  2832.   
  2833. --- 1026,1032 ----
  2834.           status = delins(matchlen, &rpat[0], FALSE);
  2835.   #endif
  2836.           if (origline == NULL) {
  2837. !             origline = lforw(lastline);
  2838.               origoff = 0;
  2839.           }
  2840.   
  2841. ***************
  2842. *** 1430,1437 ****
  2843.   #else
  2844.               *rtpcm = *--mcptr;
  2845.   #endif
  2846. -             if (rtpcm->mc_type & (GRPBEG | GRPEND))
  2847. -                 rtpcm->mc_type ^= (GRPBEG | GRPEND);
  2848.               rtpcm++;
  2849.           }
  2850.           rtpcm->mc_type = MCNIL;
  2851. --- 1418,1423 ----
  2852. *** ../orig/spanish.h    Mon Jul 27 21:51:56 1992
  2853. --- spanish.h    Mon Jul 27 21:55:44 1992
  2854. ***************
  2855. *** 232,235 ****
  2856. --- 232,236 ----
  2857.   #define    TEXT225 "[Switched to screen %s]"
  2858.   #define    TEXT226    "%%Can not kill an executing buffer"
  2859.   #define    TEXT227 "\n--- Press any key to Continue ---"
  2860. + #define TEXT228 "[Kill ring cleared]"
  2861.   
  2862. *** ../orig/unix.c    Mon Jul 27 21:51:58 1992
  2863. --- unix.c    Mon Jul 27 22:09:01 1992
  2864. ***************
  2865. *** 91,96 ****
  2866. --- 91,99 ----
  2867.   /** Overall include files **/
  2868.   #include <sys/types.h>            /* System type definitions    */
  2869.   #include <sys/stat.h>            /* File status definitions    */
  2870. + #if PC_BSD
  2871. + #include <sys/ioctl_compat.h>
  2872. + #endif /* PC_BSD */
  2873.   #include <sys/ioctl.h>            /* I/O control definitions    */
  2874.   
  2875.   /** Additional include files **/
  2876. ***************
  2877. *** 117,127 ****
  2878.   #include <sys/dir.h>            /* Directory entry definitions    */
  2879.   #define DIRENTRY    direct
  2880.   #endif /* BSD */
  2881. ! #if XENIX
  2882.   #include <sys/ndir.h>            /* Directory entry definitions    */
  2883.   #define DIRENTRY    direct
  2884.   #endif /* XENIX */
  2885. ! #if USG || SMOS || HPUX || SUN || AVIION
  2886.   #include <dirent.h>            /* Directory entry definitions    */
  2887.   #define DIRENTRY    dirent
  2888.   #endif /* USG || SMOS || HPUX || SUN || AVIION */
  2889. --- 120,130 ----
  2890.   #include <sys/dir.h>            /* Directory entry definitions    */
  2891.   #define DIRENTRY    direct
  2892.   #endif /* BSD */
  2893. ! #if XENIX || VAT
  2894.   #include <sys/ndir.h>            /* Directory entry definitions    */
  2895.   #define DIRENTRY    direct
  2896.   #endif /* XENIX */
  2897. ! #if (USG && !VAT) || SMOS || HPUX || SUN || AVIION
  2898.   #include <dirent.h>            /* Directory entry definitions    */
  2899.   #define DIRENTRY    dirent
  2900.   #endif /* USG || SMOS || HPUX || SUN || AVIION */
  2901. ***************
  2902. *** 160,165 ****
  2903. --- 163,169 ----
  2904.       char * name;            /* Termcap name            */
  2905.       int value;            /* Binding value        */
  2906.   };
  2907. + char *reset = (char*) NULL;        /* reset string kjc */
  2908.   #endif /* TERMCAP */
  2909.   
  2910.   /** Local variables **/
  2911. ***************
  2912. *** 253,258 ****
  2913. --- 257,263 ----
  2914.       { "k8", SPEC|'8' },        /* F8 key            */
  2915.       { "k9", SPEC|'9' },        /* F9 key            */
  2916.       { "k0", SPEC|'0' },        /* F0 or F10 key        */
  2917. +      { "k;", SPEC|'0' },        /* F0 or F10 key    (kjc)    */
  2918.       { "kA", CTRL|'O' },        /* Insert line key        */
  2919.       { "kb", CTRL|'H' },        /* Backspace key        */
  2920.       { "kC", CTRL|'L' },        /* Clear screen key        */
  2921. ***************
  2922. *** 261,266 ****
  2923. --- 266,272 ----
  2924.       { "kE", CTRL|'K' },        /* Clear to end of line key    */
  2925.       { "kF", CTRL|'V' },        /* Scroll forward key        */
  2926.       { "kH", SPEC|'>' },        /* Home down key        */
  2927. +      { "@7", SPEC|'>' },        /* Home down key    (kjc)    */
  2928.       { "kh", SPEC|'<' },        /* Home key            */
  2929.       { "kI", SPEC|'C' },        /* Insert character key        */
  2930.       { "kL", CTRL|'K' },        /* Delete line key        */
  2931. ***************
  2932. *** 304,309 ****
  2933. --- 310,316 ----
  2934.       0,                /* Current number of columns    */
  2935.       MARGIN,                /* Margin for extending lines    */
  2936.       SCRSIZ,                /* Scroll size for extending    */
  2937. +     0, 0,                /* upper left corner default screen */
  2938.       NPAUSE,                /* # times thru update to pause    */
  2939.       scopen,                /* Open terminal routine    */
  2940.       scclose,            /* Close terminal routine    */
  2941. ***************
  2942. *** 315,320 ****
  2943. --- 322,328 ----
  2944.       scmove,                /* Move cursor routine        */
  2945.       sceeol,                /* Erase to end of line routine    */
  2946.       sceeop,                /* Erase to end of page routine    */
  2947. +     sceeop,                /* Clear the desktop        */
  2948.       scbeep,                /* Beep! routine        */
  2949.       screv,                /* Set reverse video routine    */
  2950.       scnothing,            /* Set resolution routine    */
  2951. ***************
  2952. *** 429,434 ****
  2953. --- 437,445 ----
  2954.   int ttclose()
  2955.   {
  2956.       /* Restore original terminal modes */
  2957. +     if (reset != (char*)NULL)
  2958. +         write(1, reset, strlen(reset));
  2959. + 
  2960.   #if BSD
  2961.       if (ioctl(0, TIOCSETP, &oldsgtty) ||
  2962.           ioctl(0, TIOCSETC, &oldtchars) ||
  2963. ***************
  2964. *** 771,781 ****
  2965. --- 782,796 ----
  2966.           return(0);
  2967.       return(count);
  2968.   #else /* not FIONREAD */
  2969. + #ifdef VAT
  2970. +     return(0);
  2971. + #else /* not VAT */
  2972.       /* Ask hardware for count */
  2973.       count = ioctl(0, FIORDCHK, 0);
  2974.       if (count < 0)
  2975.           return(0);
  2976.       return(count);
  2977. + #endif    /* VAT */
  2978.   #endif /* FIONREAD */
  2979.   }
  2980.   #endif /* TYPEAH */
  2981. ***************
  2982. *** 804,810 ****
  2983.       struct keybind * kp;
  2984.   
  2985.       char * getenv(), * tgetstr();
  2986. ! #if HPUX
  2987.       /* HP-UX doesn't seem to have these in the termcap library */
  2988.       char PC, * UP;
  2989.       short ospeed;
  2990. --- 819,832 ----
  2991.       struct keybind * kp;
  2992.   
  2993.       char * getenv(), * tgetstr();
  2994. ! 
  2995. ! #ifndef VAT
  2996. ! #define TGETSTR(a,b)    tgetstr((a), (b))
  2997. ! #else
  2998. ! #define TGETSTR(a,b)    tgetstr((a), *(b))
  2999. ! #endif
  3000. ! 
  3001. ! #if HPUX || VAT
  3002.       /* HP-UX doesn't seem to have these in the termcap library */
  3003.       char PC, * UP;
  3004.       short ospeed;
  3005. ***************
  3006. *** 842,858 ****
  3007.       /* Start grabbing termcap commands */
  3008.       cp = tcapbuf;
  3009.   
  3010.       /* Get the pad character */
  3011.       if (tgetstr("pc", &cp))
  3012.           PC = tcapbuf[0];
  3013.   
  3014.       /* Get up line capability */
  3015. !     UP = tgetstr("up", &cp);
  3016.   
  3017.       /* Get other capabilities */
  3018.       cb = capbind;
  3019.       while (cb < &capbind[sizeof(capbind)/sizeof(*capbind)]) {
  3020. !         cb->store = tgetstr(cb->name, &cp);
  3021.           cb++;
  3022.       }
  3023.   
  3024. --- 864,883 ----
  3025.       /* Start grabbing termcap commands */
  3026.       cp = tcapbuf;
  3027.   
  3028. +     /* Get the reset string */
  3029. +     reset = TGETSTR("is", &cp);
  3030. + 
  3031.       /* Get the pad character */
  3032.       if (tgetstr("pc", &cp))
  3033.           PC = tcapbuf[0];
  3034.   
  3035.       /* Get up line capability */
  3036. !     UP = TGETSTR("up", &cp);
  3037.   
  3038.       /* Get other capabilities */
  3039.       cb = capbind;
  3040.       while (cb < &capbind[sizeof(capbind)/sizeof(*capbind)]) {
  3041. !         cb->store = TGETSTR(cb->name, &cp);
  3042.           cb++;
  3043.       }
  3044.   
  3045. ***************
  3046. *** 871,877 ****
  3047.       /* Get keybindings */
  3048.       kp = keybind;
  3049.       while (kp < &keybind[sizeof(keybind)/sizeof(*keybind)]) {
  3050. !         addkey(tgetstr(kp->name, &cp), kp->value);
  3051.           kp++;
  3052.       }
  3053.   
  3054. --- 896,902 ----
  3055.       /* Get keybindings */
  3056.       kp = keybind;
  3057.       while (kp < &keybind[sizeof(keybind)/sizeof(*keybind)]) {
  3058. !         addkey(TGETSTR(kp->name, &cp), kp->value);
  3059.           kp++;
  3060.       }
  3061.   
  3062. ***************
  3063. *** 943,948 ****
  3064. --- 968,975 ----
  3065.   int row;                /* Row number            */
  3066.   int col;                /* Column number        */
  3067.   {
  3068. +     char *tgoto();
  3069. + 
  3070.   #if TERMCAP
  3071.       /* Call on termcap to create move sequence */
  3072.       putpad(tgoto(capbind[CAP_CM].store, col, row));
  3073. *** ../orig/word.c    Mon Jul 27 21:51:59 1992
  3074. --- word.c    Mon Jul 27 21:55:05 1992
  3075. ***************
  3076. *** 292,298 ****
  3077.   
  3078.       /* Clear the kill buffer if last command wasn't a kill */
  3079.       if ((lastflag&CFKILL) == 0)
  3080. !         kdelete();
  3081.       thisflag |= CFKILL;    /* this command is a kill */
  3082.   
  3083.       /* save the current cursor position */
  3084. --- 292,298 ----
  3085.   
  3086.       /* Clear the kill buffer if last command wasn't a kill */
  3087.       if ((lastflag&CFKILL) == 0)
  3088. !         next_kill();
  3089.       thisflag |= CFKILL;    /* this command is a kill */
  3090.   
  3091.       /* save the current cursor position */
  3092. ***************
  3093. *** 381,387 ****
  3094.   
  3095.       /* Clear the kill buffer if last command wasn't a kill */
  3096.       if ((lastflag&CFKILL) == 0)
  3097. !         kdelete();
  3098.       thisflag |= CFKILL;    /* this command is a kill */
  3099.   
  3100.       if (backchar(FALSE, 1) == FALSE)
  3101. --- 381,387 ----
  3102.   
  3103.       /* Clear the kill buffer if last command wasn't a kill */
  3104.       if ((lastflag&CFKILL) == 0)
  3105. !         next_kill();
  3106.       thisflag |= CFKILL;    /* this command is a kill */
  3107.   
  3108.       if (backchar(FALSE, 1) == FALSE)
  3109. ***************
  3110. *** 484,491 ****
  3111.           lp = lp->l_fp;
  3112.       }
  3113.   
  3114.       /* create a buffer to hold this stuff */
  3115. !     para = malloc(psize + 100);    /***** THIS IS TEMP *****/
  3116.       if (para == NULL) {
  3117.           mlwrite(TEXT94);
  3118.   /*                      "%%Out of memory" */
  3119. --- 484,495 ----
  3120.           lp = lp->l_fp;
  3121.       }
  3122.   
  3123. +     /* must have size! */
  3124. +     if (psize == 0)
  3125. +         return(TRUE);
  3126. + 
  3127.       /* create a buffer to hold this stuff */
  3128. !     para = malloc(psize + 10);    /* this prabably could be + 1 */
  3129.       if (para == NULL) {
  3130.           mlwrite(TEXT94);
  3131.   /*                      "%%Out of memory" */
  3132.