home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / text / emacsdif.lha / emacs-18.58 / src-diffs < prev   
Encoding:
C/C++ Source or Header  |  1992-05-17  |  40.3 KB  |  1,647 lines
  1. *** emacs-18.58/src/termcap.c    1992/02/21 11:21:03
  2. --- GNUEMACS:src/termcap.c    1992/02/23 11:07:09
  3. ***************
  4. *** 344,350 ****
  5. --- 344,354 ----
  6.   #ifdef VMS
  7.     filep = tem && legal_filename_p (tem);
  8.   #else
  9. + #ifdef AMIGA
  10. +   filep = tem != 0;            /* Always assume that it is a file */
  11. + #else
  12.     filep = tem && (*tem == '/');
  13. + #endif
  14.   #endif /* VMS */
  15.   
  16.     /* If tem is non-null and starts with / (in the un*x case, that is),
  17. ***************
  18. *** 377,383 ****
  19. --- 381,391 ----
  20.   #ifdef VMS
  21.       tem = "emacs_library:[etc]termcap.dat";
  22.   #else
  23. + #ifdef AMIGA
  24. +     tem = "s:termcap";
  25. + #else
  26.       tem = "/etc/termcap";
  27. + #endif
  28.   #endif
  29.   
  30.     /* Here we know we must search a file and tem has its name.  */
  31. *** emacs-18.58/src/alloc.c    1992/02/21 11:18:24
  32. --- GNUEMACS:src/alloc.c    1992/05/13 23:07:01
  33. ***************
  34. *** 76,81 ****
  35. --- 76,86 ----
  36.      Preallocated since perhaps we can't allocate it when memory is full.  */
  37.   Lisp_Object memory_exhausted_message;
  38.   
  39. + #ifdef AMIGA_DUMP
  40. + int *pure;   /* pure array is allocated at run-time */
  41. + int puresize = DEF_PURESIZE; /* and has a variable size */
  42. + #define PUREBEG (char *) pure
  43. + #else /* not AMIGA_DUMP */
  44.   #ifndef HAVE_SHM
  45.   #ifdef VMS
  46.   int pure[PURESIZE / sizeof (int)];    /*no need to initialize - wasted space*/
  47. ***************
  48. *** 87,92 ****
  49. --- 92,98 ----
  50.   #define pure PURE_SEG_BITS   /* Use shared memory segment */
  51.   #define PUREBEG (char *)PURE_SEG_BITS
  52.   #endif /* not HAVE_SHM */
  53. + #endif /* not AMIGA_DUMP */
  54.   
  55.   /* Index in pure at which next pure object will be allocated. */
  56.   int pureptr;
  57. ***************
  58. *** 727,734 ****
  59. --- 733,744 ----
  60.   #ifdef __GNUC__
  61.   Lisp_Object *staticvec[NSTATICS] = {0};
  62.   #else
  63. + #ifdef AMIGA_DUMP
  64. + Lisp_Object *staticvec[NSTATICS]; /* Doesn't need to be pure */
  65. + #else
  66.   char staticvec1[NSTATICS * sizeof (Lisp_Object *)] = {0};
  67.   #define staticvec ((Lisp_Object **) staticvec1)
  68. + #endif
  69.   #endif
  70.   
  71.   /* Put an entry in staticvec, pointing at the variable whose address is given */
  72. *** emacs-18.58/src/dispnew.c    1992/02/21 11:18:24
  73. --- GNUEMACS:src/dispnew.c    1992/05/16 21:25:46
  74. ***************
  75. *** 661,666 ****
  76. --- 661,680 ----
  77.     if (force_redisplay)
  78.       force = 1;
  79.   
  80. + #ifdef FAST_DISPLAY
  81. +   /* Don't compute for i/d line if just want cursor motion. */
  82. +   /* Don't allow preemption, etc either */
  83. +   for (i = 0; i < screen_height; i++)
  84. +     if (new_screen->enable[i])
  85. +       break;
  86. + 
  87. +   if (i >= screen_height)
  88. +     {
  89. +       update_begin();
  90. +       goto update_done;
  91. +     }
  92. + #endif
  93. + 
  94.     if (!force)
  95.       detect_input_pending ();
  96.     if (!force
  97. ***************
  98. *** 677,686 ****
  99.     if (!line_ins_del_ok)
  100.       inhibit_hairy_id = 1;
  101.   
  102.     /* Don't compute for i/d line if just want cursor motion. */
  103.     for (i = 0; i < screen_height; i++)
  104. !     if (new_screen->enable)
  105.         break;
  106.   
  107.     /* Try doing i/d line, if not yet inhibited.  */
  108.     if (!inhibit_hairy_id && i < screen_height)
  109. --- 691,702 ----
  110.     if (!line_ins_del_ok)
  111.       inhibit_hairy_id = 1;
  112.   
  113. + #ifndef FAST_DISPLAY
  114.     /* Don't compute for i/d line if just want cursor motion. */
  115.     for (i = 0; i < screen_height; i++)
  116. !     if (new_screen->enable[i])
  117.         break;
  118. + #endif
  119.   
  120.     /* Try doing i/d line, if not yet inhibited.  */
  121.     if (!inhibit_hairy_id && i < screen_height)
  122. ***************
  123. *** 724,729 ****
  124. --- 740,748 ----
  125.         update_line (i);
  126.       }
  127.       }
  128. + #ifdef FAST_DISPLAY
  129. + update_done:
  130. + #endif
  131.     pause = (i < screen_height - 1) ? i + 1 : 0;
  132.   
  133.     /* Now just clean up termcap drivers and set cursor, etc.  */
  134. ***************
  135. *** 876,881 ****
  136. --- 895,951 ----
  137.     else
  138.       reassert_line_highlight (new_screen->highlight[vpos], vpos);
  139.   
  140. + #ifdef FAST_DISPLAY
  141. +   if (current_screen->enable[vpos])
  142. +   {
  143. +       obody = current_screen->contents[vpos];
  144. +       olen = current_screen->used[vpos];
  145. +   }
  146. +   else olen = 0;
  147. + 
  148. +   nbody = new_screen->contents[vpos];
  149. +   nlen = new_screen->used[vpos];
  150. +   
  151. +   /* Pretend trailing spaces are not there at all,
  152. +      unless for one reason or another we must write all spaces.  */
  153. +   /* We know that the previous character byte contains 0.  */
  154. +   if (! new_screen->highlight[vpos])
  155. +   {
  156. +       if (!must_write_spaces)
  157. +       while (nbody[nlen - 1] == ' ')
  158. +           nlen--;
  159. +   }
  160. +   else
  161. +   {
  162. +       /* For an inverse-video line, give it extra trailing spaces
  163. +      all the way to the screen edge
  164. +      so that the reverse video extends all the way across.  */
  165. +       while (nlen < screen_width - 1)
  166. +       nbody[nlen++] = ' ';
  167. +   }
  168. +   
  169. +   while (olen > 0 && nlen > 0 && *obody == *nbody)
  170. +   {
  171. +       olen--; nlen--; obody++; nbody++;
  172. +   }
  173. +   if (olen > 0 || nlen > 0)
  174. +       move_cursor (vpos, nbody - new_screen->contents[vpos]);
  175. +   if (nlen > 0) output_chars (nbody, nlen);
  176. +   
  177. +   if (olen > nlen && new_screen->used[vpos] != screen_width)
  178. +       clear_end_of_line(current_screen->used[vpos]);
  179. +   /* Exchange contents between current_screen and new_screen.  */
  180. +   temp = new_screen->contents[vpos];
  181. +   new_screen->contents[vpos] = current_screen->contents[vpos];
  182. +   current_screen->contents[vpos] = temp;
  183. +   
  184. +   /* One way or another, this will enable the line being updated.  */
  185. +   current_screen->enable[vpos] = 1;
  186. +   current_screen->used[vpos] = new_screen->used[vpos];
  187. +   current_screen->highlight[vpos] = new_screen->highlight[vpos];
  188. + 
  189. + #else /* not FAST_DISPLAY */
  190. + 
  191.     /* ??? */
  192.     if (! current_screen->enable[vpos])
  193.       {
  194. ***************
  195. *** 1154,1159 ****
  196. --- 1224,1230 ----
  197.     temp = new_screen->contents[vpos];
  198.     new_screen->contents[vpos] = current_screen->contents[vpos];
  199.     current_screen->contents[vpos] = temp;
  200. + #endif /* not FAST_DISPLAY */
  201.   }
  202.   
  203.   count_blanks (str)
  204. ***************
  205. *** 1525,1530 ****
  206. --- 1596,1604 ----
  207.         select (1, &waitchannels, 0, 0, &timeout);
  208.   #endif                /* HAVE_TIMEVAL */
  209.   #endif                /* not VMS */
  210. + #ifdef    AMIGA
  211. +       sleep_or_input(XINT(n));
  212. + #endif    AMIGA
  213.   
  214.         immediate_quit = 0;
  215.   #endif                /* no subprocesses */
  216. ***************
  217. *** 1552,1559 ****
  218. --- 1626,1643 ----
  219.     cursor_in_echo_area = 0;
  220.     terminal_type = (char *) 0;
  221.   
  222. + #ifdef AMIGA
  223. +   amiga_term_open();
  224. + #endif
  225.     if (!inhibit_window_system)
  226.       {
  227. + #ifdef AMIGA
  228. +       amiga_term_init();
  229. +       /* Using Intuition V2.04 */
  230. +       Vwindow_system = intern ("intuition");
  231. +       Vwindow_system_version = make_number (2);
  232. +       goto term_init_done;
  233. + #endif /* AMIGA */
  234.   #ifdef HAVE_X_WINDOWS
  235.         extern char *alternate_display;
  236.         char *disp = (char *) egetenv ("DISPLAY");
  237. *** emacs-18.58/src/callint.c    1992/02/21 11:18:24
  238. --- GNUEMACS:src/callint.c    1992/03/01 11:35:25
  239. ***************
  240. *** 120,126 ****
  241. --- 120,130 ----
  242.     return exp;
  243.   }
  244.   
  245. + #ifdef AMIGA_DUMP
  246. + char *far callint_argfuns[]
  247. + #else
  248.   char *callint_argfuns[]
  249. + #endif
  250.       = {"", "point", "mark", "region-beginning", "region-end"};
  251.   
  252.   static void
  253. *** emacs-18.58/src/lisp.h    1992/02/21 11:20:30
  254. --- GNUEMACS:src/lisp.h    1992/05/13 23:07:01
  255. ***************
  256. *** 287,293 ****
  257.     (XUINT (a) | (XUINT (a) > PURESIZE ? DATA_SEG_BITS : PURE_SEG_BITS))
  258.   #else /* not HAVE_SHM */
  259.   #ifdef DATA_SEG_BITS
  260. ! /* This case is used for the rt-pc.
  261.      In the diffs I was given, it checked for ptr = 0
  262.      and did not adjust it in that case.
  263.      But I don't think that zero should ever be found
  264. --- 287,293 ----
  265.     (XUINT (a) | (XUINT (a) > PURESIZE ? DATA_SEG_BITS : PURE_SEG_BITS))
  266.   #else /* not HAVE_SHM */
  267.   #ifdef DATA_SEG_BITS
  268. ! /* This case is used for the rt-pc and the Amiga.
  269.      In the diffs I was given, it checked for ptr = 0
  270.      and did not adjust it in that case.
  271.      But I don't think that zero should ever be found
  272. ***************
  273. *** 520,525 ****
  274. --- 520,532 ----
  275.     { if (XTYPE ((x)) == Lisp_Marker) XFASTINT (x) = marker_position (x); \
  276.       else if (XTYPE ((x)) != Lisp_Int) x = wrong_type_argument (Qinteger_or_marker_p, (x)); }
  277.   
  278. + #ifdef AMIGA_DUMP
  279. + #define CHECK_IMPURE(obj) \
  280. +   { extern int *pure, puresize; \
  281. +     if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + puresize) \
  282. +     && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \
  283. +       pure_write_error (); }
  284. + #else /* not AMIGA_DUMP */
  285.   #ifdef VIRT_ADDR_VARIES
  286.   
  287.   /* For machines like APOLLO where text and data can go anywhere
  288. ***************
  289. *** 529,535 ****
  290.       if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + PURESIZE) \
  291.       && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \
  292.         pure_write_error (); }
  293. - 
  294.   #else /* not VIRT_ADDR_VARIES */
  295.   #ifdef PNTR_COMPARISON_TYPE
  296.   
  297. --- 536,541 ----
  298. ***************
  299. *** 548,553 ****
  300. --- 554,560 ----
  301.   
  302.   #endif /* PNTR_COMPARISON_TYPE */
  303.   #endif /* VIRT_ADDRESS_VARIES */
  304. + #endif /* not AMIGA_DUMP */
  305.   
  306.   /* Cast pointers to this type to compare them.  Some machines want int.  */
  307.   #ifndef PNTR_COMPARISON_TYPE
  308. *** emacs-18.58/src/dired.c    1992/02/21 11:18:24
  309. --- GNUEMACS:src/dired.c    1992/02/23 10:28:04
  310. ***************
  311. *** 384,390 ****
  312. --- 384,394 ----
  313.   
  314.     bcopy (XSTRING (dirname)->data, fullname, pos);
  315.   #ifndef VMS
  316. + #ifdef AMIGA
  317. +   if ((fullname[pos - 1] != '/')&&(fullname[pos - 1] != ':'))
  318. + #else
  319.     if (fullname[pos - 1] != '/')
  320. + #endif
  321.       fullname[pos++] = '/';
  322.   #endif
  323.   
  324. *** emacs-18.58/src/term.c    1992/02/21 11:21:03
  325. --- GNUEMACS:src/term.c    1992/03/01 11:35:25
  326. ***************
  327. *** 161,167 ****
  328. --- 161,171 ----
  329.      or'd with 0100.  Zero if no standout marker at all.  */
  330.   /* used iff TN_standout_width >= 0. */
  331.   char *chars_wasted;
  332. + #ifdef AMIGA_DUMP
  333. + char *copybuf;
  334. + #else
  335.   static char *copybuf;
  336. + #endif
  337.   
  338.   /* nonzero means supposed to write text in standout mode.  */
  339.   int standout_requested;
  340. *** emacs-18.58/src/indent.c    1992/02/21 11:18:24
  341. --- GNUEMACS:src/indent.c    1992/03/01 11:35:25
  342. ***************
  343. *** 35,40 ****
  344. --- 35,45 ----
  345.   #define min(a, b) ((a) < (b) ? (a) : (b))
  346.   #define max(a, b) ((a) > (b) ? (a) : (b))
  347.   
  348. + #ifdef EIGHT_BIT
  349. + /* Visible characters */
  350. + extern char visible[];
  351. + #endif
  352. + 
  353.   /* These three values memoize the current column to avoid recalculation */
  354.   /* Some things in set last_known_column_point to -1
  355.     to mark the memoized value as invalid */
  356. ***************
  357. *** 115,121 ****
  358. --- 120,130 ----
  359.       }
  360.   
  361.         c = *--ptr;
  362. + #ifdef EIGHT_BIT
  363. +       if (visible[c])
  364. + #else
  365.         if (c >= 040 && c < 0177)
  366. + #endif
  367.       {
  368.         col++;
  369.       }
  370. ***************
  371. *** 326,332 ****
  372. --- 335,345 ----
  373.       }
  374.         else if (ctl_arrow && (c < 040 || c == 0177))
  375.           col++;
  376. + #ifdef EIGHT_BIT
  377. +       else if (!visible[c])
  378. + #else
  379.         else if (c < 040 || c >= 0177)
  380. + #endif
  381.           col += 3;
  382.       }
  383.   
  384. ***************
  385. *** 373,381 ****
  386. --- 386,447 ----
  387.         prev_hpos = hpos;
  388.   
  389.         c = FETCH_CHAR (pos);
  390. + #ifdef EIGHT_BIT
  391. +       if (visible[c])
  392. + #else
  393.         if (c >= 040 && c < 0177)
  394. + #endif
  395. + #ifdef FAST_DISPLAY
  396. +         {
  397. +       unsigned char *p;
  398. +       int gap_pos;
  399. +       int maxhpos;
  400. + 
  401. +       if (vpos == tovpos)
  402. +         {
  403. +           maxhpos = tohpos;
  404. +           if (maxhpos > width) maxhpos = width;
  405. +         }
  406. +       else maxhpos = width;
  407. + 
  408. +       if (pos < GPT)
  409. +         {
  410. +           gap_pos = GPT;
  411. +           p = BEG_ADDR + pos;
  412. +         }
  413. +       else
  414. +         {
  415. +           gap_pos = -1;
  416. +           p = GAP_SIZE + BEG_ADDR + pos;
  417. +         }
  418. +       do
  419. +         {
  420. +           hpos++;
  421. +           if (hpos >= maxhpos)
  422. +           {
  423. +           prev_hpos = hpos - 1;
  424. +           if (hpos >= width) goto check_hpos;
  425. +           /* We've reached the target pos */
  426. +           pos++;
  427. +           goto done;
  428. +           }
  429. +           pos++;
  430. +           if (pos >= to)
  431. +             {
  432. +           prev_hpos = hpos - 1;
  433. +           goto done;
  434. +             }
  435. +           if (gap_pos == pos) p += GAP_SIZE;
  436. +           c = *p++;
  437. +         }
  438. +       while (visible[c]);
  439. +       prev_hpos = hpos;
  440. +         }
  441. +       if (c == '\t')
  442. + #else /* not FAST_DISPLAY */
  443.       hpos++;
  444.         else if (c == '\t')
  445. + #endif /* not FAST_DISPLAY */
  446.       {
  447.         hpos += tab_width - ((hpos + tab_offset + hscroll - (hscroll > 0)
  448.                   /* Add tab_width here to make sure positive.
  449. ***************
  450. *** 431,436 ****
  451. --- 497,505 ----
  452.         else
  453.       hpos += (ctl_arrow && c < 0200) ? 2 : 4;
  454.   
  455. + #ifdef FAST_DISPLAY
  456. + check_hpos:
  457. + #endif
  458.         /* Handle right margin.  */
  459.         if (hpos >= width
  460.         && (hpos > width
  461. ***************
  462. *** 459,464 ****
  463. --- 528,536 ----
  464.   
  465.       }
  466.       }
  467. + #ifdef FAST_DISPLAY
  468. +   done:
  469. + #endif
  470.   
  471.     val_compute_motion.bufpos = pos;
  472.     val_compute_motion.hpos = hpos;
  473. *** emacs-18.58/src/doc.c    1992/02/21 11:18:24
  474. --- GNUEMACS:src/doc.c    1992/02/23 10:28:48
  475. ***************
  476. *** 188,194 ****
  477. --- 188,198 ----
  478.   
  479.   #ifndef CANNOT_DUMP
  480.     name = (char *) alloca (XSTRING (filename)->size + 8);
  481. + #ifdef AMIGA
  482. +   strcpy (name, "/etc/");
  483. + #else
  484.     strcpy (name, "../etc/");
  485. + #endif
  486.   #else /* CANNOT_DUMP */
  487.     CHECK_STRING (Vexec_directory, 0);
  488.     name = (char *) alloca (XSTRING (filename)->size +
  489. *** emacs-18.58/src/filemode.c    1992/02/21 11:18:24
  490. --- GNUEMACS:src/filemode.c    1992/02/23 10:30:44
  491. ***************
  492. *** 70,75 ****
  493. --- 70,89 ----
  494.   
  495.   #define VOID void
  496.   
  497. + #ifdef AMIGA
  498. + VOID
  499. + filemodestring (s,a)
  500. +    struct stat    *s;
  501. +    char *a;
  502. + {
  503. +    a[0] = s->st_mode & S_IFDIR ? 'd' : '-';
  504. +    a[7] = a[4] = a[1] = s->st_mode & S_IREAD ? 'r' : '-';
  505. +    a[8] = a[5] = a[2] = s->st_mode & S_IREAD ? 'w' : '-';
  506. +    a[9] = a[6] = a[3] = s->st_mode & S_IREAD ? 'x' : '-';
  507. + }
  508. + 
  509. + #else /* not AMIGA */
  510. + 
  511.   static char ftypelet ();
  512.   static VOID rwx (), setst ();
  513.   
  514. ***************
  515. *** 193,195 ****
  516. --- 207,210 ----
  517.         chars[9] = 't';
  518.   #endif
  519.   }
  520. + #endif /* not AMIGA */
  521. *** emacs-18.58/src/tparam.c    1992/02/21 11:21:03
  522. --- GNUEMACS:src/tparam.c    1992/05/13 23:07:01
  523. ***************
  524. *** 258,264 ****
  525.     return outstring;
  526.   }
  527.   
  528. ! #ifdef DEBUG
  529.   
  530.   main (argc, argv)
  531.        int argc;
  532. --- 258,264 ----
  533.     return outstring;
  534.   }
  535.   
  536. ! #ifdef TPARAM_DEBUG
  537.   
  538.   main (argc, argv)
  539.        int argc;
  540. ***************
  541. *** 274,277 ****
  542.     return 0;
  543.   }
  544.   
  545. ! #endif /* DEBUG */
  546. --- 274,277 ----
  547.     return 0;
  548.   }
  549.   
  550. ! #endif /* TPARAM_DEBUG */
  551. *** emacs-18.58/src/xdisp.c    1992/02/21 11:21:03
  552. --- GNUEMACS:src/xdisp.c    1992/04/19 10:42:36
  553. ***************
  554. *** 31,36 ****
  555. --- 31,49 ----
  556.   #include "commands.h"
  557.   #include "macros.h"
  558.   
  559. + #ifdef FAST_DISPLAY
  560. + #define MAX_WIN_LINE 64
  561. + static int win_line_bufpos[MAX_WIN_LINE];
  562. + static int win_line_modified;
  563. + static struct buffer *win_line_buffer;
  564. + #define CLEAR_WIN_LINE() (win_line_buffer = 0)
  565. + #endif
  566. + 
  567. + #ifdef EIGHT_BIT
  568. + char visible[256];        /* visible[i] is true if character i is
  569. +                    displayable */
  570. + #endif
  571. + 
  572.   extern int interrupt_input;
  573.   extern int command_loop_level;
  574.   
  575. ***************
  576. *** 263,269 ****
  577. --- 276,289 ----
  578.       windows_or_buffers_changed++;
  579.   
  580.     if (EQ (minibuf_window, selected_window))
  581. + #ifdef FAST_DISPLAY
  582. +     {
  583. +       this_line_bufpos = 0;
  584. +       CLEAR_WIN_LINE();
  585. +     }
  586. + #else
  587.       this_line_bufpos = 0;
  588. + #endif
  589.   
  590.     prev_echo_area_contents = echo_area_contents;
  591.   }
  592. ***************
  593. *** 315,320 ****
  594. --- 335,344 ----
  595.         must_finish = 1;
  596.       }
  597.   
  598. + #ifdef FAST_DISPLAY
  599. +   if (windows_or_buffers_changed) CLEAR_WIN_LINE();
  600. + #endif
  601. + 
  602.     if (clip_changed || windows_or_buffers_changed)
  603.       update_mode_lines++;
  604.   
  605. ***************
  606. *** 441,446 ****
  607. --- 465,473 ----
  608.        Also, don't forget to check every line to update the arrow.  */
  609.     if (pause)
  610.       {
  611. + #ifdef FAST_DISPLAY
  612. +       CLEAR_WIN_LINE();
  613. + #endif
  614.         this_line_bufpos = 0;
  615.         if (!NULL (last_arrow_position))
  616.       {
  617. ***************
  618. *** 693,701 ****
  619. --- 720,754 ----
  620.         && (just_this_one || XFASTINT (w->width) == screen_width)
  621.         && !EQ (window, minibuf_window))
  622.       {
  623. + #ifdef FAST_DISPLAY
  624. +       int *wlb;
  625. +       int line, best_startp, best_vpos;
  626. + 
  627. +       best_startp = startp; best_vpos = 0;
  628. +       if (win_line_buffer && BUF_MODIFF(win_line_buffer) > win_line_modified)
  629. +       CLEAR_WIN_LINE();
  630. +       if (current_buffer == win_line_buffer && current_buffer == XBUFFER (w->buffer))
  631. +         {
  632. +       /* Try & find line to start from */
  633. +       wlb = win_line_bufpos; line = 0;
  634. +       while (line < MAX_WIN_LINE)
  635. +         {
  636. +           if (*wlb && point > *wlb && *wlb > best_startp)
  637. +             {
  638. +           best_startp = *wlb;
  639. +           best_vpos = line;
  640. +             }
  641. +           line++; wlb++;
  642. +         }
  643. +         }
  644. +       pos = *compute_motion (best_startp, best_vpos, (hscroll ? 1 - hscroll : 0),
  645. +                 point, height + 1, 10000, width, hscroll,
  646. +                 pos_tab_offset (w, startp));
  647. + #else /* not FAST_DISPLAY */
  648.         pos = *compute_motion (startp, 0, (hscroll ? 1 - hscroll : 0),
  649.                   point, height + 1, 10000, width, hscroll,
  650.                   pos_tab_offset (w, startp));
  651. + #endif /* not FAST_DISPLAY */
  652.   
  653.         if (pos.vpos < height)
  654.       {
  655. ***************
  656. *** 827,832 ****
  657. --- 880,889 ----
  658.   
  659.     struct position val;
  660.   
  661. + #ifdef FAST_DISPLAY
  662. +   if (XBUFFER(w->buffer) == win_line_buffer) CLEAR_WIN_LINE();
  663. + #endif
  664. + 
  665.     Fset_marker (w->start, make_number (pos), Qnil);
  666.   
  667.     point_vpos = -1;
  668. ***************
  669. *** 890,895 ****
  670. --- 947,956 ----
  671.     int delta;
  672.     int tab_offset, epto;
  673.   
  674. + #ifdef FAST_DISPLAY
  675. +   if (XBUFFER(w->buffer) == win_line_buffer) CLEAR_WIN_LINE();
  676. + #endif
  677. + 
  678.     if (GPT - BEG < beg_unchanged)
  679.       beg_unchanged = GPT - BEG;
  680.     if (Z - GPT < end_unchanged)
  681. ***************
  682. *** 1260,1266 ****
  683. --- 1321,1332 ----
  684.     int end;
  685.     register int pause;
  686.     register unsigned char *p;
  687. + #ifdef FAST_DISPLAY
  688. +   register long _endp;
  689. + #define endp ((char *)_endp)
  690. + #else
  691.     unsigned char *endp;
  692. + #endif
  693.     register unsigned char *startp;
  694.     register unsigned char *p1prev;
  695.     int tab_width = XINT (current_buffer->tab_width);
  696. ***************
  697. *** 1299,1305 ****
  698. --- 1365,1375 ----
  699.     end = ZV;
  700.   
  701.     startp = new_screen->contents[vpos] + XFASTINT (w->left);
  702. + #ifdef FAST_DISPLAY
  703. +   _endp = (long)startp + width;
  704. + #else
  705.     endp = startp + width;
  706. + #endif
  707.   
  708.     /* Loop generating characters.
  709.      Stop at end of buffer, before newline,
  710. ***************
  711. *** 1308,1313 ****
  712. --- 1378,1386 ----
  713.     pause = pos;
  714.     while (p1 < endp)
  715.       {
  716. + #ifdef FAST_DISPLAY
  717. + restart:
  718. + #endif
  719.         p1prev = p1;
  720.         if (pos == pause)
  721.       {
  722. ***************
  723. *** 1328,1334 ****
  724. --- 1401,1446 ----
  725.         p = &FETCH_CHAR (pos);
  726.       }
  727.         c = *p++;
  728. + #ifdef EIGHT_BIT
  729. +       if (visible[c])
  730. + #else
  731.         if (c >= 040 && c < 0177)
  732. + #endif
  733. + #ifdef FAST_DISPLAY
  734. +       /* This optimises the frequent part (displayable characters) of
  735. +      this inner loop. If the conditions aren't met, return to old
  736. +      inner loop. */
  737. +         {
  738. +       if (p1 >= startp)
  739. +         {
  740. +           do
  741. +             {
  742. +           *p1++ = c;
  743. +           pos++;
  744. +           if (p1 >= endp)
  745. +             {
  746. +               p1prev = p1 - 1;
  747. +               goto done;
  748. +             }
  749. +           if (pos == pause) goto restart;
  750. +           c = *p++;
  751. +             }
  752. + #ifdef EIGHT_BIT
  753. +           while (visible[c]);
  754. + #else
  755. +           while (c >= 040 && c < 0177);
  756. + #endif
  757. +           p1prev = p1;
  758. +         }
  759. +       else
  760. +         {
  761. +           p1++;
  762. +           pos++;
  763. +           goto restart;
  764. +         }
  765. +         }
  766. +       if (c == '\n')
  767. + #else /* not FAST_DISPLAY */
  768.       {
  769.         if (p1 >= startp)
  770.           *p1 = c;
  771. ***************
  772. *** 1335,1340 ****
  773. --- 1447,1453 ----
  774.         p1++;
  775.       }
  776.         else if (c == '\n')
  777. + #endif
  778.       {
  779.         invis = 0;
  780.         while (pos < end
  781. ***************
  782. *** 1408,1413 ****
  783. --- 1521,1529 ----
  784.       }
  785.         pos++;
  786.       }
  787. + #ifdef FAST_DISPLAY
  788. + done:
  789. + #endif
  790.   
  791.     val.hpos = - XINT (w->hscroll);
  792.     if (val.hpos)
  793. ***************
  794. *** 1495,1500 ****
  795. --- 1611,1637 ----
  796.           this_line_bufpos = 0;
  797.       }
  798.       }
  799. + #ifdef FAST_DISPLAY
  800. +   /* Save positions of all lines of current window */
  801. +   if (w == XWINDOW(selected_window) && vpos < MAX_WIN_LINE)
  802. +   {
  803. +       /* Line is not continued and did not start in middle of character */
  804. +       if (hpos == (XINT (w->hscroll) ? 1 - XINT (w->hscroll) : 0)
  805. +       && val.vpos)
  806. +       {
  807. +       if (current_buffer != win_line_buffer ||
  808. +           !(win_line_modified >= MODIFF))
  809. +       {
  810. +           win_line_buffer = current_buffer;
  811. +           win_line_modified = MODIFF;
  812. +           bzero(win_line_bufpos, sizeof win_line_bufpos);
  813. +       }
  814. +       win_line_bufpos[vpos - XINT (w->top)] = start;
  815. +       }
  816. +       else
  817. +       win_line_bufpos[vpos - XINT (w->top)] = 0;
  818. +   }
  819. + #endif /* FAST_DISPLAY */
  820.   
  821.     /* If hscroll and line not empty, insert truncation-at-left marker */
  822.     if (hscroll && lastpos != start)
  823. ***************
  824. *** 1506,1512 ****
  825. --- 1643,1653 ----
  826.   
  827.     if (XFASTINT (w->width) + XFASTINT (w->left) != screen_width)
  828.       {
  829. + #ifdef FAST_DISPLAY
  830. +       _endp++;
  831. + #else
  832.         endp++;
  833. + #endif
  834.         if (p1 < startp) p1 = startp;
  835.         while (p1 < endp) *p1++ = ' ';
  836.         *p1++ = '|';
  837. ***************
  838. *** 1535,1540 ****
  839. --- 1676,1684 ----
  840.     val.bufpos = pos;
  841.     val_display_text_line = val;
  842.     return &val_display_text_line;
  843. + #ifdef FAST_DISPLAY
  844. + #undef endp
  845. + #endif
  846.   }
  847.   
  848.   /* Display the mode line for window w */
  849. ***************
  850. *** 1960,1966 ****
  851. --- 2104,2114 ----
  852.       {
  853.         c = *string++;
  854.         if (!c) break;
  855. + #ifdef EIGHT_BIT
  856. +       if (visible[c])
  857. + #else
  858.         if (c >= 040 && c < 0177)
  859. + #endif
  860.       {
  861.         if (p1 >= start)
  862.           *p1 = c;
  863. ***************
  864. *** 2075,2081 ****
  865. --- 2223,2235 ----
  866.     register
  867.   #endif COMPILER_REGISTER_BUG
  868.       struct window *mini_w;
  869. + #ifdef EIGHT_BIT
  870. +   int i;
  871. + #endif
  872.   
  873. + #ifdef FAST_DISPLAY
  874. +   CLEAR_WIN_LINE();
  875. + #endif
  876.     this_line_bufpos = 0;
  877.   
  878.     mini_w = XWINDOW (minibuf_window);
  879. ***************
  880. *** 2094,2097 ****
  881. --- 2248,2257 ----
  882.         XFASTINT (XWINDOW (root_window)->width) = screen_width;
  883.         XFASTINT (mini_w->width) = screen_width;
  884.       }
  885. + #ifdef EIGHT_BIT
  886. +   for (i = 040; i < 0177; i++) visible[i] = 1;
  887. + #ifdef AMIGA
  888. +   for (i = 0240; i <= 0377; i++) visible[i] = 1;
  889. + #endif
  890. + #endif
  891.   }
  892. *** emacs-18.58/src/keyboard.c    1992/02/21 11:18:24
  893. --- GNUEMACS:src/keyboard.c    1992/05/02 17:35:08
  894. ***************
  895. *** 1151,1156 ****
  896. --- 1151,1167 ----
  897.   #endif /* not SIGIO */
  898.   #endif /* subprocesses */
  899.   
  900. + #ifdef    AMIGA
  901. +       set_waiting_for_input (0);
  902. +       amiga_consume_input(this_command_key_count == 0);
  903. +       if (!kbd_count)
  904. +       {
  905. +           amiga_wait_for_input();
  906. +           amiga_consume_input(this_command_key_count == 0);
  907. +       }
  908. +       clear_waiting_for_input ();
  909. + #endif    /* AMIGA */
  910. + 
  911.         if (!interrupt_input && !kbd_count)
  912.           {
  913.             read_avail_input (0);
  914. ***************
  915. *** 1254,1259 ****
  916. --- 1265,1275 ----
  917.   read_avail_input (nread)
  918.        int nread;
  919.   {
  920. + #ifdef    AMIGA    /* This is where the input work finally gets done */
  921. +   /* Note, The nread != 0 case isn't handled as it doesn't arise on the Amiga.
  922. +      (Look carefully at calls to read_avail_input) */
  923. +   amiga_consume_input(FALSE);
  924. + #else    /* AMIGA */
  925.     /* This function is not used on VMS.  */
  926.   #ifndef VMS
  927.     char buf[256 * BUFFER_SIZE_FACTOR];
  928. ***************
  929. *** 1328,1333 ****
  930. --- 1344,1350 ----
  931.       break;
  932.       }
  933.   #endif /* not VMS */
  934. + #endif /* not AMIGA */
  935.   }
  936.   
  937.   #ifdef SIGIO   /* for entire page */
  938. ***************
  939. *** 1576,1581 ****
  940. --- 1593,1605 ----
  941.         nextlocal = Qnil;
  942.         nextglobal = Qnil;
  943.   
  944. + #ifdef AMIGA
  945. +       /* Gross hack so that C-\ sequences are always handled, even in local
  946. +      modes that redefine C-\ (like View).
  947. +      This is necessary because some sequences (like C-\ A, ARexx event)
  948. +      must always be dealt with. */
  949. +       if (c == '\034') local = Qnil;
  950. + #endif
  951.         read_key_sequence_cmd = !NULL (local) ? local : global;
  952.   
  953.         /* trace symbols to their function definitions */
  954. *** emacs-18.58/src/alloca.c    1992/02/21 11:18:24
  955. --- GNUEMACS:src/alloca.c    1992/03/01 11:35:25
  956. ***************
  957. *** 72,78 ****
  958.   #define    STACK_DIRECTION    0        /* direction unknown */
  959.   #endif
  960.   
  961. ! #if STACK_DIRECTION != 0
  962.   
  963.   #define    STACK_DIR    STACK_DIRECTION    /* known at compile-time */
  964.   
  965. --- 72,78 ----
  966.   #define    STACK_DIRECTION    0        /* direction unknown */
  967.   #endif
  968.   
  969. ! #if (STACK_DIRECTION) != 0
  970.   
  971.   #define    STACK_DIR    STACK_DIRECTION    /* known at compile-time */
  972.   
  973. ***************
  974. *** 143,148 ****
  975. --- 143,151 ----
  976.   {
  977.     auto char    probe;        /* probes stack depth: */
  978.     register char    *depth = &probe;
  979. + #ifdef AMIGA_DUMP
  980. +   extern int alloca_calling;
  981. + #endif
  982.   
  983.   #if STACK_DIRECTION == 0
  984.     if (STACK_DIR == 0)        /* unknown growth direction */
  985. ***************
  986. *** 176,185 ****
  987. --- 179,194 ----
  988.   
  989.     /* Allocate combined header + user data storage. */
  990.   
  991. + #ifdef AMIGA_DUMP
  992. +   alloca_calling = 1;
  993. + #endif
  994.     {
  995.       register pointer    new = xmalloc (sizeof (header) + size);
  996.       /* address of header */
  997.   
  998. + #ifdef AMIGA_DUMP
  999. +   alloca_calling = 0;
  1000. + #endif
  1001.       ((header *)new)->h.next = last_alloca_header;
  1002.       ((header *)new)->h.deep = depth;
  1003.   
  1004. *** emacs-18.58/src/callproc.c    1992/02/21 11:18:24
  1005. --- GNUEMACS:src/callproc.c    1992/04/29 21:39:06
  1006. ***************
  1007. *** 126,132 ****
  1008. --- 126,136 ----
  1009.   #ifdef VMS
  1010.       args[1] = build_string ("NLA0:");
  1011.   #else
  1012. + #ifdef AMIGA
  1013. +     args[1] = build_string ("NIL:");
  1014. + #else
  1015.       args[1] = build_string ("/dev/null");
  1016. + #ednif /* not AMIGA */
  1017.   #endif /* not VMS */
  1018.     else
  1019.       args[1] = Fexpand_file_name (args[1], current_buffer->directory);
  1020. ***************
  1021. *** 178,184 ****
  1022. --- 182,192 ----
  1023.   #ifdef VMS
  1024.       fd[1] = open ("NLA0:", 0), fd[0] = -1;
  1025.   #else
  1026. + #ifdef AMIGA
  1027. +     fd[1] = open ("NIL:", O_WRONLY), fd[0] = -1;
  1028. + #else  
  1029.       fd[1] = open ("/dev/null", O_WRONLY), fd[0] = -1;
  1030. + #endif /* not AMIGA */
  1031.   #endif /* not VMS */
  1032.     else
  1033.       {
  1034. ***************
  1035. *** 192,197 ****
  1036. --- 200,221 ----
  1037.     synch_process_death = 0;
  1038.     synch_process_retcode = 0;
  1039.   
  1040. + #ifdef AMIGA
  1041. +   {
  1042. +     register unsigned char *temp;
  1043. + 
  1044. +     if (XTYPE (current_buffer->directory) == Lisp_String)
  1045. +       {
  1046. +     register int i;
  1047. + 
  1048. +     i = XSTRING (current_buffer->directory)->size;
  1049. +     temp = (unsigned char *) alloca (i + 1);
  1050. +     bcopy (XSTRING (current_buffer->directory)->data, temp, i);
  1051. +     temp[i] = 0;
  1052. +       }
  1053. +     pid = exec(new_argv[0], new_argv, filefd, fd[1], temp);
  1054. +   }
  1055. + #else  
  1056.     {
  1057.       /* child_setup must clobber environ in systems with true vfork.
  1058.          Protect it from permanent change.  */
  1059. ***************
  1060. *** 229,234 ****
  1061. --- 253,259 ----
  1062.       close (filefd);
  1063.       close (fd1);
  1064.     }
  1065. + #endif /* not AMIGA */
  1066.   
  1067.     if (pid < 0)
  1068.       {
  1069. ***************
  1070. *** 300,306 ****
  1071. --- 325,335 ----
  1072.     register Lisp_Object filename_string, start, end;
  1073.     char tempfile[20];
  1074.   
  1075. + #ifdef AMIGA
  1076. +   strcpy (tempfile, "t:emacsXXXXXX");
  1077. + #else
  1078.     strcpy (tempfile, "/tmp/emacsXXXXXX");
  1079. + #endif
  1080.     mktemp (tempfile);
  1081.   
  1082.     filename_string = build_string (tempfile);
  1083. ***************
  1084. *** 316,321 ****
  1085. --- 345,351 ----
  1086.     unlink (tempfile);
  1087.     return Qnil;
  1088.   }
  1089. + #ifndef AMIGA
  1090.   
  1091.   /* This is the last thing run in a newly forked inferior
  1092.      either synchronous or asynchronous.
  1093. ***************
  1094. *** 423,428 ****
  1095. --- 453,459 ----
  1096.     write (1, new_argv[0], strlen (new_argv[0]));
  1097.     _exit (1);
  1098.   }
  1099. + #endif /* not AMIGA */
  1100.   
  1101.   init_callproc ()
  1102.   {
  1103. ***************
  1104. *** 435,440 ****
  1105. --- 466,479 ----
  1106.     Vexec_path = decode_env_path (0, PATH_EXEC);
  1107.     Vexec_directory = Ffile_name_as_directory (Fcar (Vexec_path));
  1108.     Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path);
  1109. + #ifdef AMIGA
  1110. +   {
  1111. +     char *amiga_path(), *apath = amiga_path();
  1112. + 
  1113. +     Vexec_path = nconc2 (decode_env_path (0, apath), Vexec_path);
  1114. +     free(apath);
  1115. +   }
  1116. + #endif  
  1117.   
  1118.     execdir = Fdirectory_file_name (Vexec_directory);
  1119.     if (access (XSTRING (execdir)->data, 0) < 0)
  1120. ***************
  1121. *** 445,451 ****
  1122. --- 484,494 ----
  1123.       }
  1124.   
  1125.     sh = (char *) egetenv ("SHELL");
  1126. + #ifdef AMIGA
  1127. +   Vshell_file_name = build_string (sh ? sh : "GNUEmacs:etc/sh");
  1128. + #else
  1129.     Vshell_file_name = build_string (sh ? sh : "/bin/sh");
  1130. + #endif
  1131.   
  1132.   #ifndef MAINTAIN_ENVIRONMENT
  1133.     /* The equivalent of this operation was done
  1134. *** emacs-18.58/src/buffer.c    1992/02/21 11:18:24
  1135. --- GNUEMACS:src/buffer.c    1992/02/23 10:26:24
  1136. ***************
  1137. *** 1140,1146 ****
  1138.   #ifndef VMS
  1139.     /* Maybe this should really use some standard subroutine
  1140.        whose definition is filename syntax dependent.  */
  1141. !   if (buf[strlen (buf) - 1] != '/')
  1142.       strcat (buf, "/");
  1143.   #endif /* not VMS */
  1144.     current_buffer->directory = build_string (buf);
  1145. --- 1140,1150 ----
  1146.   #ifndef VMS
  1147.     /* Maybe this should really use some standard subroutine
  1148.        whose definition is filename syntax dependent.  */
  1149. !   if (buf[strlen (buf) - 1] != '/'
  1150. ! #ifdef AMIGA
  1151. ! && buf[strlen (buf) -1] != ':'
  1152. ! #endif /*AMIGA  */
  1153. ! )
  1154.       strcat (buf, "/");
  1155.   #endif /* not VMS */
  1156.     current_buffer->directory = build_string (buf);
  1157. *** emacs-18.58/src/keymap.c    1992/02/21 11:18:24
  1158. --- GNUEMACS:src/keymap.c    1992/02/23 11:01:10
  1159. ***************
  1160. *** 29,34 ****
  1161. --- 29,38 ----
  1162.   
  1163.   /* Actually allocate storage for these variables */
  1164.   
  1165. + #ifdef AMIGA
  1166. + #define HAVE_X_WINDOWS        /* We want the mouse map too */
  1167. + #endif
  1168. + 
  1169.   #ifdef HAVE_X_WINDOWS
  1170.   Lisp_Object MouseMap;        /* Keymap for mouse commands */
  1171.   #endif /* HAVE_X_WINDOWS */
  1172. *** emacs-18.58/src/fileio.c    1992/02/21 11:18:24
  1173. --- GNUEMACS:src/fileio.c    1992/02/23 10:29:59
  1174. ***************
  1175. *** 147,152 ****
  1176. --- 147,155 ----
  1177.     p = beg + XSTRING (file)->size;
  1178.   
  1179.     while (p != beg && p[-1] != '/'
  1180. + #ifdef    AMIGA
  1181. +          && p[-1] != ':'
  1182. + #endif    /* AMIGA */
  1183.   #ifdef VMS
  1184.        && p[-1] != ':' && p[-1] != ']' && p[-1] != '>'
  1185.   #endif /* VMS */
  1186. ***************
  1187. *** 174,179 ****
  1188. --- 177,185 ----
  1189.     end = p = beg + XSTRING (file)->size;
  1190.   
  1191.     while (p != beg && p[-1] != '/'
  1192. + #ifdef    AMIGA
  1193. +          && p[-1] != ':'
  1194. + #endif    /* AMIGA */
  1195.   #ifdef VMS
  1196.        && p[-1] != ':' && p[-1] != ']' && p[-1] != '>'
  1197.   #endif /* VMS */
  1198. ***************
  1199. *** 248,256 ****
  1200. --- 254,268 ----
  1201.         out[size] = '\0';
  1202.       }
  1203.   #else /* not VMS */
  1204. + #ifdef    AMIGA
  1205. +   /* AmigaDOS syntax, append slash if the last char isn't a ':' or '/' */
  1206. +   if (out[size] != '/' && out[size] != ':' && size != 0)
  1207. +     strcat (out, "/");
  1208. + #else    /* not AMIGA */
  1209.     /* For Unix syntax, Append a slash if necessary */
  1210.     if (out[size] != '/')
  1211.       strcat (out, "/");
  1212. + #endif /* not AMIGA */
  1213.   #endif /* not VMS */
  1214.     return out;
  1215.   }
  1216. ***************
  1217. *** 462,467 ****
  1218. --- 474,578 ----
  1219.        (name, defalt)
  1220.        Lisp_Object name, defalt;
  1221.   {
  1222. + #ifdef AMIGA
  1223. +   unsigned char *nm, *tilde, *newdir, *colon, *t_pos, *target;
  1224. + 
  1225. +   CHECK_STRING (name, 0);
  1226. + 
  1227. +   nm = XSTRING (name)->data;
  1228. +   /* Find base directory */
  1229. +   if (NULL (defalt))
  1230. +       defalt = current_buffer->directory;
  1231. +   CHECK_STRING (defalt, 1);
  1232. +   newdir = XSTRING (defalt)->data;
  1233. + 
  1234. +   /* Concat newdir w/ nm and canonicalize */
  1235. +   /* newdir always contains at least the device name.
  1236. +      It is assumed canonical */
  1237. +   target = (unsigned char *)alloca(strlen(nm) + strlen(newdir) + 2);
  1238. +   file_name_as_directory (target, newdir);
  1239. +   t_pos = target + strlen(target);
  1240. + 
  1241. +   while (*nm)
  1242. +   {
  1243. +       unsigned char *comp_end = nm;
  1244. +       int comp_len;
  1245. + 
  1246. +       /* Find next component of path (everything upto the next /) */
  1247. +       do comp_end++; while (comp_end[0] && comp_end[-1] != '/' && comp_end[-1] != ':');
  1248. +       comp_len = comp_end - nm;
  1249. + 
  1250. +       if (comp_len == 1 && nm[0] == '/' ||
  1251. +       nm[0] == '.' && nm[1] == '.' &&
  1252. +       (comp_len == 2 || comp_len == 3 && nm[2] == '/'))
  1253. +       {
  1254. +       /* Previous directory */
  1255. +       if (t_pos > target && t_pos[-1] != ':')
  1256. +       {
  1257. +           t_pos--; /* Back up over / */
  1258. +           while (t_pos > target &&
  1259. +              t_pos[-1] != ':' && t_pos[-1] != '/') t_pos--;
  1260. +       }
  1261. +       }
  1262. +       else if (comp_len == 2 && nm[0] == '.' && nm[1] == '/' ||
  1263. +            comp_len == 1 && nm[0] == '.') ; /* Ignore . */
  1264. +       else if (nm[0] == ':') /* Just keep disk name */
  1265. +       {
  1266. +       char *new_pos;
  1267. + 
  1268. +       *t_pos = 0; /* Limit search for : */
  1269. +       t_pos = index(target, ':');
  1270. +       if (t_pos) t_pos++;
  1271. +       else t_pos = target;
  1272. +       }
  1273. +       else if (nm[0] == '~' || index(nm, ':'))
  1274. +       {
  1275. +       char *exp_name;
  1276. + 
  1277. +       if (nm[0] == '~')
  1278. +           if (nm[1] == '/' || nm[1] == 0) /* Home directory */
  1279. +           {
  1280. +           newdir = (unsigned char *) egetenv ("HOME");
  1281. +           if (!newdir) newdir = (unsigned char *) "s:";
  1282. +           }
  1283. +           else
  1284. +           {
  1285. +           /* Handle ~ followed by user name.  */
  1286. +           char lastc = nm[comp_len - 1];
  1287. +           int len = comp_len - 1;
  1288. + 
  1289. +           if (lastc == ':' || lastc == '/') len--;
  1290. + 
  1291. +           /* ~name becomes name: */
  1292. +           newdir = (unsigned char *) alloca (len + 2);
  1293. +           bcopy((char *) nm + 1, newdir, len);
  1294. +           newdir[len] = ':';
  1295. +           newdir[len + 1] = 0;
  1296. +           }
  1297. +       else /* we have name: */
  1298. +       {
  1299. +           newdir = (char *)alloca(comp_len + 1);
  1300. +           bcopy(nm, newdir, comp_len);
  1301. +           newdir[comp_len] = 0;
  1302. +       }
  1303. +       exp_name = (char *)alloca(1024);
  1304. +       if (expand_path(newdir, exp_name, 1024))
  1305. +           if (strncmp(exp_name, "Tao:", 4) != 0) /* Hack for WShell PATH: */
  1306. +           newdir = exp_name;
  1307. +       target = (unsigned char *)alloca(strlen(nm) + strlen(newdir) + 2);
  1308. +       file_name_as_directory (target, newdir);
  1309. +       t_pos = target + strlen(target);
  1310. +       }
  1311. +       else /* Copy component */
  1312. +       {
  1313. +       bcopy(nm, t_pos, comp_len);
  1314. +       t_pos += comp_len;
  1315. +       }
  1316. + 
  1317. +       nm = comp_end;
  1318. +   }
  1319. +   return make_string (target, t_pos - target);
  1320. + #else /* not AMIGA */
  1321.     unsigned char *nm;
  1322.     
  1323.     register unsigned char *newdir, *p, *o;
  1324. ***************
  1325. *** 793,798 ****
  1326. --- 904,910 ----
  1327.       }
  1328.   
  1329.     return make_string (target, o - target);
  1330. + #endif /* not AMIGA */
  1331.   }
  1332.   
  1333.   DEFUN ("substitute-in-file-name", Fsubstitute_in_file_name,
  1334. ***************
  1335. *** 823,828 ****
  1336. --- 935,957 ----
  1337.   
  1338.     for (p = nm; p != endp; p++)
  1339.       {
  1340. + #ifdef AMIGA
  1341. +       if (p[0] == '~' && p != nm && p[-1] == '/')
  1342. +     {
  1343. +         nm = p;
  1344. +         substituted = 1;
  1345. +     }
  1346. +       else if (p[0] == ':')
  1347. +     {
  1348. +           char *p2 = p;
  1349. +       while (p2 > nm && p2[-1] != ':' && p2[-1] != '/') p2--;
  1350. +       if (p2 != nm)
  1351. +         {
  1352. +           nm = p2;
  1353. +           substituted = 1;
  1354. +         }
  1355. +     }
  1356. + #else /* not AMIGA */
  1357.         if ((p[0] == '~' ||
  1358.   #ifdef APOLLO
  1359.          /* // at start of file name is meaningful in Apollo system */
  1360. ***************
  1361. *** 843,848 ****
  1362. --- 972,978 ----
  1363.         nm = p;
  1364.         substituted = 1;
  1365.       }
  1366. + #endif /* not AMIGA */
  1367.       }
  1368.   
  1369.   #ifdef VMS
  1370. ***************
  1371. *** 1351,1356 ****
  1372. --- 1481,1493 ----
  1373.   
  1374.     CHECK_STRING (filename, 0);
  1375.     ptr = XSTRING (filename)->data;
  1376. + #ifdef    AMIGA
  1377. +   /* An absolute filename has a non-leading ':' in it */
  1378. +   if (*ptr != ':')
  1379. +       while (*ptr)
  1380. +       if (*ptr++ == ':') return Qt;
  1381. +   return Qnil;
  1382. + #else    /* not AMIGA */
  1383.     if (*ptr == '/' || *ptr == '~'
  1384.   #ifdef VMS
  1385.   /* ??? This criterion is probably wrong for '<'.  */
  1386. ***************
  1387. *** 1362,1367 ****
  1388. --- 1499,1505 ----
  1389.       return Qt;
  1390.     else
  1391.       return Qnil;
  1392. + #endif /* not AMIGA */
  1393.   }
  1394.   
  1395.   DEFUN ("file-exists-p", Ffile_exists_p, Sfile_exists_p, 1, 1, 0,
  1396. ***************
  1397. *** 1486,1492 ****
  1398. --- 1624,1634 ----
  1399.   
  1400.     if (stat (XSTRING (abspath)->data, &st) < 0)
  1401.       return Qnil;
  1402. + #ifdef AMIGA
  1403. +   return make_number (st.st_mode & ~S_IFMT);
  1404. + #else
  1405.     return make_number (st.st_mode & 07777);
  1406. + #endif
  1407.   }
  1408.   
  1409.   DEFUN ("set-file-modes", Fset_file_modes, Sset_file_modes, 2, 2, 0,
  1410. *** emacs-18.58/src/lread.c    1992/02/21 11:18:24
  1411. --- GNUEMACS:src/lread.c    1992/03/01 11:35:25
  1412. ***************
  1413. *** 238,248 ****
  1414. --- 238,252 ----
  1415.        Lisp_Object pathname;
  1416.   {
  1417.     register unsigned char *s = XSTRING (pathname)->data;
  1418. + #ifdef AMIGA
  1419. +   return (*s && index(s + 1, ':')); /* Non-leading : */
  1420. + #else
  1421.     return (*s == '~' || *s == '/'
  1422.   #ifdef VMS
  1423.         || index (s, ':')
  1424.   #endif /* VMS */
  1425.         );
  1426. + #endif /* not AMIGA */
  1427.   }
  1428.   
  1429.   /* Search for a file whose name is STR, looking in directories
  1430. ***************
  1431. *** 557,563 ****
  1432. --- 561,571 ----
  1433.   }
  1434.   
  1435.   static int read_buffer_size;
  1436. + #ifdef AMIGA_DUMP
  1437. + char *read_buffer;
  1438. + #else
  1439.   static char *read_buffer;
  1440. + #endif
  1441.   
  1442.   static Lisp_Object
  1443.   read1 (readcharfun)
  1444. *** emacs-18.58/src/emacs.c    1992/02/21 11:18:24
  1445. --- GNUEMACS:src/emacs.c    1992/05/16 21:25:46
  1446. ***************
  1447. *** 75,80 ****
  1448. --- 75,84 ----
  1449.   #endif
  1450.   #endif
  1451.   
  1452. + #ifdef AMIGA_DUMP
  1453. + #define HAVE_SHM        /* Simplifies the ifdefs */
  1454. + #endif
  1455. + 
  1456.   #ifndef O_RDWR
  1457.   #define O_RDWR 2
  1458.   #endif
  1459. ***************
  1460. *** 220,225 ****
  1461. --- 224,233 ----
  1462.     extern int errno;
  1463.     extern void malloc_warning ();
  1464.   
  1465. + #ifdef AMIGA
  1466. +   amiga_early_init(&argc, &argv);
  1467. + #endif
  1468. + 
  1469.   /* Map in shared memory, if we are using that.  */
  1470.   #ifdef HAVE_SHM
  1471.     if (argc > 1 && !strcmp (argv[1], "-nl"))
  1472. ***************
  1473. *** 292,297 ****
  1474. --- 300,319 ----
  1475.     xargc = argc;
  1476.   #endif
  1477.   
  1478. + #ifdef    AMIGA
  1479. + /* Handle the -t switch, which specifies device & unit to use as terminal */
  1480. +   if (skip_args + 3 < argc && !strcmp (argv[skip_args + 1], "-t"))
  1481. +     {
  1482. +       extern char *far serial_device;
  1483. +       extern long serial_unit;
  1484. + 
  1485. +       skip_args += 3;
  1486. +       serial_device = argv[skip_args - 1];
  1487. +       serial_unit = atoi(argv[skip_args]);
  1488. +       fprintf (stderr, "Using %s (unit %d)\n", serial_device ,serial_unit);
  1489. +       inhibit_window_system = 1;    /* -t => -nw */
  1490. +     }
  1491. + #else /* not AMIGA */
  1492.   /* Handle the -t switch, which specifies filename to use as terminal */
  1493.     if (skip_args + 2 < argc && !strcmp (argv[skip_args + 1], "-t"))
  1494.       {
  1495. ***************
  1496. *** 305,310 ****
  1497. --- 327,333 ----
  1498.         inhibit_window_system = 1;    /* -t => -nw */
  1499.   #endif
  1500.       }
  1501. + #endif /* not AMIGA */
  1502.   #ifdef HAVE_X_WINDOWS
  1503.   /* Handle the -d switch, which means use a different display for X */
  1504.     if (skip_args + 2 < argc && (!strcmp (argv[skip_args + 1], "-d") ||
  1505. ***************
  1506. *** 417,422 ****
  1507. --- 440,448 ----
  1508.         init_window_once ();    /* Init the window system */
  1509.       }
  1510.   
  1511. + #ifdef AMIGA
  1512. +   init_amiga ();
  1513. + #endif
  1514.     init_alloc ();
  1515.   #ifdef MAINTAIN_ENVIRONMENT
  1516.     init_environ ();
  1517. ***************
  1518. *** 686,692 ****
  1519. --- 712,722 ----
  1520.   #ifdef VMS
  1521.   #define SEPCHAR ','
  1522.   #else
  1523. + #ifdef AMIGA            /* Can't use : on Amiga */
  1524. + #define SEPCHAR ','
  1525. + #else
  1526.   #define SEPCHAR ':'
  1527. + #endif
  1528.   #endif
  1529.   
  1530.   Lisp_Object
  1531. *** emacs-18.58/src/lastfile.c    1992/02/21 11:18:24
  1532. --- GNUEMACS:src/lastfile.c    1992/05/13 23:07:01
  1533. ***************
  1534. *** 35,40 ****
  1535. --- 35,49 ----
  1536.    coming from libraries.
  1537.   */
  1538.   
  1539. + #ifdef AMIGA_DUMP
  1540. + /* I need to find the end of initialised and unitialised data, as well as of
  1541. +    executable code.
  1542. + */
  1543. + int last_data = 1;
  1544. + int last_bss;
  1545. + 
  1546. + void last_function() { }
  1547. + #else /* not AMIGA_DUMP */
  1548.   #ifdef VMS
  1549.   /* Prevent the file from being totally empty.  */
  1550.   static dummy () {}
  1551. ***************
  1552. *** 41,43 ****
  1553. --- 50,53 ----
  1554.   #endif
  1555.   
  1556.   char my_edata = 0;
  1557. + #endif /* not AMIGA_DUMP */
  1558. *** emacs-18.58/src/scroll.c    1992/02/21 11:21:03
  1559. --- GNUEMACS:src/scroll.c    1992/05/16 21:25:46
  1560. ***************
  1561. *** 55,60 ****
  1562. --- 55,61 ----
  1563.   int *ILncost;
  1564.   int *DLncost;
  1565.   
  1566. + #ifdef FAST_DISPLAY
  1567.   scrolling_1 (window_size, unchanged_at_top, unchanged_at_bottom,
  1568.            draw_cost, old_hash, new_hash, free_at_end)
  1569.        int window_size, unchanged_at_top, unchanged_at_bottom;
  1570. ***************
  1571. *** 63,68 ****
  1572. --- 64,127 ----
  1573.        int *new_hash;
  1574.        int free_at_end;
  1575.   {
  1576. +   int lines, i;
  1577. +   int window_end = unchanged_at_top + window_size;
  1578. + 
  1579. +   /* Rebase arrays at line 0 */
  1580. +   old_hash -= unchanged_at_top - 1;
  1581. +   new_hash -= unchanged_at_top - 1;
  1582. +   draw_cost -= unchanged_at_top - 1;
  1583. + 
  1584. +   /* We can't allow un-enabled lines to be scrolled (they are not redrawable). 
  1585. +      Restrict window to the first set of contiguous enabled lines 
  1586. +      (an enabled line has draw_cost[x] != INFINITY) */
  1587. +   for (i = unchanged_at_top; i < window_end && draw_cost[i] != INFINITY; i++) ;
  1588. +   /*unchanged_at_bottom += window_size - i;*/
  1589. +   /*window_size = i - unchanged_at_top;*/
  1590. +   window_end = i;
  1591. + 
  1592. +   if (lines = calc_scroll(old_hash, new_hash, unchanged_at_top, window_end))
  1593. +       scroll_screen_lines(unchanged_at_top, window_end - lines, lines);
  1594. +   else if (lines = calc_scroll(new_hash, old_hash, unchanged_at_top, window_end))
  1595. +       scroll_screen_lines(unchanged_at_top + lines, window_end, -lines);
  1596. + }
  1597. + 
  1598. + int calc_scroll(int *old_hash, int *new_hash, int from, int to)
  1599. + /* For insert attempt, the parameters are correct.
  1600. +    For delete attempt, swap the old & new hash parameters
  1601. + */
  1602. + {
  1603. +     int try = from + 1, lines, i;
  1604. +     int hash1 = old_hash[from];
  1605. + 
  1606. +     do
  1607. +     {
  1608. +     if (hash1 == new_hash[try])
  1609. +     {
  1610. +         /* Check if other lines match too */
  1611. +         lines = try - from; /* Amount to insert */
  1612. +         for (i = try + 1; i < to; i++)
  1613. +         if (old_hash[i - lines] != new_hash[i]) break;
  1614. +         if (i == to) /* It works ! */
  1615. +         return lines;
  1616. +     }
  1617. +     try++;
  1618. +     }
  1619. +     while (try < to);
  1620. + 
  1621. +     return 0;
  1622. + }
  1623. + 
  1624. + #else /* not FAST_DISPLAY */
  1625. + 
  1626. + scrolling_1 (window_size, unchanged_at_top, unchanged_at_bottom,
  1627. +          draw_cost, old_hash, new_hash, free_at_end)
  1628. +      int window_size, unchanged_at_top, unchanged_at_bottom;
  1629. +      int *draw_cost;
  1630. +      int *old_hash;
  1631. +      int *new_hash;
  1632. +      int free_at_end;
  1633. + {
  1634.     struct matrix_elt *matrix;
  1635.     matrix = ((struct matrix_elt *)
  1636.           alloca ((window_size + 1) * (window_size + 1) * sizeof *matrix));
  1637. ***************
  1638. *** 320,325 ****
  1639. --- 379,385 ----
  1640.     if (window)
  1641.       set_terminal_window (0);
  1642.   }
  1643. + #endif /* not FAST_DISPLAY */
  1644.   
  1645.   /* Return number of lines in common between current screen contents
  1646.      and the text to be displayed,
  1647.