home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / editor / m_emacs / patches < prev    next >
Encoding:
Text File  |  1994-01-31  |  64.8 KB  |  2,533 lines
  1. diff -cbr src-orig/basic.c src/basic.c
  2. *** src-orig/basic.c    Mon Dec 16 11:42:16 1991
  3. --- src/basic.c    Sun Dec 22 16:19:00 1991
  4. ***************
  5. *** 164,169 ****
  6. --- 164,207 ----
  7.           return(TRUE);
  8.   }
  9.   
  10. + #if   KEEPPOS
  11. + 
  12. + /*
  13. +  * Move to the top of the screen.  The standsrd screen code does most of the
  14. +  * hard parts of update.
  15. +  *
  16. +  */
  17. + PASCAL NEAR gotobos(f, n)
  18. + int f, n;
  19. + {
  20. +         curwp->w_dotp  = curwp->w_linep;
  21. +         curwp->w_doto  = 0;
  22. +         curwp->w_flag |= WFHARD;
  23. +         return(TRUE);
  24. + } /* gotobos */
  25. + 
  26. + 
  27. + /*
  28. +  * Goto the end of the screen.
  29. +  */
  30. + PASCAL NEAR gotoeos(f, n)
  31. + int f, n;
  32. + {
  33. + register LINE   *lp;
  34. + int   currow;
  35. + 
  36. +       lp = curwp->w_linep;
  37. +       currow = curwp->w_ntrows - 1;
  38. +         while (currow-- && lp!=curbp->b_linep) lp = lforw(lp);
  39. +         curwp->w_dotp  = lp;
  40. +         curwp->w_doto  = 0;
  41. +         curwp->w_flag |= WFHARD;
  42. +         return(TRUE);
  43. + } /* gotoeos */
  44. + 
  45. + #endif
  46. + 
  47. + 
  48.   /*
  49.    * Move forward by full lines. If the number of lines to move is less than
  50.    * zero, call the backward line function to actually do it. The last command
  51. ***************
  52. *** 440,445 ****
  53. --- 478,488 ----
  54.   {
  55.           register LINE   *lp;
  56.   
  57. + #if   KEEPPOS
  58. +         int     currow;
  59. +         register LINE   *lp1;
  60. + #endif
  61. + 
  62.           if (f == FALSE) {
  63.                   n = curwp->w_ntrows - 2;        /* Default scroll.      */
  64.                   if (n <= 0)                     /* Forget the overlap   */
  65. ***************
  66. *** 447,457 ****
  67.           } else if (n < 0)
  68.                   return(backpage(f, -n));
  69.           lp = curwp->w_linep;
  70.           while (n-- && lp!=curbp->b_linep)
  71.                   lp = lforw(lp);
  72.           curwp->w_linep = lp;
  73. !         curwp->w_dotp  = lp;
  74.           curwp->w_doto  = 0;
  75.           curwp->w_flag |= WFHARD;
  76.           return(TRUE);
  77.   }
  78. --- 490,521 ----
  79.           } else if (n < 0)
  80.                   return(backpage(f, -n));
  81.           lp = curwp->w_linep;
  82. + 
  83. + #if   KEEPPOS
  84. +         if ((lastflag&CFCPCN) == 0)
  85. +                 curgoal = getccol(FALSE);
  86. +         /* flag this command as a line move */
  87. +         thisflag |= CFCPCN;
  88. +         lp1 = lp;
  89. +         currow = 0;
  90. +         while (lp1 != curwp->w_dotp ) {
  91. +               currow++;
  92. +               lp1 = lforw(lp1);
  93. +         }
  94. + #endif
  95. + 
  96.           while (n-- && lp!=curbp->b_linep)
  97.                   lp = lforw(lp);
  98.           curwp->w_linep = lp;
  99. ! 
  100. ! #if   KEEPPOS
  101. !         while (currow-- && lp!=curbp->b_linep) lp = lforw(lp);
  102. !         curwp->w_doto = getgoal(lp);
  103. ! #else
  104.           curwp->w_doto  = 0;
  105. + #endif
  106. + 
  107. +         curwp->w_dotp  = lp;
  108.           curwp->w_flag |= WFHARD;
  109.           return(TRUE);
  110.   }
  111. ***************
  112. *** 470,475 ****
  113. --- 534,544 ----
  114.   {
  115.           register LINE   *lp;
  116.   
  117. + #if   KEEPPOS
  118. +         int     currow;
  119. +         register LINE   *lp1;
  120. + #endif
  121. + 
  122.           if (f == FALSE) {
  123.                   n = curwp->w_ntrows - 2;        /* Default scroll.      */
  124.                   if (n <= 0)                     /* Don't blow up if the */
  125. ***************
  126. *** 477,487 ****
  127.           } else if (n < 0)
  128.                   return(forwpage(f, -n));
  129.           lp = curwp->w_linep;
  130.           while (n-- && lback(lp)!=curbp->b_linep)
  131.                   lp = lback(lp);
  132.           curwp->w_linep = lp;
  133. !         curwp->w_dotp  = lp;
  134.           curwp->w_doto  = 0;
  135.           curwp->w_flag |= WFHARD;
  136.           return(TRUE);
  137.   }
  138. --- 546,577 ----
  139.           } else if (n < 0)
  140.                   return(forwpage(f, -n));
  141.           lp = curwp->w_linep;
  142. + 
  143. + #if   KEEPPOS
  144. +         if ((lastflag&CFCPCN) == 0)
  145. +                 curgoal = getccol(FALSE);
  146. +         /* flag this command as a line move */
  147. +         thisflag |= CFCPCN;
  148. +         lp1 = lp;
  149. +         currow = 0;
  150. +         while (lp1 != curwp->w_dotp ) {
  151. +               currow++;
  152. +               lp1 = lforw(lp1);
  153. +         }
  154. + #endif
  155. + 
  156.           while (n-- && lback(lp)!=curbp->b_linep)
  157.                   lp = lback(lp);
  158.           curwp->w_linep = lp;
  159. ! 
  160. ! #if   KEEPPOS
  161. !         while (currow-- && lp!=curbp->b_linep) lp = lforw(lp);
  162. !         curwp->w_doto = getgoal(lp);
  163. ! #else
  164.           curwp->w_doto  = 0;
  165. + #endif
  166. + 
  167. +         curwp->w_dotp  = lp;
  168.           curwp->w_flag |= WFHARD;
  169.           return(TRUE);
  170.   }
  171. diff -cbr src-orig/bind.c src/bind.c
  172. *** src-orig/bind.c    Mon Dec 16 11:42:16 1991
  173. --- src/bind.c    Sun Dec 22 16:19:00 1991
  174. ***************
  175. *** 772,777 ****
  176. --- 772,782 ----
  177.   
  178.       c = c & 255;    /* strip the prefixes */
  179.   
  180. +         if ((c & 255) == 127) {
  181. +                 *ptr++ = '^';
  182. +                 c = '?';
  183. +         }
  184. + 
  185.       /* and output the final sequence */
  186.   
  187.       *ptr++ = c;
  188. ***************
  189. *** 938,944 ****
  190.       if (*keyname == '^' && *(keyname+1) != 0) {
  191.           c |= CTRL;
  192.           ++keyname;
  193. !         uppercase(keyname);
  194.       }
  195.   
  196.       /* A literal control character? (Boo, hiss) */
  197. --- 943,949 ----
  198.       if (*keyname == '^' && *(keyname+1) != 0) {
  199.           c |= CTRL;
  200.           ++keyname;
  201. !         /* uppercase(keyname); */
  202.       }
  203.   
  204.       /* A literal control character? (Boo, hiss) */
  205. diff -cbr src-orig/char.c src/char.c
  206. *** src-orig/char.c    Mon Dec 16 11:42:16 1991
  207. --- src/char.c    Sun Dec 22 16:19:00 1991
  208. ***************
  209. *** 139,145 ****
  210.           upcase[index ^ DIFCASE] = index;
  211.       }
  212.   
  213. ! #if    MSDOS
  214.       /* setup various extended IBM-PC characters */
  215.       upcase[0x80]  = 0x87;    /* C with a cedilla */
  216.       lowcase[0x81] = 0x9a;    /* U with an umlaut */
  217. --- 139,145 ----
  218.           upcase[index ^ DIFCASE] = index;
  219.       }
  220.   
  221. ! #if     MSDOS | OS2
  222.       /* setup various extended IBM-PC characters */
  223.       upcase[0x80]  = 0x87;    /* C with a cedilla */
  224.       lowcase[0x81] = 0x9a;    /* U with an umlaut */
  225. diff -cbr src-orig/display.c src/display.c
  226. *** src-orig/display.c    Mon Dec 16 11:42:16 1991
  227. --- src/display.c    Sun Dec 22 16:19:02 1991
  228. ***************
  229. *** 885,891 ****
  230. --- 885,897 ----
  231.           || req || rev
  232.   #endif
  233.               ) {
  234. + #if     OS2NPM
  235. +             ttrow = row;  /* special optimization */
  236. +                 ttcol = 0;
  237. +                 os2vmove(row, 0);       /* Go to start of line. */
  238. + #else
  239.           movecursor(row, 0);    /* Go to start of line. */
  240. + #endif
  241.           /* set rev video if needed */
  242.           if (rev != req)
  243.               (*term.t_rev)(req);
  244. ***************
  245. *** 979,985 ****
  246. --- 985,997 ----
  247.       }
  248.   
  249.       /* move to the begining of the text to update */
  250. + #if     OS2NPM
  251. +         ttrow = row;  /* special optimization */
  252. +         ttcol = upcol;
  253. +         os2vmove(row, upcol);       /* Go to start of line. */
  254. + #else
  255.       movecursor(row, upcol);
  256. + #endif
  257.   
  258.   #if    REVSTA
  259.       if (rev)
  260. diff -cbr src-orig/dolock.c src/dolock.c
  261. *** src-orig/dolock.c    Mon Dec 16 11:42:16 1991
  262. --- src/dolock.c    Sun Dec 22 16:19:02 1991
  263. ***************
  264. *** 71,79 ****
  265. --- 71,81 ----
  266.   #if    ZTC
  267.   extern volatile int errno;
  268.   #else
  269. + #if     MSC == 0
  270.   extern int errno;
  271.   #endif
  272.   #endif
  273. + #endif
  274.   
  275.   #define LOCKDIR "_xlk"
  276.   #define LOCKMSG "LOCK ERROR -- "
  277. diff -cbr src-orig/edef.h src/edef.h
  278. *** src-orig/edef.h    Mon Dec 16 11:44:30 1991
  279. --- src/edef.h    Sun Dec 22 16:19:22 1991
  280. ***************
  281. *** 27,33 ****
  282.   NOSHARE int DNEAR eolexist = TRUE;    /* does clear to EOL exist?    */
  283.   NOSHARE int DNEAR revexist = FALSE;    /* does reverse video exist?    */
  284.   NOSHARE int DNEAR exec_error = FALSE;    /* macro execution error pending? */
  285. ! NOSHARE int DNEAR flickcode = TRUE;    /* do flicker supression?    */
  286.   CONST char *modename[] = {         /* name of modes        */
  287.       "WRAP", "CMODE", "SPELL", "EXACT", "VIEW", "OVER",
  288.       "MAGIC", "CRYPT", "ASAVE", "REP"};
  289. --- 27,33 ----
  290.   NOSHARE int DNEAR eolexist = TRUE;    /* does clear to EOL exist?    */
  291.   NOSHARE int DNEAR revexist = FALSE;    /* does reverse video exist?    */
  292.   NOSHARE int DNEAR exec_error = FALSE;    /* macro execution error pending? */
  293. ! NOSHARE int DNEAR flickcode = FALSE;    /* do flicker supression?    */
  294.   CONST char *modename[] = {         /* name of modes        */
  295.       "WRAP", "CMODE", "SPELL", "EXACT", "VIEW", "OVER",
  296.       "MAGIC", "CRYPT", "ASAVE", "REP"};
  297. ***************
  298. *** 93,98 ****
  299. --- 93,101 ----
  300.   NOSHARE int DNEAR kbdmode = STOP;    /* current keyboard macro mode    */
  301.   NOSHARE int DNEAR kbdrep = 0;        /* number of repetitions    */
  302.   NOSHARE int DNEAR restflag = FALSE;    /* restricted use?        */
  303. + #ifdef    BACKUP
  304. + NOSHARE    int DNEAR bakfile = TRUE;    /* save the bakfile        */
  305. + #endif
  306.   NOSHARE int DNEAR lastkey = 0;        /* last keystoke        */
  307.   NOSHARE int DNEAR seed = 0;        /* random number seed        */
  308.   NOSHARE long envram = 0l;        /* # of bytes current in use by malloc */
  309. ***************
  310. *** 277,282 ****
  311. --- 280,288 ----
  312.   NOSHARE extern int kbdmode;        /* current keyboard macro mode    */
  313.   NOSHARE extern int kbdrep;        /* number of repetitions    */
  314.   NOSHARE extern int restflag;        /* restricted use?        */
  315. + #ifdef    BACKUP
  316. + NOSHARE    extern    int bakfile;        /* save the bakfile        */
  317. + #endif
  318.   NOSHARE extern int lastkey;        /* last keystoke        */
  319.   NOSHARE extern int seed;        /* random number seed        */
  320.   NOSHARE extern long envram;        /* # of bytes current in use by malloc */
  321. diff -cbr src-orig/efunc.h src/efunc.h
  322. *** src-orig/efunc.h    Mon Dec 16 11:44:30 1991
  323. --- src/efunc.h    Sun Dec 22 16:19:22 1991
  324. ***************
  325. *** 27,32 ****
  326. --- 27,35 ----
  327.       {"begin-macro",            ctlxlp},
  328.       {"beginning-of-file",        gotobob},
  329.       {"beginning-of-line",        gotobol},
  330. + #if    KEEPPOS
  331. +     {"beginning-of-screen",        gotobos},
  332. + #endif
  333.       {"bind-to-key",            bindtokey},
  334.       {"buffer-position",        showcpos},
  335.       {"case-region-lower",        lowerregion},
  336. ***************
  337. *** 39,44 ****
  338. --- 42,50 ----
  339.       {"change-screen-row",        new_row_org},
  340.       {"change-screen-size",        newsize},
  341.       {"change-screen-width",        newwidth},
  342. + #if    CHDIR
  343. +     {"change-working-directory",    changedir},
  344. + #endif
  345.       {"clear-and-redraw",        refresh},
  346.       {"clear-message-line",        clrmes},
  347.       {"copy-region",            copyregion},
  348. ***************
  349. *** 48,53 ****
  350. --- 54,60 ----
  351.       {"delete-blank-lines",        deblank},
  352.       {"delete-buffer",        killbuffer},
  353.       {"delete-global-mode",        delgmode},
  354. +     {"delete-line",            delline},
  355.       {"delete-mode",            delmode},
  356.       {"delete-next-character",    forwdel},
  357.       {"delete-next-word",        delfword},
  358. ***************
  359. *** 72,77 ****
  360. --- 79,87 ----
  361.       {"end-macro",            ctlxrp},
  362.       {"end-of-file",            gotoeob},
  363.       {"end-of-line",            gotoeol},
  364. + #ifdef    KEEPPOS
  365. +     {"end-of-screen",        gotoeos},
  366. + #endif
  367.       {"end-of-word",            endword},
  368.       {"entab-line",            entab},
  369.       {"entab-region",        entab},
  370. ***************
  371. *** 227,232 ****
  372. --- 237,243 ----
  373.   #if    CTAGS
  374.       {"tag-word",            tagword},
  375.   #endif
  376. +     {"toggle-over-mode",        toggleovermode},
  377.       {"transpose-characters",    twiddle},
  378.       {"trim-line",            trim},
  379.       {"trim-region",            trim},
  380. diff -cbr src-orig/epath.h src/epath.h
  381. *** src-orig/epath.h    Mon Dec 16 11:44:30 1991
  382. --- src/epath.h    Sun Dec 22 16:19:24 1991
  383. ***************
  384. *** 44,54 ****
  385.   
  386.   #if    MSDOS
  387.   {
  388. !     "emacs.rc",
  389. !     "emacs.hlp",
  390. !     "\\sys\\public\\",
  391. !     "\\usr\\bin\\",
  392. !     "\\bin\\",
  393.       "\\",
  394.       ""
  395.   };
  396. --- 44,54 ----
  397.   
  398.   #if    MSDOS
  399.   {
  400. !     "me.rc",
  401. !     "me.hlp",
  402. !      "c:\\bin\\",
  403. !         "c:\\etc\\",
  404. !     "c:\\",
  405.       "\\",
  406.       ""
  407.   };
  408. ***************
  409. *** 56,67 ****
  410.   
  411.   #if OS2
  412.   {
  413. !         "emacs.rc",
  414. !         "emacs.hlp",
  415. !         "C:\\OS2\\SYSTEM\\",
  416. !         "C:\\OS2\\DLL\\",
  417. !         "C:\\OS2\\BIN\\",
  418. !         "C:\\OS2\\",
  419.           "\\",
  420.           ""
  421.   };
  422. --- 56,67 ----
  423.   
  424.   #if OS2
  425.   {
  426. !         "me.rc",
  427. !         "me.hlp",
  428. !      "c:\\bin\\",
  429. !         "c:\\etc\\",
  430. !         "c:\\os2\\",
  431. !     "c:\\",
  432.           "\\",
  433.           ""
  434.   };
  435. ***************
  436. *** 71,78 ****
  437.   {
  438.       ".emacsrc",
  439.       "emacs.hlp",
  440. -     "/usr/local/",
  441.       "/usr/lib/",
  442.       ""
  443.   };
  444.   #endif
  445. --- 71,80 ----
  446.   {
  447.       ".emacsrc",
  448.       "emacs.hlp",
  449.       "/usr/lib/",
  450. +     "/usr/local/",
  451. +     "/usr/local/lib/",
  452. +     "/usr/local/lib/emacs/",
  453.       ""
  454.   };
  455.   #endif
  456. diff -cbr src-orig/eproto.h src/eproto.h
  457. *** src-orig/eproto.h    Mon Dec 16 11:44:30 1991
  458. --- src/eproto.h    Sun Dec 22 16:19:26 1991
  459. ***************
  460. *** 284,289 ****
  461. --- 284,290 ----
  462.   extern PASCAL NEAR forwpage(int f, int n);
  463.   extern PASCAL NEAR forwword(int f, int n);
  464.   extern PASCAL NEAR freewhile(WHBLOCK *wp);
  465. + extern PASCAL NEAR getbackupname(char *backup, char *file);
  466.   extern PASCAL NEAR getccol(int bflg);
  467.   extern PASCAL NEAR getcmd(void);
  468.   extern PASCAL NEAR getfence(int f, int n);
  469. ***************
  470. *** 336,341 ****
  471. --- 337,343 ----
  472.   extern PASCAL NEAR lowrite(char c);
  473.   extern PASCAL NEAR macarg(char *tok);
  474.   extern PASCAL NEAR macrotokey(int f, int n);
  475. + extern PASCAL NEAR makebackup(char *filename);
  476.   extern PASCAL NEAR makelist(int iflag);
  477.   extern PASCAL NEAR mouse_screen(void);
  478.   extern PASCAL NEAR screenlist(int iflag);
  479. ***************
  480. *** 488,501 ****
  481.   extern int PASCAL NEAR backtagword(int f, int n); /* return from tagged word */
  482.   #endif
  483.   
  484.   /* some library redefinitions */
  485.   
  486.   char *strcat(char *, char *);
  487.   char *strcpy(char *, char *);
  488.   #if RAMSIZE == 0
  489. ! char *malloc(int);
  490.   #endif
  491. ! char *realloc(char *block, int siz);
  492.   
  493.   #else
  494.   
  495. --- 490,515 ----
  496.   extern int PASCAL NEAR backtagword(int f, int n); /* return from tagged word */
  497.   #endif
  498.   
  499. + extern PASCAL    NEAR    toggleovermode(int f, int n);
  500. + extern PASCAL    NEAR    delline(int f, int n);
  501. +   
  502. + #if    KEEPPOS
  503. + extern PASCAL NEAR    gotobos(int f, int n);    /* goto beginning of screen */
  504. + extern PASCAL NEAR    gotoeos(int f, int n);    /* goto end of screen */
  505. + #endif
  506. + 
  507. + #if    CHDIR
  508. + extern PASCAL NEAR changedir(int f, int n);
  509. + #endif
  510. + 
  511.   /* some library redefinitions */
  512.   
  513.   char *strcat(char *, char *);
  514.   char *strcpy(char *, char *);
  515.   #if RAMSIZE == 0
  516. ! void *malloc(size_t);
  517.   #endif
  518. ! void *realloc(void *block, size_t siz);
  519.   
  520.   #else
  521.   
  522. ***************
  523. *** 766,771 ****
  524. --- 780,786 ----
  525.   extern PASCAL NEAR forwpage();
  526.   extern PASCAL NEAR forwword();
  527.   extern PASCAL NEAR freewhile();
  528. + extern PASCAL NEAR getbackupname();
  529.   extern PASCAL NEAR getccol();
  530.   extern PASCAL NEAR getcmd();
  531.   extern PASCAL NEAR getfence();
  532. ***************
  533. *** 819,824 ****
  534. --- 834,840 ----
  535.   extern PASCAL NEAR lowrite();
  536.   extern PASCAL NEAR macarg();
  537.   extern PASCAL NEAR macrotokey();
  538. + extern PASCAL NEAR makebackup();
  539.   extern PASCAL NEAR makelist();
  540.   extern PASCAL NEAR mouse_screen();
  541.   extern PASCAL NEAR screenlist();
  542. ***************
  543. *** 969,974 ****
  544. --- 985,1002 ----
  545.   extern int PASCAL NEAR tagword();    /* vi-like tagging */
  546.   extern int PASCAL NEAR retagword();    /* Try again (if redefined) */
  547.   extern int PASCAL NEAR backtagword();    /* return from tagged word */
  548. + #endif
  549. + 
  550. + extern PASCAL    NEAR    toggleovermode();
  551. + extern PASCAL    NEAR    delline();
  552. +   
  553. + #if    KEEPPOS
  554. + extern PASCAL NEAR    gotobos();        /* goto beginning of screen */
  555. + extern PASCAL NEAR    gotoeos();        /* goto end of screen */
  556. + #endif
  557. + 
  558. + #if    CHDIR
  559. + extern PASCAL NEAR changedir();
  560.   #endif
  561.   
  562.   /* some library redefinitions */
  563. diff -cbr src-orig/estruct.h src/estruct.h
  564. *** src-orig/estruct.h    Mon Dec 16 11:44:32 1991
  565. --- src/estruct.h    Sun Dec 22 14:42:36 1991
  566. ***************
  567. *** 146,162 ****
  568.   #define REVSTA    1    /* Status line appears in reverse video     */
  569.   #define    COLOR    1    /* color commands and windows            */
  570.   
  571. ! #define FILOCK    1    /* file locking under unix BSD 4.2        */
  572.   #define    ISRCH    1    /* Incremental searches like ITS EMACS        */
  573. ! #define    FLABEL    1    /* function key label code [HP150]        */
  574.   #define    CRYPT    1    /* file encryption enabled?            */
  575.   #define MAGIC    1    /* include regular expression matching?        */
  576.   #define MOUSE    1     /* Include routines for mouse actions        */
  577.   #define    NOISY    1    /* Use a fancy BELL if it exists        */
  578. ! #define CTAGS    0    /* include vi-like tagging?            */
  579.   #define    SPEECH    0    /* spoken EMACS, for the sight impared [not ready] */
  580.   #define    VARARG    1    /* use varargs.h for mlwrite()            */
  581.   
  582.   /*    Character set options        */
  583.   /*    [Set one of these!!]        */
  584.   #define ASCII    1    /* always using ASCII char sequences for now    */
  585. --- 146,167 ----
  586.   #define REVSTA    1    /* Status line appears in reverse video     */
  587.   #define    COLOR    1    /* color commands and windows            */
  588.   
  589. ! #define FILOCK    0    /* file locking under unix BSD 4.2        */
  590.   #define    ISRCH    1    /* Incremental searches like ITS EMACS        */
  591. ! #define    FLABEL    0    /* function key label code [HP150]        */
  592.   #define    CRYPT    1    /* file encryption enabled?            */
  593.   #define MAGIC    1    /* include regular expression matching?        */
  594.   #define MOUSE    1     /* Include routines for mouse actions        */
  595.   #define    NOISY    1    /* Use a fancy BELL if it exists        */
  596. ! #define CTAGS    1    /* include vi-like tagging?            */
  597.   #define    SPEECH    0    /* spoken EMACS, for the sight impared [not ready] */
  598.   #define    VARARG    1    /* use varargs.h for mlwrite()            */
  599.   
  600. + #define BACKUP    0    /* retain original file as backup (MSDOS, UNIX) */
  601. + #define    SOFTAB    1    /* in OVER mode, are tabs and returns soft?    */
  602. + #define    KEEPPOS    1    /* Maintain cursor position when paging        */
  603. + #define CHDIR   1    /* code for changing working directory        */
  604. + 
  605.   /*    Character set options        */
  606.   /*    [Set one of these!!]        */
  607.   #define ASCII    1    /* always using ASCII char sequences for now    */
  608. ***************
  609. *** 222,228 ****
  610.   #if MSDOS & (TURBO | MSC | TIPC)
  611.   #define    NEAR
  612.   #define    DNEAR
  613. ! #define    PASCAL pascal
  614.   #define    CDECL cdecl
  615.   #else
  616.   #if MSDOS & ZTC
  617. --- 227,233 ----
  618.   #if MSDOS & (TURBO | MSC | TIPC)
  619.   #define    NEAR
  620.   #define    DNEAR
  621. ! #define    PASCAL /* pascal */
  622.   #define    CDECL cdecl
  623.   #else
  624.   #if MSDOS & ZTC
  625. ***************
  626. *** 397,403 ****
  627.   /*    internal constants    */
  628.   
  629.   #define NBINDS    300            /* max # of bound keys        */
  630. ! #if    AOSVS | VMS
  631.   #define    NFILEN    256
  632.   #else
  633.   #define NFILEN    80            /* # of bytes, file name    */
  634. --- 402,408 ----
  635.   /*    internal constants    */
  636.   
  637.   #define NBINDS    300            /* max # of bound keys        */
  638. ! #if    AOSVS | VMS | OS2
  639.   #define    NFILEN    256
  640.   #else
  641.   #define NFILEN    80            /* # of bytes, file name    */
  642. ***************
  643. *** 655,660 ****
  644. --- 660,668 ----
  645.       char    b_bname[NBUFN];     /* Buffer name            */
  646.   #if    CRYPT
  647.       char   b_key[NPAT];           /* current encrypted key        */
  648. + #endif
  649. + #if    BACKUP                               /* -- ZU */
  650. +     short    b_bupflg;        /* true if file was backed up    */
  651.   #endif
  652.   }    BUFFER;
  653.   
  654. diff -cbr src-orig/file.c src/file.c
  655. *** src-orig/file.c    Mon Dec 16 11:42:18 1991
  656. --- src/file.c    Sun Dec 22 16:37:44 1991
  657. ***************
  658. *** 11,18 ****
  659.   #include    "eproto.h"
  660.   #include    "edef.h"
  661.   #include    "elang.h"
  662. ! #if    BSD | SUN | V7
  663.   #include    <sys/types.h>
  664.   #include    <sys/stat.h>
  665.   #endif
  666.   
  667. --- 11,19 ----
  668.   #include    "eproto.h"
  669.   #include    "edef.h"
  670.   #include    "elang.h"
  671. ! #if     V7 | USG | HPUX | BSD | SUN | XENIX | MSDOS | OS2
  672.   #include    <sys/types.h>
  673. + #undef CDECL
  674.   #include    <sys/stat.h>
  675.   #endif
  676.   
  677. ***************
  678. *** 176,182 ****
  679.       register int cmark;    /* current mark */
  680.       char bname[NBUFN];    /* buffer name to put file */
  681.   
  682. ! #if    MSDOS | OS2 | AOSVS | VMS | TOS
  683.       mklower(fname);            /* msdos isn't case sensitive */
  684.   #endif
  685.       for (bp=bheadp; bp!=NULL; bp=bp->b_bufp) {
  686. --- 177,183 ----
  687.       register int cmark;    /* current mark */
  688.       char bname[NBUFN];    /* buffer name to put file */
  689.   
  690. ! #if    MSDOS | _OS2 | AOSVS | VMS | TOS
  691.       mklower(fname);            /* msdos isn't case sensitive */
  692.   #endif
  693.       for (bp=bheadp; bp!=NULL; bp=bp->b_bufp) {
  694. ***************
  695. *** 262,267 ****
  696. --- 263,271 ----
  697.       if ((s=bclear(bp)) != TRUE)        /* Might be old.    */
  698.           return(s);
  699.       bp->b_flag &= ~(BFINVS|BFCHG);
  700. + #if    BACKUP
  701. +     curbp->b_bupflg = FALSE;        /* no backup file yet    */
  702. + #endif
  703.       strcpy(bp->b_fname, fname);
  704.   
  705.       /* let a user macro get hold of things...if he wants */
  706. ***************
  707. *** 465,470 ****
  708. --- 469,477 ----
  709.       if ((s=writeout(fname, "w")) == TRUE) {
  710.           strcpy(curbp->b_fname, fname);
  711.           curbp->b_flag &= ~BFCHG;
  712. + #if    BACKUP
  713. +         curbp->b_bupflg = TRUE;
  714. + #endif
  715.           /* Update mode lines.    */
  716.           upmode();
  717.       }
  718. ***************
  719. *** 486,491 ****
  720. --- 493,501 ----
  721.           return(s);
  722.       if ((s=writeout(fname, "a")) == TRUE) {
  723.           curbp->b_flag &= ~BFCHG;
  724. + #if    BACKUP
  725. +         curbp->b_bupflg = TRUE;
  726. + #endif
  727.           /* Update mode lines.    */
  728.           upmode();
  729.       }
  730. ***************
  731. *** 549,555 ****
  732.    * This function performs the details of file writing. It uses
  733.    * the file management routines in the "fileio.c" package. The
  734.    * number of lines written is displayed. Several errors are
  735. !  * posible, and cause writeout to return a FALSE result. When
  736.    * $ssave is TRUE,  the buffer is written out to a temporary
  737.    * file, and then the old file is unlinked and the temporary
  738.    * renamed to the original name.  Before the file is written,
  739. --- 559,565 ----
  740.    * This function performs the details of file writing. It uses
  741.    * the file management routines in the "fileio.c" package. The
  742.    * number of lines written is displayed. Several errors are
  743. !  * possible, and cause writeout to return a FALSE result. When
  744.    * $ssave is TRUE,  the buffer is written out to a temporary
  745.    * file, and then the old file is unlinked and the temporary
  746.    * renamed to the original name.  Before the file is written,
  747. ***************
  748. *** 654,662 ****
  749.   #endif
  750.               /* erase original file */
  751.               /* rename temporary file to original name */
  752.               if (unlink(fn) == 0 && rename(tname, fn) == 0) {
  753. ! #if    BSD | SUN | V7
  754. !                 chmod(fn, (int)st.st_uid, (int)st.st_gid);
  755.                   chmod(fn, (int)st.st_mode);
  756.   #else
  757.                   ;
  758. --- 664,676 ----
  759.   #endif
  760.               /* erase original file */
  761.               /* rename temporary file to original name */
  762. + #if    BACKUP
  763. +             if (makebackup(fn) == TRUE && rename(tname, fn) == 0) {
  764. + #else
  765.               if (unlink(fn) == 0 && rename(tname, fn) == 0) {
  766. ! #endif
  767. ! #if    V7 | USG | HPUX | BSD | SUN | XENIX
  768. !                 chown(fn, (int)st.st_uid, (int)st.st_gid);
  769.                   chmod(fn, (int)st.st_mode);
  770.   #else
  771.                   ;
  772. ***************
  773. *** 870,872 ****
  774. --- 884,1018 ----
  775.       return(TRUE);
  776.   }
  777.   
  778. +                                    /* -- ZU */
  779. + /* Make a backup file.
  780. +  * This is done by renaming the original file to a new name.
  781. +  * The name of the backup file is defined as follows:
  782. +  *
  783. +  * MSDOS: The base file name remains untouched, the extension has a tilde (~)
  784. +  *      as its first character and the other characters moved one place
  785. +  *      to the right.
  786. +  * UNIX:  The first character is a '#'. The rest of the name is moved one
  787. +  *      place to the right. The length of the filename may not exceed 14
  788. +  *      characters (for BSD the limit is 255).
  789. +  *
  790. +  * No other operating system supported by now.
  791. +  */
  792. + #if    BACKUP
  793. + 
  794. + PASCAL NEAR makebackup( filename )
  795. + char    *filename;
  796. + {
  797. +     char    backupname[NFILEN];
  798. + #if     MSDOS | OS2 | V7 | USG | HPUX | BSD | SUN | XENIX
  799. +     if ( curbp->b_bupflg ||            /* already backed up  */
  800. +          !bakfile                /* no backup file wanted */
  801. +                 ) {
  802. +         if( unlink( filename ) == 0 )
  803. +             return( TRUE );
  804. +         else
  805. +             return( FALSE );
  806. +     }
  807. + 
  808. +     getbackupname( backupname, filename );
  809. + 
  810. +     if( !fexist( filename ))        /* no original file - */
  811. +         return( TRUE );            /* nothing to backup  */
  812. + 
  813. +     if( fexist( backupname ))
  814. +         if( unlink( backupname ))    /* file is readonly */
  815. +             return( FALSE );
  816. + 
  817. +     if( rename( filename, backupname ) != 0 )
  818. +         return( FALSE );
  819. + 
  820. +     return( TRUE );
  821. + #else            /* for all other operating systems return fail */
  822. +     return( FALSE );
  823. + #endif    /* MSDOS | V7 | USG | HPUX | BSD | SUN | XENIX */
  824. + }
  825. + 
  826. + /* Make the name of the backup file according to the original file name
  827. +  * This routines knows about the filename possibilities of the different
  828. +  * operating systems.
  829. +  */
  830. + PASCAL NEAR getbackupname( backup, file )
  831. + char    *backup;
  832. + char    *file;
  833. + {
  834. +     char    temp[NFILEN];
  835. +     int    index;
  836. +     char    *dotpos;
  837. + 
  838. +     strcpy( backup, file );
  839. + #if     MSDOS | OS2
  840. +     for( index = strlen( backup ) -1; index >= 0 && backup[index] != '.';
  841. +                                 index-- )
  842. +         ;
  843. +     if( index < 0 )
  844. +         strcat( backup, ".~" );
  845. +     else {
  846. +         strcpy( temp, &backup[index +1] );
  847. +         backup[index +1] = '~';    /* first char of new extension    */
  848. +         temp[2] = '\0';        /* extension is at most 3 chars    */
  849. +         strcpy( &backup[index +2], temp );
  850. +     }
  851. + #endif    /* MSDOS */
  852. + 
  853. + #if    V7 | USG | HPUX | BSD | SUN | XENIX
  854. + /*    strcpy( temp, "#" ); */
  855. +     *temp = 0;
  856. +     for( index = strlen( backup ) -1; index >= 0 && backup[index] != '/';
  857. +                                 index-- )
  858. +         ;
  859. +     if( index >= 0 )
  860. +             strcat( temp, &backup[index +1] );
  861. +     else
  862. +         strncat( temp, backup, NFILEN -1 );
  863. + 
  864. + #if    BSD    /* BSD allows filenames    up to 255 characters    */
  865. + #if    NFILEN < 255
  866. +     if( strlen( temp ) > NFILEN )
  867. +         temp[NFILEN] = '\0';
  868. + #else
  869. +     if( strlen( temp ) > 254 )
  870. +         temp[255] = '\0';
  871. + #endif
  872. + #else        /* other Unixes allow only 14 characters    */
  873. +     if( strlen( temp ) > 12 )
  874. +         temp[ 13] = '\0';
  875. + #endif
  876. +     strcat(temp,"-");
  877. +     if( index >= 0 )
  878. +         strncpy( &backup[index +1], temp, NFILEN - strlen( backup ) -1 );
  879. +     else
  880. +         strncpy( backup, temp, NFILEN - strlen( backup ) -1 );
  881. + #endif    /* V7 | USG | HPUX | BSD | SUN | XENIX */
  882. + }
  883. + 
  884. + #endif    /* BACKUP */
  885. + 
  886. + #if    CHDIR
  887. + /*
  888. +  * Change current working directory
  889. +  */
  890. + PASCAL NEAR changedir(f, n)
  891. + int f, n;
  892. + {
  893. +     char buf[NSTRING + 32];    /* message buffer */
  894. +     char *fname;    /* file user wishes to find */    /* file name */
  895. +     register int s;        /* status return */
  896. + 
  897. +     if (restflag)        /* don't allow this command if restricted */
  898. +         return(resterr());
  899. + 
  900. +     if ((fname = gtfilename("New directory")) != NULL)
  901. +         changecwd(fname);
  902. + 
  903. +     strcpy(buf, "Current directory = ");
  904. +     getcwd(buf + 20, NSTRING);
  905. +     mlwrite(buf);
  906. + 
  907. +     return(TRUE);
  908. + }
  909. + #endif
  910. diff -cbr src-orig/ibmpc.c src/ibmpc.c
  911. *** src-orig/ibmpc.c    Mon Dec 16 11:42:18 1991
  912. --- src/ibmpc.c    Sun Dec 22 16:19:06 1991
  913. ***************
  914. *** 14,21 ****
  915.   #include    "elang.h"
  916.   
  917.   #if     IBMPC
  918. ! #define NROW    50            /* Max Screen size.        */
  919. ! #define NCOL    80                      /* Edit if you want to.         */
  920.   #define    MARGIN    8            /* size of minimim margin and    */
  921.   #define    SCRSIZ    64            /* scroll size for extended lines */
  922.   #define    NPAUSE    200            /* # times thru update to pause */
  923. --- 14,21 ----
  924.   #include    "elang.h"
  925.   
  926.   #if     IBMPC
  927. ! #define NROW    80                      /* Max Screen size.             */
  928. ! #define NCOL    140                     /* Edit if you want to.         */
  929.   #define    MARGIN    8            /* size of minimim margin and    */
  930.   #define    SCRSIZ    64            /* scroll size for extended lines */
  931.   #define    NPAUSE    200            /* # times thru update to pause */
  932. ***************
  933. *** 419,432 ****
  934. --- 419,442 ----
  935.       ttclose();
  936.   }
  937.   
  938. + static CtrlC_State;                           /* -- ZU */
  939.   PASCAL NEAR ibmkopen()    /* open the keyboard */
  940.   
  941.   {
  942. +     rg.x.ax = 0x3300;                       /* -- ZU */
  943. +     intdos( &rg, &rg );                       /*     . */
  944. +     CtrlC_State = rg.h.dl;                       /* -- UZ */
  945. +       rg.x.ax = 0x3301;
  946. +       rg.h.dl = 0x00;
  947. +       intdos(&rg, &rg);
  948.   }
  949.   
  950.   PASCAL NEAR ibmkclose() /* close the keyboard */
  951.   
  952.   {
  953. +     rg.x.ax = 0x3301;                       /* -- ZU */
  954. +     rg.h.dl = CtrlC_State;                       /*     . */
  955. +     intdos(&rg, &rg);                       /* -- UZ */
  956.   }
  957.   
  958.   PASCAL NEAR scinit(type) /* initialize the screen head pointers */
  959. diff -cbr src-orig/input.c src/input.c
  960. *** src-orig/input.c    Mon Dec 16 11:42:20 1991
  961. --- src/input.c    Sun Dec 22 17:05:42 1991
  962. ***************
  963. *** 46,51 ****
  964. --- 46,60 ----
  965.   #include    "edef.h"
  966.   #include    "elang.h"
  967.   
  968. + #if USG | BSD | V7
  969. + #include    <sys/types.h>
  970. + #include    <pwd.h>
  971. + extern    struct passwd *getpwnam();
  972. + #if USG
  973. + #define    index    strchr
  974. + #endif
  975. + #endif
  976. + 
  977.   /*
  978.    * Ask a yes or no question in the message line. Return either TRUE, FALSE, or
  979.    * ABORT. The ABORT status is returned if the user bumps out of the question
  980. ***************
  981. *** 218,223 ****
  982. --- 227,236 ----
  983.       register int ec;    /* extended input character */
  984.       int cpos;        /* current column on screen output */
  985.       static char buf[NSTRING];/* buffer to hold tentative name */
  986. + #if USG | BSD | V7 | XENIX
  987. +     char *home;
  988. +     struct passwd *pwd;
  989. + #endif
  990.   
  991.       /* if we are executing a command line get the next arg and match it */
  992.       if (clexec) {
  993. ***************
  994. *** 296,303 ****
  995.               TTflush();
  996.               if (buf[cpos - 1] == 0)
  997.                   return(buf);
  998.           } else {
  999. !             if (cpos < maxlen && c > ' ') {
  1000.                   buf[cpos++] = c;
  1001.                   mlout(c);
  1002.                   ++ttcol;
  1003. --- 309,383 ----
  1004.               TTflush();
  1005.               if (buf[cpos - 1] == 0)
  1006.                   return(buf);
  1007. + #if USG | BSD | V7 | XENIX
  1008. +         } else if (c == '/' && type == CMP_FILENAME && buf[0] == '~') {
  1009. +             int i;
  1010. +             if (cpos == 1) {
  1011. +                 if (home = (char *)getenv("HOME")) {
  1012. +                     mlout('\b');    /* backup over ~ */
  1013. +                     mlout(' ');
  1014. +                     mlout('\b');
  1015. +                     ttcol--;
  1016. +                     TTflush();
  1017. +                     strcpy(buf, home);
  1018. +                     cpos = strlen(buf);
  1019. +                     if (buf[cpos-1] != '/')
  1020. +                         buf[cpos++] = '/';
  1021. +                     for (i = 0; i < cpos; i++) {
  1022. +                         mlout(buf[i]);
  1023. +                         ttcol++;
  1024. +                     }
  1025. +                     TTflush();
  1026. +                 } else
  1027. +                     goto nextc;
  1028. +             } else {
  1029. +                 buf[cpos] = '\0';
  1030. +                 if (pwd = getpwnam(&buf[1])) {
  1031. +                     while (cpos != 0) {    /* kill    */
  1032. +                         mlout('\b');    /* line    */
  1033. +                         mlout(' ');
  1034. +                         mlout('\b');
  1035. +                         --cpos;
  1036. +                         --ttcol;
  1037. +                     }
  1038. +                     TTflush();
  1039. +                     strcpy(buf, pwd->pw_dir);
  1040. +                     cpos = strlen(buf);
  1041. +                     if (buf[cpos-1] != '/')
  1042. +                         buf[cpos++] = '/';
  1043. +                     for (i = 0; i < cpos; i++) {
  1044. +                         mlout(buf[i]);
  1045. +                         ttcol++;
  1046. +                     }
  1047. +                     TTflush();
  1048. +                 } else
  1049. +                     goto nextc;
  1050. +             }
  1051. +         } else if (c == '/' && type == CMP_FILENAME && buf[0] == '$') {
  1052. +             int i;
  1053. +             buf[cpos] = '\0';
  1054. +             if (home = (char *)getenv(&buf[1])) {
  1055. +                 while (cpos != 0) {    /* kill    */
  1056. +                     mlout('\b');    /* line    */
  1057. +                     mlout(' ');
  1058. +                     mlout('\b');
  1059. +                     --cpos;
  1060. +                     --ttcol;
  1061. +                 }
  1062. +                 TTflush();
  1063. +                 strcpy(buf, home);
  1064. +                 cpos = strlen(buf);
  1065. +                 buf[cpos++] = '/';
  1066. +                 for (i = 0; i < cpos; i++) {
  1067. +                     mlout(buf[i]);
  1068. +                     ttcol++;
  1069. +                 }
  1070. +                 TTflush();
  1071. +             } else
  1072. +                 goto nextc;
  1073. + #endif
  1074.           } else {
  1075. ! nextc:            if (cpos < maxlen && c > ' ') {
  1076.                   buf[cpos++] = c;
  1077.                   mlout(c);
  1078.                   ++ttcol;
  1079. ***************
  1080. *** 482,488 ****
  1081. --- 562,572 ----
  1082.       while (fname) {
  1083.   
  1084.           /* is this a match? */
  1085. + #if    OS2
  1086. +         if (strnicmp(name,fname,*cpos) == 0) {
  1087. + #else
  1088.           if (strncmp(name,fname,*cpos) == 0) {
  1089. + #endif
  1090.   
  1091.               /* count the number of matches */
  1092.               matches++;
  1093. ***************
  1094. *** 515,524 ****
  1095. --- 599,615 ----
  1096.           return;
  1097.       }
  1098.   
  1099. +     while (*cpos != 0) {
  1100. +         mlout('\b');    /* clear the old prefix out, just in case */
  1101. +         (*cpos)--;      /* the case of the name has changed (OS/2) */
  1102. +         ttcol--;
  1103. +     }
  1104. + 
  1105.       /* the longestmatch array contains the longest match so copy and print it */
  1106.       for ( ; (*cpos < (NSTRING-1)) && (*cpos < longestlen); (*cpos)++) {
  1107.           name[*cpos] = longestmatch[*cpos];
  1108.           TTputc(name[*cpos]);
  1109. +                 ttcol++;
  1110.       }
  1111.   
  1112.       name[*cpos] = 0;
  1113. diff -cbr src-orig/keyboard.c src/keyboard.c
  1114. *** src-orig/keyboard.c    Mon Dec 16 11:42:20 1991
  1115. --- src/keyboard.c    Sun Dec 22 16:19:06 1991
  1116. ***************
  1117. *** 74,81 ****
  1118. --- 74,85 ----
  1119.       /* some others as well */
  1120.       switch (c) {
  1121.   
  1122. + case 1:         return(ALTD | CTRL | '[');
  1123.   case 3:        return(0);            /* null */
  1124. + 
  1125.   case 0x0F:    return(SHFT | CTRL | 'I');    /* backtab */
  1126. + case 0x94:      return(SPEC | CTRL | 'I');      /* ctrl tab */
  1127. + case 0xA5:      return(ALTD | CTRL | 'I');      /* alt tab */
  1128.   
  1129.   case 0x10:    return(ALTD | 'Q');
  1130.   case 0x11:    return(ALTD | 'W');
  1131. diff -cbr src-orig/line.c src/line.c
  1132. *** src-orig/line.c    Mon Dec 16 11:42:20 1991
  1133. --- src/line.c    Sun Dec 22 16:19:08 1991
  1134. ***************
  1135. *** 838,843 ****
  1136. --- 838,882 ----
  1137.       return(TRUE);
  1138.   }
  1139.   
  1140. + 
  1141. + /*
  1142. +  * Delete the line the cursor is on
  1143. +  */
  1144. + PASCAL    NEAR    delline(f, n)
  1145. + int f, n;
  1146. + {
  1147. + 
  1148. + /*        Use the lines associated with  i  in order to keep the
  1149. +         cursor in the same column when deleting a line.  If you
  1150. +         comment these lines out then the cursor will revert to
  1151. +         the first column.                    */
  1152. + 
  1153. +  int    i,i1;
  1154. + 
  1155. +     i1 = lastflag;
  1156. +         i = getccol(FALSE);
  1157. +     gotobol(f,n);
  1158. + 
  1159. +     lastflag = thisflag;
  1160. +     thisflag = 0;
  1161. +     setmark(f,n);
  1162. + 
  1163. +     lastflag = thisflag;
  1164. +     thisflag = 0;
  1165. +     forwline(f,n);
  1166. + 
  1167. +     lastflag = i1;        /* This so if several lines are killed at the */
  1168. +     thisflag = 0;        /* same time, they will all go into the same  */
  1169. +     killregion(f, n);    /* kill buffer                      */
  1170. + 
  1171. +     curgoal = i;
  1172. +     curwp->w_doto = getgoal(curwp->w_dotp);
  1173. + 
  1174. +     lastflag = i1;
  1175. +     return(TRUE);
  1176. + }
  1177. + 
  1178. + 
  1179.   /*
  1180.    * Delete all of the text saved in the kill buffer. Called by commands when a
  1181.    * new kill context is being created. The kill buffer array is released, just
  1182. diff -cbr src-orig/main.c src/main.c
  1183. *** src-orig/main.c    Mon Dec 16 11:42:20 1991
  1184. --- src/main.c    Sun Dec 22 16:19:08 1991
  1185. ***************
  1186. *** 218,227 ****
  1187.   #if WMCS
  1188.           if (argv[carg][0] == ':') {
  1189.   #else
  1190. !         if (argv[carg][0] == '-') {
  1191.   #endif
  1192.               switch (argv[carg][1]) {
  1193.                   /* Process Startup macroes */
  1194.                   case 'c':    /* -c for changable file */
  1195.                   case 'C':
  1196.                       viewflag = FALSE;
  1197. --- 218,242 ----
  1198.   #if WMCS
  1199.           if (argv[carg][0] == ':') {
  1200.   #else
  1201. !         if (argv[carg][0] == '-' || argv[carg][0] == '+') {
  1202. !             /*         ^^^^^^^^^^^^^^^^^^^^^^^   */
  1203. !             /*         added by J.Bayer to allow */
  1204. !             /*        compatability with vi       */
  1205.   #endif
  1206. + /* J.Bayer, 9/22/88 */
  1207. +             if  (argv[carg][0] == '+') {    /* + to emulate vi */
  1208. +                     gotoflag = TRUE;
  1209. +                     gline = asc_int(&argv[carg][1]);
  1210. +             } else
  1211.               switch (argv[carg][1]) {
  1212.                   /* Process Startup macroes */
  1213. + #ifdef    BACKUP
  1214. +                         /* J. Bayer    9/22/88 */
  1215. +                 case 'b':    /* -b for no bakfile creation */
  1216. +                 case 'B':
  1217. +                     bakfile = FALSE;
  1218. +                     break;
  1219. + #endif
  1220.                   case 'c':    /* -c for changable file */
  1221.                   case 'C':
  1222.                       viewflag = FALSE;
  1223. ***************
  1224. *** 881,886 ****
  1225. --- 896,902 ----
  1226.       prefix |= META;
  1227.       prenum = n;
  1228.       predef = f;
  1229. +     thisflag = lastflag; /* jbayer */
  1230.       return(TRUE);
  1231.   }
  1232.   
  1233. ***************
  1234. *** 892,897 ****
  1235. --- 908,914 ----
  1236.       prefix |= CTLX;
  1237.       prenum = n;
  1238.       predef = f;
  1239. +     thisflag = lastflag; /* jbayer */
  1240.       return(TRUE);
  1241.   }
  1242.   
  1243. diff -cbr src-orig/mouse.c src/mouse.c
  1244. *** src-orig/mouse.c    Mon Dec 16 11:42:20 1991
  1245. --- src/mouse.c    Sun Dec 22 16:19:10 1991
  1246. ***************
  1247. *** 600,605 ****
  1248. --- 600,607 ----
  1249.   int row;
  1250.   
  1251.   {
  1252. +     if (wp==NULL)
  1253. +         return(FALSE);
  1254.       if (row == wp->w_toprow+wp->w_ntrows && modeflag)
  1255.           return(TRUE);
  1256.       return(FALSE);
  1257. diff -cbr src-orig/msdos.c src/msdos.c
  1258. *** src-orig/msdos.c    Mon Dec 16 11:42:20 1991
  1259. --- src/msdos.c    Sun Dec 22 16:19:12 1991
  1260. ***************
  1261. *** 27,32 ****
  1262. --- 27,33 ----
  1263.   struct ffblk fileblock;    /* structure for directory searches */
  1264.   #endif
  1265.   #if    MSC | ZTC
  1266. + #include <direct.h>
  1267.   #include <dos.h>
  1268.   
  1269.   struct find_t fileblock;    /* structure for directory searches */
  1270. ***************
  1271. *** 42,47 ****
  1272. --- 43,55 ----
  1273.   #include    <process.h>
  1274.   #endif
  1275.   
  1276. + #if     MSC
  1277. + #ifdef SWAPLIB
  1278. + #include <swaplib.h>
  1279. + #define spawnl(m, n1, n2, a, x)  swap_spawnlp(n1, n2, a, x)
  1280. + #endif
  1281. + #endif
  1282. + 
  1283.   /*    Some global variable    */
  1284.   #define INBUFSIZ    40
  1285.   static int mexist;    /* is the mouse driver installed? */
  1286. ***************
  1287. *** 114,120 ****
  1288.   #if    MSC | TURBO | DTL | LATTICE | MWC
  1289.       int86x(0x21, &rg, &rg, &segreg);
  1290.       miaddr = (((long)segreg.es) << 16) + (long)rg.x.bx;
  1291. !     if (miaddr == 0 || *(char * far)miaddr == 0xcf) {
  1292.   #endif
  1293.   #if    ZTC
  1294.       int86x(0x21, &rg, &rg, &segreg);
  1295. --- 122,128 ----
  1296.   #if    MSC | TURBO | DTL | LATTICE | MWC
  1297.       int86x(0x21, &rg, &rg, &segreg);
  1298.       miaddr = (((long)segreg.es) << 16) + (long)rg.x.bx;
  1299. !     if (miaddr == 0 || *(char far *) miaddr == 0xcf) {
  1300.   #endif
  1301.   #if    ZTC
  1302.       int86x(0x21, &rg, &rg, &segreg);
  1303. ***************
  1304. *** 440,449 ****
  1305. --- 448,459 ----
  1306.           movecursor(term.t_nrow, 0);             /* Seek to last line.   */
  1307.           TTflush();
  1308.       TTkclose();
  1309. +     TTclose();                           /* -- ZU */
  1310.       shellprog("");
  1311.   #if    WINDOW_TEXT
  1312.       refresh_screen(first_screen);
  1313.   #endif
  1314. +     TTopen();                           /* -- ZU */
  1315.       TTkopen();
  1316.           sgarbf = TRUE;
  1317.           return(TRUE);
  1318. ***************
  1319. *** 470,476 ****
  1320. --- 480,488 ----
  1321.                   return(s);
  1322.       movecursor(term.t_nrow - 1, 0);
  1323.       TTkclose();
  1324. +     TTclose();
  1325.           shellprog(line);
  1326. +     TTopen();
  1327.       TTkopen();
  1328.   
  1329.       /* if we are interactive, pause here */
  1330. ***************
  1331. *** 493,499 ****
  1332.    */
  1333.   
  1334.   PASCAL NEAR execprg(f, n)
  1335. ! 
  1336.   {
  1337.           register int s;
  1338.           char line[NLINE];
  1339. --- 505,511 ----
  1340.    */
  1341.   
  1342.   PASCAL NEAR execprg(f, n)
  1343. ! int f, n;
  1344.   {
  1345.           register int s;
  1346.           char line[NLINE];
  1347. ***************
  1348. *** 506,515 ****
  1349. --- 518,529 ----
  1350.                   return(s);
  1351.       movecursor(term.t_nrow - 1, 0);
  1352.       TTkclose();
  1353. +     TTclose();                           /* -- ZU */
  1354.           execprog(line);
  1355.   #if    WINDOW_TEXT
  1356.       refresh_screen(first_screen);
  1357.   #endif
  1358. +     TTopen();                           /* -- ZU */
  1359.       TTkopen();
  1360.       /* if we are interactive, pause here */
  1361.       if (clexec == FALSE) {
  1362. ***************
  1363. *** 579,588 ****
  1364. --- 593,604 ----
  1365.   
  1366.       /* execute the command */
  1367.       TTkclose();
  1368. +     TTclose();
  1369.           shellprog(line);
  1370.   #if    WINDOW_TEXT
  1371.       refresh_screen(first_screen);
  1372.   #endif
  1373. +     TTopen();
  1374.       TTkopen();
  1375.           sgarbf = TRUE;
  1376.   
  1377. ***************
  1378. *** 657,666 ****
  1379. --- 673,684 ----
  1380.       strcat(line," <fltinp >fltout");
  1381.       movecursor(term.t_nrow - 1, 0);
  1382.       TTkclose();
  1383. +     TTclose();
  1384.           shellprog(line);
  1385.   #if    WINDOW_TEXT
  1386.       refresh_screen(first_screen);
  1387.   #endif
  1388. +     TTopen();
  1389.       TTkopen();
  1390.           sgarbf = TRUE;
  1391.       s = TRUE;
  1392. ***************
  1393. *** 711,720 ****
  1394. --- 729,742 ----
  1395.       char *getenv();
  1396.   
  1397.       /*  detect current switch character and set us up to use it */
  1398. + #if 0
  1399.       regs.h.ah = 0x37;    /*  get setting data  */
  1400.       regs.h.al = 0x00;    /*  get switch character  */
  1401.       intdos(®s, ®s);
  1402.       swchar = (char)regs.h.dl;
  1403. + #else
  1404. +     swchar = '/';
  1405. + #endif
  1406.   
  1407.       /*  get name of system shell  */
  1408.       if ((shell = getenv("COMSPEC")) == NULL) {
  1409. ***************
  1410. *** 754,764 ****
  1411.   char *cmd;    /*  Incoming command line to execute  */
  1412.   
  1413.   {
  1414. !     char *sp;        /* temporary string pointer */
  1415.       char f1[38];        /* FCB1 area (not initialized */
  1416.       char f2[38];        /* FCB2 area (not initialized */
  1417. -     char prog[NSTRING];    /* program filespec */
  1418. -     char tail[NSTRING];    /* command tail with length byte */
  1419.       union REGS regs;    /* parameters for dos call  */
  1420.   #if    MWC == 0
  1421.       struct SREGS segreg;    /* segment registers for dis call */
  1422. --- 776,784 ----
  1423.   char *cmd;    /*  Incoming command line to execute  */
  1424.   
  1425.   {
  1426. ! #ifndef NEWSPAWN
  1427.       char f1[38];        /* FCB1 area (not initialized */
  1428.       char f2[38];        /* FCB2 area (not initialized */
  1429.       union REGS regs;    /* parameters for dos call  */
  1430.   #if    MWC == 0
  1431.       struct SREGS segreg;    /* segment registers for dis call */
  1432. ***************
  1433. *** 769,774 ****
  1434. --- 789,799 ----
  1435.           char *fcb1;    /* 4 byte pointer to FCB at PSP+5Ch */
  1436.           char *fcb2;    /* 4 byte pointer to FCB at PSP+6Ch */
  1437.       } pblock;
  1438. + #endif
  1439. +     char *sp;        /* temporary string pointer */
  1440. +     char prog[NSTRING];    /* program filespec */
  1441. +     char tail[NSTRING];    /* command tail with length byte */
  1442. +     char curdir[NFILEN];    /* current directory save space */
  1443.   
  1444.       /* parse the command name from the command line */
  1445.       sp = prog;
  1446. ***************
  1447. *** 776,781 ****
  1448. --- 801,807 ----
  1449.           *sp++ = *cmd++;
  1450.       *sp = 0;
  1451.   
  1452. + #ifndef NEWSPAWN
  1453.       /* and parse out the command tail */
  1454.       while (*cmd && ((*cmd == ' ') || (*cmd == '\t')))
  1455.           ++cmd;
  1456. ***************
  1457. *** 782,787 ****
  1458. --- 808,814 ----
  1459.       *tail = (char)(strlen(cmd)); /* record the byte length */
  1460.       strcpy(&tail[1], cmd);
  1461.       strcat(&tail[1], "\r");
  1462. + #endif
  1463.   
  1464.       /* look up the program on the path trying various extentions */
  1465.       if ((sp = flook(prog, TRUE)) == NULL)
  1466. ***************
  1467. *** 792,797 ****
  1468. --- 819,827 ----
  1469.           }
  1470.       strcpy(prog, sp);
  1471.   
  1472. +     getcwd(curdir, sizeof(curdir));        /* save current directory */
  1473. + 
  1474. + #ifndef NEWSPAWN
  1475.   #if    MWC == 0
  1476.       /* get a pointer to this PSPs environment segment number */
  1477.       segread(&segreg);
  1478. ***************
  1479. *** 858,863 ****
  1480. --- 888,897 ----
  1481.       } else
  1482.           rval = -_doserrno;    /* failed child call */
  1483.   #endif
  1484. + #else
  1485. +         rval = spawnl(P_WAIT, prog, prog, cmd, NULL);
  1486. + #endif
  1487. +     chdir( curdir );        /* restore current directory */
  1488.       return((rval < 0) ? FALSE : TRUE);
  1489.   }
  1490.   
  1491. ***************
  1492. *** 1052,1054 ****
  1493. --- 1086,1105 ----
  1494.   #endif
  1495.   #endif
  1496.   #endif
  1497. + 
  1498. + #if    CHDIR
  1499. + changecwd(dir)
  1500. + char *dir;
  1501. + {
  1502. +     char drive[5];
  1503. +     unsigned total;
  1504. + 
  1505. +     _splitpath(dir, drive, NULL, NULL, NULL);
  1506. + 
  1507. +     if ( drive[0] != 0 )
  1508. +         _dos_setdrive(toupper(drive[0]) - '@', &total);
  1509. + 
  1510. +     chdir(dir);
  1511. + }
  1512. + #endif
  1513. + 
  1514. diff -cbr src-orig/os2.c src/os2.c
  1515. *** src-orig/os2.c    Mon Dec 16 11:42:20 1991
  1516. --- src/os2.c    Sun Dec 22 16:42:30 1991
  1517. ***************
  1518. *** 11,16 ****
  1519. --- 11,18 ----
  1520.   
  1521.   */
  1522.   
  1523. + #define INCL_BASE
  1524. + #define INCL_NOPM
  1525.   #define INCL_DOS
  1526.   #include "os2.h"
  1527.   
  1528. ***************
  1529. *** 19,35 ****
  1530.   #undef    PASCAL
  1531.   #undef    NEAR
  1532.   #undef    HIBYTE
  1533.   
  1534.   #include    "estruct.h"
  1535.   #include    "eproto.h"
  1536.   
  1537.   #if    OS2
  1538. - #define INCL_BASE
  1539.   
  1540.   #include "elang.h"
  1541.   #include "edef.h"
  1542.   
  1543.   
  1544.   /*
  1545.    * Create a subjob with a copy of the command intrepreter in it. When the
  1546.    * command interpreter exits, mark the screen as garbage so that you do a full
  1547. --- 21,39 ----
  1548.   #undef    PASCAL
  1549.   #undef    NEAR
  1550.   #undef    HIBYTE
  1551. + #undef    COLOR
  1552.   
  1553.   #include    "estruct.h"
  1554.   #include    "eproto.h"
  1555.   
  1556.   #if    OS2
  1557.   
  1558.   #include "elang.h"
  1559.   #include "edef.h"
  1560.   
  1561. + #include <process.h>
  1562.   
  1563. + 
  1564.   /*
  1565.    * Create a subjob with a copy of the command intrepreter in it. When the
  1566.    * command interpreter exits, mark the screen as garbage so that you do a full
  1567. ***************
  1568. *** 37,42 ****
  1569. --- 41,47 ----
  1570.    * Under some (unknown) condition, you don't get one free when DCL starts up.
  1571.    */
  1572.   spawncli(f, n)
  1573. + int f, n;
  1574.   {
  1575.       /* don't allow this command if restricted */
  1576.       if (restflag)
  1577. ***************
  1578. *** 58,63 ****
  1579. --- 63,69 ----
  1580.    * done. Bound to "C-X !".
  1581.    */
  1582.   spawn(f, n)
  1583. + int f, n;
  1584.   {
  1585.           register int s;
  1586.           char line[NLINE];
  1587. ***************
  1588. *** 90,95 ****
  1589. --- 96,102 ----
  1590.    */
  1591.   
  1592.   execprg(f, n)
  1593. + int f, n;
  1594.   {
  1595.           register int s;
  1596.           char line[NLINE];
  1597. ***************
  1598. *** 121,126 ****
  1599. --- 128,134 ----
  1600.    * MicroEMACS don't try to use the same file.
  1601.    */
  1602.   pipecmd(f, n)
  1603. + int f, n;
  1604.   {
  1605.       register WINDOW *wp;    /* pointer to new window */
  1606.       register BUFFER *bp;    /* pointer to buffer to zot */
  1607. ***************
  1608. *** 211,217 ****
  1609.    * MicroEMACS don't try to use the same file.
  1610.    */
  1611.   filter(f, n)
  1612. ! 
  1613.   {
  1614.       register int    s;    /* return status from CLI */
  1615.       register BUFFER *bp;    /* pointer to buffer to zot */
  1616. --- 219,225 ----
  1617.    * MicroEMACS don't try to use the same file.
  1618.    */
  1619.   filter(f, n)
  1620. ! int f, n;
  1621.   {
  1622.       register int    s;    /* return status from CLI */
  1623.       register BUFFER *bp;    /* pointer to buffer to zot */
  1624. ***************
  1625. *** 308,318 ****
  1626.           return(FALSE);        /*  No shell located  */
  1627.       }
  1628.   
  1629. !     /*
  1630. !      * We are actually setting up a shell inside a shell here.
  1631. !      * Is there a better way?
  1632. !      */
  1633. !     return(system(shell));
  1634.   }
  1635.   
  1636.   
  1637. --- 316,322 ----
  1638.           return(FALSE);        /*  No shell located  */
  1639.       }
  1640.   
  1641. !     return(spawnl(P_WAIT, shell, shell, NULL));
  1642.   }
  1643.   
  1644.   
  1645. ***************
  1646. *** 324,330 ****
  1647.       char         failName[NFILEN];
  1648.       char         prog[NSTRING];        /* name of program */
  1649.       USHORT         i;
  1650. !     PRESULTCODES     results;
  1651.       
  1652.   
  1653.       /*
  1654. --- 328,334 ----
  1655.       char         failName[NFILEN];
  1656.       char         prog[NSTRING];        /* name of program */
  1657.       USHORT         i;
  1658. !         RESULTCODES      results;
  1659.       
  1660.   
  1661.       /*
  1662. ***************
  1663. *** 352,360 ****
  1664. --- 356,367 ----
  1665.       if ((sp = flook(prog, TRUE)) == NULL)
  1666.           if ((sp = flook(strcat(prog, ".exe"), TRUE)) == NULL) {
  1667.               strcpy(&prog[strlen(prog)-4], ".com");
  1668. +             if ((sp = flook(prog, TRUE)) == NULL) {
  1669. +                     strcpy(&prog[strlen(prog)-4], ".cmd");
  1670.               if ((sp = flook(prog, TRUE)) == NULL)
  1671.                   return(FALSE);
  1672.           }
  1673. +         }
  1674.       strcpy(prog, sp);
  1675.   
  1676.       /*
  1677. ***************
  1678. *** 361,374 ****
  1679.        * Execute the program synchronously.  We wait for child
  1680.        * to return.
  1681.        */
  1682. !     return (0 == DosExecPgm( failName, NFILEN, EXEC_SYNC,
  1683. !                      args, 0, results, prog));
  1684.   }
  1685.   
  1686.       
  1687.   /*    FILE Directory routines        */
  1688.   
  1689. ! FILEFINDBUF pBuf;    /* buffer to hold file information */
  1690.   HDIR hDir;        /* directory handle */
  1691.   int num_found;        /* number of directory entries found/to find */
  1692.   
  1693. --- 368,381 ----
  1694.        * Execute the program synchronously.  We wait for child
  1695.        * to return.
  1696.        */
  1697. !         return (0 == DosExecPgm(failName, sizeof(failName), EXEC_SYNC,
  1698. !                   args, 0, &results, prog));
  1699.   }
  1700.   
  1701.       
  1702.   /*    FILE Directory routines        */
  1703.   
  1704. ! FILEFINDBUF fbuf;    /* buffer to hold file information */
  1705.   HDIR hDir;        /* directory handle */
  1706.   int num_found;        /* number of directory entries found/to find */
  1707.   
  1708. ***************
  1709. *** 415,430 ****
  1710.   
  1711.       /* and call for the first file */
  1712.       num_found = 1;
  1713. !     hDir = HDIR_CREATE;
  1714.       if (DosFindFirst(fname, &hDir, FILE_NORMAL|FILE_DIRECTORY,
  1715. !               &pBuf, sizeof(pBuf), &num_found, 0L) != 0)
  1716.           return(NULL);
  1717.   
  1718.       /* return the first file name! */
  1719.       strcpy(rbuf, path);
  1720. !     strcat(rbuf, pBuf.achName);
  1721. !     mklower(rbuf);
  1722. !     if (pBuf.attrFile == FILE_DIRECTORY)
  1723.           strcat(rbuf, DIRSEPSTR);
  1724.       return(rbuf);
  1725.   }
  1726. --- 422,437 ----
  1727.   
  1728.       /* and call for the first file */
  1729.       num_found = 1;
  1730. !     hDir = HDIR_SYSTEM;
  1731.       if (DosFindFirst(fname, &hDir, FILE_NORMAL|FILE_DIRECTORY,
  1732. !               &fbuf, sizeof(fbuf), &num_found, 0L) != 0)
  1733.           return(NULL);
  1734.   
  1735.       /* return the first file name! */
  1736.       strcpy(rbuf, path);
  1737. !     strcat(rbuf, fbuf.achName);
  1738. !     /* mklower(rbuf); */
  1739. !     if (fbuf.attrFile == FILE_DIRECTORY)
  1740.           strcat(rbuf, DIRSEPSTR);
  1741.       return(rbuf);
  1742.   }
  1743. ***************
  1744. *** 438,451 ****
  1745.       char fname[NFILEN];        /* file/path for DOS call */
  1746.   
  1747.       /* and call for the next file */
  1748. !     if (DosFindNext(hDir, (void *)&pBuf, sizeof(pBuf), &num_found) != 0)
  1749.           return(NULL);
  1750.   
  1751.       /* return the first file name! */
  1752.       strcpy(rbuf, path);
  1753. !     strcat(rbuf, pBuf.achName);
  1754. !     mklower(rbuf);
  1755. !     if (pBuf.attrFile == FILE_DIRECTORY)
  1756.           strcat(rbuf, DIRSEPSTR);
  1757.       return(rbuf);
  1758.   }
  1759. --- 445,458 ----
  1760.       char fname[NFILEN];        /* file/path for DOS call */
  1761.   
  1762.       /* and call for the next file */
  1763. !     if (DosFindNext(hDir, (void *)&fbuf, sizeof(fbuf), &num_found) != 0)
  1764.           return(NULL);
  1765.   
  1766.       /* return the first file name! */
  1767.       strcpy(rbuf, path);
  1768. !     strcat(rbuf, fbuf.achName);
  1769. !     /* mklower(rbuf); */
  1770. !     if (fbuf.attrFile == FILE_DIRECTORY)
  1771.           strcat(rbuf, DIRSEPSTR);
  1772.       return(rbuf);
  1773.   }
  1774. ***************
  1775. *** 465,567 ****
  1776.       return(sp);
  1777.   }
  1778.   
  1779. ! #if    OBSOLETE
  1780. ! /*    extcode:    resolve MSDOS extended character codes
  1781. !             encoding the proper sequences into emacs
  1782. !             printable character specifications
  1783. ! */
  1784. ! 
  1785. ! int extcode(
  1786. !     unsigned c    /* byte following a zero extended char byte */
  1787. ! )
  1788. ! 
  1789. ! {
  1790. !     /* function keys 1 through 9 */
  1791. !     if (c >= 59 && c < 68)
  1792. !         return(SPEC | c - 58 + '0');
  1793. ! 
  1794. !     /* function key 10 */
  1795. !     if (c == 68)
  1796. !         return(SPEC | '0');
  1797. ! 
  1798. !     /* shifted function keys */
  1799. !     if (c >= 84 && c < 93)
  1800. !         return(SPEC | SHFT | c - 83 + '0');
  1801. !     if (c == 93)
  1802. !         return(SPEC | SHFT | '0');
  1803. ! 
  1804. !     /* control function keys */
  1805. !     if (c >= 94 && c < 103)
  1806. !         return(SPEC | CTRL | c - 93 + '0');
  1807. !     if (c == 103)
  1808. !         return(SPEC | CTRL | '0');
  1809. ! 
  1810. !     /* ALTed function keys */
  1811. !     if (c >= 104 && c < 113)
  1812. !         return(SPEC | ALTD | c - 103 + '0');
  1813. !     if (c == 113)
  1814. !         return(SPEC | ALTD | '0');
  1815. ! 
  1816. !     /* ALTed number keys */
  1817. !     if (c >= 120 && c < 129)
  1818. !         return(ALTD | c - 119 + '0');
  1819. !     if (c == 130)
  1820. !         return(ALTD | '0');
  1821. ! 
  1822. !     /* some others as well */
  1823. !     switch (c) {
  1824. !         case 3:        return(0);        /* null */
  1825. !         case 15:    return(SHFT | CTRL | 'I');    /* backtab */
  1826. ! 
  1827. !         case 16:    return(ALTD | 'Q');
  1828. !         case 17:    return(ALTD | 'W');
  1829. !         case 18:    return(ALTD | 'E');
  1830. !         case 19:    return(ALTD | 'R');
  1831. !         case 20:    return(ALTD | 'T');
  1832. !         case 21:    return(ALTD | 'Y');
  1833. !         case 22:    return(ALTD | 'U');
  1834. !         case 23:    return(ALTD | 'I');
  1835. !         case 24:    return(ALTD | 'O');
  1836. !         case 25:    return(ALTD | 'P');
  1837. ! 
  1838. !         case 30:    return(ALTD | 'A');
  1839. !         case 31:    return(ALTD | 'S');
  1840. !         case 32:    return(ALTD | 'D');
  1841. !         case 33:    return(ALTD | 'F');
  1842. !         case 34:    return(ALTD | 'G');
  1843. !         case 35:    return(ALTD | 'H');
  1844. !         case 36:    return(ALTD | 'J');
  1845. !         case 37:    return(ALTD | 'K');
  1846. !         case 38:    return(ALTD | 'L');
  1847. ! 
  1848. !         case 44:    return(ALTD | 'Z');
  1849. !         case 45:    return(ALTD | 'X');
  1850. !         case 46:    return(ALTD | 'C');
  1851. !         case 47:    return(ALTD | 'V');
  1852. !         case 48:    return(ALTD | 'B');
  1853. !         case 49:    return(ALTD | 'N');
  1854. !         case 50:    return(ALTD | 'M');
  1855. ! 
  1856. !         case 71:    return(SPEC | '<');    /* HOME */
  1857. !         case 72:    return(SPEC | 'P');    /* cursor up */
  1858. !         case 73:    return(SPEC | 'Z');    /* page up */
  1859. !         case 75:    return(SPEC | 'B');    /* cursor left */
  1860. !         case 77:    return(SPEC | 'F');    /* cursor right */
  1861. !         case 79:    return(SPEC | '>');    /* end */
  1862. !         case 80:    return(SPEC | 'N');    /* cursor down */
  1863. !         case 81:    return(SPEC | 'V');    /* page down */
  1864. !         case 82:    return(SPEC | 'C');    /* insert */
  1865. !         case 83:    return(SPEC | 'D');    /* delete */
  1866. !         case 115:    return(SPEC | CTRL | 'B');    /* control left */
  1867. !         case 116:    return(SPEC | CTRL | 'F');    /* control right */
  1868. !         case 117:    return(SPEC | CTRL | '>');    /* control END */
  1869. !         case 118:    return(SPEC | CTRL | 'V');    /* control page down */
  1870. !         case 119:    return(SPEC | CTRL | '<');    /* control HOME */
  1871. !         case 132:    return(SPEC | CTRL | 'Z');    /* control page up */
  1872. !     }
  1873.   
  1874. !     return(ALTD | c);
  1875.   }
  1876. ! #endif    /* obsolete */
  1877.   #endif
  1878.   
  1879. --- 472,492 ----
  1880.       return(sp);
  1881.   }
  1882.   
  1883. ! 
  1884. ! #if    CHDIR
  1885. ! changecwd(dir)
  1886. ! char *dir;
  1887. ! {
  1888. !     char drive[5];
  1889.   
  1890. !     _splitpath(dir, drive, NULL, NULL, NULL);
  1891. ! 
  1892. !     if ( drive[0] != 0 )
  1893. !                 DosSelectDisk(toupper(drive[0]) - '@');
  1894. ! 
  1895. !     chdir(dir);
  1896.   }
  1897. ! #endif
  1898. ! 
  1899.   #endif
  1900.   
  1901. diff -cbr src-orig/os2npm.c src/os2npm.c
  1902. *** src-orig/os2npm.c    Mon Dec 16 11:42:20 1991
  1903. --- src/os2npm.c    Sun Dec 22 16:19:16 1991
  1904. ***************
  1905. *** 12,17 ****
  1906. --- 12,18 ----
  1907.    */
  1908.   
  1909.   #define INCL_BASE
  1910. + #define INCL_NOPM
  1911.   #include    <os2.h>
  1912.   
  1913.   #define    termdef    1            /* don't define "term" external */
  1914. ***************
  1915. *** 18,23 ****
  1916. --- 19,25 ----
  1917.   
  1918.   #include    <stdio.h>
  1919.   
  1920. + #undef  COLOR
  1921.   #undef    PASCAL
  1922.   #undef    NEAR
  1923.   #undef    HIBYTE
  1924. ***************
  1925. *** 33,41 ****
  1926.    * We need COLOR as defined in estruct.h, so edit it out of os2def.h.
  1927.    */
  1928.   #include    <conio.h>
  1929.   
  1930. ! #define    NROW    50        /* Screen size.                 */
  1931. ! #define    NCOL    80        /* Edit if you want to.         */
  1932.   #define    MARGIN    8        /* size of minimim margin and    */
  1933.   #define    SCRSIZ    64        /* scroll size for extended lines */
  1934.   #define    NPAUSE    100        /* # times thru update to pause */
  1935. --- 35,44 ----
  1936.    * We need COLOR as defined in estruct.h, so edit it out of os2def.h.
  1937.    */
  1938.   #include    <conio.h>
  1939. + #include <stdlib.h>
  1940.   
  1941. ! #define    NROW    128        /* Screen size.                 */
  1942. ! #define    NCOL    140        /* Edit if you want to.         */
  1943.   #define    MARGIN    8        /* size of minimim margin and    */
  1944.   #define    SCRSIZ    64        /* scroll size for extended lines */
  1945.   #define    NPAUSE    100        /* # times thru update to pause */
  1946. ***************
  1947. *** 47,56 ****
  1948.   
  1949.   #define NDRIVE    4        /* number of video modes    */
  1950.   
  1951. ! int dtype = -1;                /* current video mode    */
  1952. ! char drvname[][8] = {            /* names of video modes    */
  1953. !     "CGA", "MONO", "EGA", "VGA"
  1954. ! };
  1955.   
  1956.   /* Forward references.          */
  1957.   
  1958. --- 50,57 ----
  1959.   
  1960.   #define NDRIVE    4        /* number of video modes    */
  1961.   
  1962. ! int mono = 0;
  1963. ! 
  1964.   
  1965.   /* Forward references.          */
  1966.   
  1967. ***************
  1968. *** 84,91 ****
  1969.   } os2rcell = {0, 0x07};
  1970.   
  1971.   static struct {                /* initial states        */
  1972. -     USHORT        ansiState;    /* ANSI translation        */
  1973. -     VIOCONFIGINFO    vioConfigInfo;    /* video configuration        */
  1974.       VIOMODEINFO    vioModeInfo;    /* video mode            */
  1975.       KBDINFO        kbdInfo;    /* keyboard info        */
  1976.   } initial;
  1977. --- 85,90 ----
  1978. ***************
  1979. *** 153,159 ****
  1980.   PASCAL NEAR os2fcol(
  1981.       int color)            /* color to set */
  1982.   {
  1983. !     if (dtype != CDMONO)
  1984.           cfcolor = ctrans[color];
  1985.       else
  1986.           cfcolor = 7;
  1987. --- 152,158 ----
  1988.   PASCAL NEAR os2fcol(
  1989.       int color)            /* color to set */
  1990.   {
  1991. !     if (!mono)
  1992.           cfcolor = ctrans[color];
  1993.       else
  1994.           cfcolor = 7;
  1995. ***************
  1996. *** 175,181 ****
  1997.   PASCAL NEAR os2bcol(
  1998.       int color)        /* color to set */
  1999.   {
  2000. !     if (dtype != CDMONO)
  2001.           cbcolor = ctrans[color];
  2002.       else
  2003.           cbcolor = 0;
  2004. --- 174,180 ----
  2005.   PASCAL NEAR os2bcol(
  2006.       int color)        /* color to set */
  2007.   {
  2008. !     if (!mono)
  2009.           cbcolor = ctrans[color];
  2010.       else
  2011.           cbcolor = 0;
  2012. ***************
  2013. *** 202,208 ****
  2014. --- 201,225 ----
  2015.   {
  2016.       os2row = row;
  2017.       os2col = col;
  2018. +         if ( _osmode == OS2_MODE )
  2019.       VioSetCurPos(os2row, os2col, 0);
  2020. +         else
  2021. +           _asm
  2022. +           {
  2023. +             mov ah,2
  2024. +             mov bh,0
  2025. +             mov dh,byte ptr os2row
  2026. +             mov dl,byte ptr os2col
  2027. +             int 0x10
  2028. +           }
  2029. + }
  2030. + 
  2031. + os2vmove(                    /* speedup for special case in updateline */
  2032. +     int row,
  2033. +     int col)
  2034. + {
  2035. +     os2row = row;
  2036. +     os2col = col;
  2037.   }
  2038.   
  2039.   
  2040. ***************
  2041. *** 215,221 ****
  2042.   {
  2043.       if (lvbMin <= lvbMax) {        /* did anything change?    */
  2044.           VioShowBuf(lvbMin * 2, (lvbMax - lvbMin + 1) * 2, 0);
  2045. !         VioSetCurPos(os2row, os2col, 0);
  2046.       }
  2047.       lvbMin = lvbLen;
  2048.       lvbMax = 0;
  2049. --- 232,238 ----
  2050.   {
  2051.       if (lvbMin <= lvbMax) {        /* did anything change?    */
  2052.           VioShowBuf(lvbMin * 2, (lvbMax - lvbMin + 1) * 2, 0);
  2053. !         os2move(os2row, os2col);
  2054.       }
  2055.       lvbMin = lvbLen;
  2056.       lvbMax = 0;
  2057. ***************
  2058. *** 256,262 ****
  2059.   
  2060.       /* Function, edit or alt- key?    */
  2061.       if (keyInfo.chChar == 0  ||  keyInfo.chChar == 0xE0) {
  2062. !         nextc = extcode(keyInfo.chScan); /* hold on to scan code */
  2063.           return(0);
  2064.       }
  2065.       return(keyInfo.chChar & 255);
  2066. --- 273,280 ----
  2067.   
  2068.       /* Function, edit or alt- key?    */
  2069.       if (keyInfo.chChar == 0  ||  keyInfo.chChar == 0xE0) {
  2070. !         nextc = extcode(keyInfo.chScan | (keyInfo.chChar << 8));
  2071. !         /* hold on to scan code */
  2072.           return(0);
  2073.       }
  2074.       return(keyInfo.chChar & 255);
  2075. ***************
  2076. *** 294,300 ****
  2077.       USHORT    i;
  2078.   
  2079.       if (c == '\n' || c == '\r') {        /* returns and linefeeds */
  2080. !         return;
  2081.       }
  2082.       if (c == '\b') {            /* backspace        */
  2083.           cell = ' ' | (revflag ? *(USHORT *)&os2rcell : *(USHORT *)&os2cell);
  2084. --- 312,318 ----
  2085.       USHORT    i;
  2086.   
  2087.       if (c == '\n' || c == '\r') {        /* returns and linefeeds */
  2088. !         return 0;
  2089.       }
  2090.       if (c == '\b') {            /* backspace        */
  2091.           cell = ' ' | (revflag ? *(USHORT *)&os2rcell : *(USHORT *)&os2cell);
  2092. ***************
  2093. *** 347,353 ****
  2094.       USHORT  i;
  2095.   
  2096.   #if COLOR
  2097. !     if (dtype != CDMONO)
  2098.           cell |= (ctrans[gbcolor] << 4 | ctrans[gfcolor]) << 8;
  2099.       else
  2100.           cell |= 0x0700;
  2101. --- 365,371 ----
  2102.       USHORT  i;
  2103.   
  2104.   #if COLOR
  2105. !     if (!mono)
  2106.           cell |= (ctrans[gbcolor] << 4 | ctrans[gfcolor]) << 8;
  2107.       else
  2108.           cell |= 0x0700;
  2109. ***************
  2110. *** 382,425 ****
  2111.   /* Change the screen resolution.                    */
  2112.   /*----------------------------------------------------------------------*/
  2113.   
  2114.   PASCAL NEAR os2cres(char *res)        /* name of desired video mode    */
  2115.   {
  2116. !     USHORT    err;
  2117. !     int    type;            /* video mode type    */
  2118.       VIOMODEINFO vioModeInfo;
  2119.   
  2120.       vioModeInfo = initial.vioModeInfo;
  2121.       
  2122. !     /* From the name, find the type of video mode.    */
  2123. !     for (type = 0; type < NDRIVE; type++) {
  2124. !         if (strcmp(res, drvname[type]) == 0)
  2125. !             break;
  2126. !     }
  2127. !     if (type == NDRIVE)
  2128. !         return(FALSE);    /* not a mode we know about    */
  2129. ! 
  2130. !         
  2131. !     switch (type) {
  2132. !         case CDMONO:
  2133. !         case CDCGA:
  2134. !             vioModeInfo.row = 25;
  2135. !             break;
  2136. !         case CDEGA:
  2137. !             vioModeInfo.row = 43;
  2138. !             break;
  2139. !         case CDVGA:
  2140. !             vioModeInfo.row = 50;
  2141. !             break;
  2142. !     }
  2143.       
  2144. !     if (VioSetMode(&vioModeInfo, 0))    /* change modes     */
  2145. !         return(FALSE);            /* couldn't do it    */
  2146.   
  2147.       newsize(TRUE, vioModeInfo.row);
  2148.   
  2149.       /* reset the $sres environment variable */
  2150. !     strcpy(sres, drvname[type]);
  2151. !     dtype = type;                /* set the current mode    */
  2152.       
  2153.       return TRUE;
  2154.   }
  2155. --- 400,461 ----
  2156.   /* Change the screen resolution.                    */
  2157.   /*----------------------------------------------------------------------*/
  2158.   
  2159. + static int checkmode(VIOMODEINFO *vmi, int scans, int lines, int font)
  2160. + {
  2161. +         int diff = scans - lines * font;
  2162. + 
  2163. +         if ( (0 <= diff) && (diff < font) )
  2164. +         {
  2165. +                 vmi -> vres = scans;
  2166. +                 vmi -> row = lines;
  2167. +                 return(TRUE);
  2168. +         }
  2169. +         else
  2170. +                 return(FALSE);
  2171. + 
  2172. + }
  2173. + 
  2174.   PASCAL NEAR os2cres(char *res)        /* name of desired video mode    */
  2175.   {
  2176. !     USHORT    lines;
  2177.       VIOMODEINFO vioModeInfo;
  2178.   
  2179. +         if ( ((lines = atoi(res)) < 16) || (lines >= NROW) )
  2180. +           return(FALSE);
  2181. + 
  2182.       vioModeInfo = initial.vioModeInfo;
  2183. +         vioModeInfo.vres = vioModeInfo.vres / vioModeInfo.row * lines;
  2184. +         vioModeInfo.row = lines;
  2185.       
  2186. !     if (VioSetMode(&vioModeInfo, 0))
  2187. !         {
  2188. !                 /* only 350, 400 or 480 scan lines allowed ? */
  2189. !                 /* (i.e. full screen) */
  2190. !              vioModeInfo = initial.vioModeInfo;
  2191. ! 
  2192. !                 if ( !(checkmode(&vioModeInfo, 480, lines, 16) ||
  2193. !                        checkmode(&vioModeInfo, 480, lines, 14) ||
  2194. !                        checkmode(&vioModeInfo, 480, lines,  8) ||
  2195. !                        checkmode(&vioModeInfo, 400, lines, 16) ||
  2196. !                        checkmode(&vioModeInfo, 400, lines, 14) ||
  2197. !                        checkmode(&vioModeInfo, 400, lines,  8) ||
  2198. !                        checkmode(&vioModeInfo, 350, lines, 16) ||
  2199. !                        checkmode(&vioModeInfo, 350, lines, 14) ||
  2200. !                        checkmode(&vioModeInfo, 350, lines,  8))   )
  2201. !                         return(FALSE);
  2202.       
  2203. !                 vioModeInfo.hres = (vioModeInfo.vres == 350) ? 640 : 720;
  2204.   
  2205. +             if (VioSetMode(&vioModeInfo, 0))
  2206. +                         return(FALSE);
  2207. +         }
  2208. + 
  2209. +     VioGetMode(&vioModeInfo, 0);
  2210. +         term.t_ncol = vioModeInfo.col;
  2211.       newsize(TRUE, vioModeInfo.row);
  2212.   
  2213.       /* reset the $sres environment variable */
  2214. !     itoa(vioModeInfo.row, sres, 10);
  2215.       
  2216.       return TRUE;
  2217.   }
  2218. ***************
  2219. *** 454,486 ****
  2220.   
  2221.   PASCAL NEAR os2open()
  2222.   {
  2223. !     initial.vioConfigInfo.cb = 0x0A;
  2224. !     VioGetConfig(0, &initial.vioConfigInfo, 0);
  2225. !     switch (initial.vioConfigInfo.adapter) {
  2226. !         case 3:
  2227. !             dtype = CDVGA;
  2228. !             break;
  2229. !         case 2:
  2230. !             dtype = CDEGA;
  2231. !             break;
  2232. !         case 1:
  2233. !             dtype = CDCGA;
  2234. !             break;
  2235. !         case 0:
  2236. !         default:
  2237. !             dtype = CDMONO;
  2238. !     }
  2239. !     strcpy(sres, drvname[dtype]);
  2240.   
  2241. !     initial.vioModeInfo.cb = 0x0E;
  2242.       VioGetMode(&initial.vioModeInfo, 0);
  2243. !     newsize(TRUE, initial.vioModeInfo.row);
  2244.               
  2245. !     VioGetAnsi(&initial.ansiState, 0);
  2246.       VioGetBuf((PULONG)&lvb, &lvbLen, 0);
  2247.       lvbMin = lvbLen;
  2248.       lvbMax = 0;
  2249.   
  2250.       revexist = TRUE;
  2251.       revflag = FALSE;
  2252.   }
  2253. --- 490,531 ----
  2254.   
  2255.   PASCAL NEAR os2open()
  2256.   {
  2257. !     VIOINTENSITY vi;
  2258. !     PFNSIGHANDLER oldhandler;
  2259. !     USHORT oldact;
  2260.   
  2261. !     initial.vioModeInfo.cb = sizeof(initial.vioModeInfo);
  2262.       VioGetMode(&initial.vioModeInfo, 0);
  2263. !         mono = (initial.vioModeInfo.color == COLORS_2);
  2264. ! 
  2265. !         if ( _osmode == OS2_MODE )
  2266. !         {
  2267. !           term.t_ncol = initial.vioModeInfo.col;
  2268. !           term.t_nrow = initial.vioModeInfo.row;
  2269. !         }
  2270. !         else
  2271. !         {
  2272. !           term.t_ncol = *((char *) 0x0040004AL);
  2273. !           term.t_nrow = *((char *) 0x00400084L) + 1;
  2274. !         }
  2275. ! 
  2276. !     newsize(TRUE, term.t_nrow);
  2277. !     itoa(term.t_nrow + 1, sres, 10);
  2278.               
  2279. !         vi.cb = sizeof(vi);
  2280. !         vi.type = 2;
  2281. !         vi.fs = 1;
  2282. !         VioSetState(&vi, 0);
  2283. ! 
  2284.       VioGetBuf((PULONG)&lvb, &lvbLen, 0);
  2285.       lvbMin = lvbLen;
  2286.       lvbMax = 0;
  2287.   
  2288. +     DosSetSigHandler((PFNSIGHANDLER) NULL, &oldhandler, &oldact,
  2289. +                      SIGA_IGNORE, SIG_CTRLBREAK);
  2290. +     DosSetSigHandler((PFNSIGHANDLER) NULL, &oldhandler, &oldact,
  2291. +                      SIGA_IGNORE, SIG_CTRLC);
  2292. + 
  2293.       revexist = TRUE;
  2294.       revflag = FALSE;
  2295.   }
  2296. ***************
  2297. *** 493,502 ****
  2298.   
  2299.   PASCAL NEAR os2close()
  2300.   {
  2301. !     VioSetAnsi(initial.ansiState, 0);
  2302.       VioSetMode(&initial.vioModeInfo, 0);
  2303.       VioSetCurPos(initial.vioModeInfo.row - 1,
  2304.                initial.vioModeInfo.col - 1, 0);
  2305.   }
  2306.   
  2307.   /*----------------------------------------------------------------------*/
  2308. --- 538,551 ----
  2309.   
  2310.   PASCAL NEAR os2close()
  2311.   {
  2312. !         if ( _osmode == OS2_MODE )
  2313. !         {
  2314.       VioSetMode(&initial.vioModeInfo, 0);
  2315.       VioSetCurPos(initial.vioModeInfo.row - 1,
  2316.                initial.vioModeInfo.col - 1, 0);
  2317. +         }
  2318. +         else
  2319. +           os2move(term.t_nrow - 1, term.t_ncol - 1);
  2320.   }
  2321.   
  2322.   /*----------------------------------------------------------------------*/
  2323. ***************
  2324. *** 508,514 ****
  2325.   {
  2326.       KBDINFO    kbdInfo;
  2327.   
  2328. !     initial.kbdInfo.cb = 0x000A;
  2329.       KbdGetStatus(&initial.kbdInfo, 0);    
  2330.       kbdInfo = initial.kbdInfo;
  2331.       kbdInfo.fsMask &= ~0x0001;        /* not echo on        */
  2332. --- 557,563 ----
  2333.   {
  2334.       KBDINFO    kbdInfo;
  2335.   
  2336. !     initial.kbdInfo.cb = sizeof(initial.kbdInfo);
  2337.       KbdGetStatus(&initial.kbdInfo, 0);    
  2338.       kbdInfo = initial.kbdInfo;
  2339.       kbdInfo.fsMask &= ~0x0001;        /* not echo on        */
  2340. diff -cbr src-orig/random.c src/random.c
  2341. *** src-orig/random.c    Mon Dec 16 11:42:22 1991
  2342. --- src/random.c    Sun Dec 22 16:19:18 1991
  2343. ***************
  2344. *** 265,270 ****
  2345. --- 265,289 ----
  2346.                   stabsize = n;
  2347.                   return(TRUE);
  2348.           }
  2349. + 
  2350. + #if    SOFTAB
  2351. + 
  2352. +     if (curwp->w_bufp->b_mode & MDOVER)  {
  2353. +         if (! tabsize) {
  2354. +                    curgoal = getccol(FALSE) | 0x07;
  2355. +                curgoal++;
  2356. +            }
  2357. +            else {
  2358. +                curgoal = tabsize - (getccol(FALSE) % tabsize) + getccol(FALSE);
  2359. +         }
  2360. + 
  2361. +         curwp->w_doto =  getgoal(curwp->w_dotp);
  2362. +            return(TRUE);
  2363. +     }
  2364. + 
  2365. + #endif
  2366. + 
  2367. + 
  2368.           if (!stabsize)
  2369.                   return(linsert(1, '\t'));
  2370.           return(linsert(stabsize - (getccol(FALSE) % stabsize), ' '));
  2371. ***************
  2372. *** 451,456 ****
  2373. --- 470,497 ----
  2374.           return(s);
  2375.   }
  2376.   
  2377. + 
  2378. + /*
  2379. +  * Toggle overwrite mode.  Bound to the ins key.
  2380. +  */
  2381. + PASCAL    NEAR    toggleovermode(f, n)    /* toggle overwrite mode */
  2382. + 
  2383. + int    f, n;        /* default and argument */
  2384. + 
  2385. + {
  2386. +     if (curwp->w_bufp->b_mode & MDOVER)
  2387. +     {
  2388. +         curwp->w_bufp->b_mode &= ~MDOVER;
  2389. +         curwp->w_bufp->b_mode |= MDREPL;
  2390. +     }
  2391. +     else if (curwp->w_bufp->b_mode & MDREPL)
  2392. +         curwp->w_bufp->b_mode &= ~MDREPL;
  2393. +         else
  2394. +         curwp->w_bufp->b_mode |= MDOVER;
  2395. +     upmode();
  2396. + }
  2397. + 
  2398. + 
  2399.   /*
  2400.    * Insert a newline. Bound to "C-M". If we are in CMODE, do automatic
  2401.    * indentation as specified.
  2402. ***************
  2403. *** 462,467 ****
  2404. --- 503,517 ----
  2405.   {
  2406.       register int    s;
  2407.   
  2408. + #if    SOFTAB
  2409. + 
  2410. +     if (curwp->w_bufp->b_mode & MDOVER)  {
  2411. +         gotobol(f,1);
  2412. +         thisflag = 0;
  2413. +         return(forwline(f,1));
  2414. +     }
  2415. + #endif
  2416. + 
  2417.       if (curbp->b_mode&MDVIEW)    /* don't allow this command if    */
  2418.           return(rdonly());    /* we are in read only mode    */
  2419.       if (n < 0)
  2420. ***************
  2421. *** 868,876 ****
  2422.       register char *scan;        /* scanning pointer to convert prompt */
  2423.       register int i;            /* loop index */
  2424.       register int status;        /* error return on input */
  2425. - #if    COLOR
  2426.       register int uflag;        /* was modename uppercase?    */
  2427. - #endif
  2428.       char prompt[50];    /* string to prompt user with */
  2429.       char cbuf[NPAT];        /* buffer to recieve mode name into */
  2430.   
  2431. --- 918,924 ----
  2432. ***************
  2433. *** 898,906 ****
  2434.       /* make it uppercase */
  2435.   
  2436.       scan = cbuf;
  2437. - #if    COLOR
  2438.       uflag = (*scan >= 'A' && *scan <= 'Z');
  2439. - #endif
  2440.       while (*scan)
  2441.           uppercase(scan++);
  2442.   
  2443. --- 946,952 ----
  2444. diff -cbr src-orig/unix.c src/unix.c
  2445. *** src-orig/unix.c    Mon Dec 16 11:42:24 1991
  2446. --- src/unix.c    Sun Dec 22 17:12:10 1991
  2447. ***************
  2448. *** 802,807 ****
  2449. --- 802,810 ----
  2450.       int status;
  2451.       struct capbind * cb;
  2452.       struct keybind * kp;
  2453. + #ifdef TIOCGWINSZ
  2454. +     struct winsize win;
  2455. + #endif
  2456.   
  2457.       char * getenv(), * tgetstr();
  2458.   #if HPUX
  2459. ***************
  2460. *** 831,840 ****
  2461.           exit(1);
  2462.       }
  2463.   
  2464.       /* Get size from termcap */
  2465.       term.t_nrow = tgetnum("li") - 1;
  2466.       term.t_ncol = tgetnum("co");
  2467. !     if (term.t_nrow < 3 || term.t_ncol < 3) {
  2468.           puts("Screen size is too small!");
  2469.           exit(1);
  2470.       }
  2471. --- 834,861 ----
  2472.           exit(1);
  2473.       }
  2474.   
  2475. +     term.t_nrow = -1;
  2476. +     term.t_ncol = -1;
  2477. + 
  2478. + #ifdef TIOCGWINSZ
  2479. +     if (ioctl (0, TIOCGWINSZ, &win) == 0) {
  2480. +         if (win.ws_col)
  2481. +             term.t_ncol = win.ws_col;
  2482. +         else
  2483. +             term.t_ncol = -1;
  2484. +         if (win.ws_row)
  2485. +             term.t_nrow = win.ws_row - 1;
  2486. +         else
  2487. +             term.t_nrow = -1;
  2488. +     }
  2489. + #endif /* TIOCGWINSZ */
  2490. + 
  2491.       /* Get size from termcap */
  2492. +         if ( term.t_nrow == -1 )
  2493.       term.t_nrow = tgetnum("li") - 1;
  2494. +         if ( term.t_ncol == -1 )
  2495.       term.t_ncol = tgetnum("co");
  2496. !     if (term.t_nrow < 15 || term.t_ncol < 64) {
  2497.           puts("Screen size is too small!");
  2498.           exit(1);
  2499.       }
  2500. ***************
  2501. *** 1537,1542 ****
  2502. --- 1558,1571 ----
  2503.       /* Return the next file name! */
  2504.       return(rbuf);
  2505.   }
  2506. + 
  2507. + #if    CHDIR
  2508. + changecwd(dir)
  2509. + char *dir;
  2510. + {
  2511. +     chdir(dir);
  2512. + }
  2513. + #endif
  2514.   
  2515.   #if FLABEL
  2516.   int fnclabel(f, n)    /* label a function key */
  2517. diff -cbr src-orig/window.c src/window.c
  2518. *** src-orig/window.c    Mon Dec 16 11:42:24 1991
  2519. --- src/window.c    Sun Dec 22 16:19:20 1991
  2520. ***************
  2521. *** 37,43 ****
  2522. --- 37,46 ----
  2523.   
  2524.   {
  2525.       if (f == FALSE)
  2526. +         {
  2527.       sgarbf = TRUE;
  2528. +         thisflag = lastflag; /* jbayer */
  2529. +         }
  2530.       else
  2531.       {
  2532.       curwp->w_force = 0;        /* Center dot. */
  2533.