home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1132 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  44.2 KB
  1. From: howard@hasse.ericsson.se (Howard Gayle)
  2. Newsgroups: alt.sources
  3. Subject: GNU Emacs 8-bit mods part 05 of 12
  4. Message-ID: <1990Apr5.133649.8863@ericsson.se>
  5. Date: 5 Apr 90 13:36:49 GMT
  6.  
  7. *** ../18.55/src/abbrev.c    Fri Dec  5 10:13:58 1986
  8. --- src/abbrev.c    Thu Apr  5 09:08:59 1990
  9. ***************
  10. *** 1,5 ****
  11.   /* Primitives for word-abbrev mode.
  12. !    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  13.   
  14.   This file is part of GNU Emacs.
  15.   
  16. --- 1,5 ----
  17.   /* Primitives for word-abbrev mode.
  18. !    Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc.
  19.   
  20.   This file is part of GNU Emacs.
  21.   
  22. ***************
  23. *** 19,30 ****
  24. --- 19,37 ----
  25.   and this notice must be preserved on all copies.  */
  26.   
  27.   
  28. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  29. +  *  See chartab.c for details. */
  30. + 
  31. + 
  32.   #include "config.h"
  33.   #include <stdio.h>
  34.   #undef NULL
  35.   #include "lisp.h"
  36. + #include "casetab.h"
  37. + #include "chartab.h"
  38.   #include "commands.h"
  39.   #include "buffer.h"
  40. + #include "transtab.h"
  41.   #include "window.h"
  42.   
  43.   /* An abbrev table is an obarray.
  44. ***************
  45. *** 222,228 ****
  46.         CHECK_NUMBER_COERCE_MARKER (tem, 0);
  47.         wordstart = XINT (tem);
  48.         Vabbrev_start_location = Qnil;
  49. !       if (CharAt (wordstart) == '-')
  50.       del_range (wordstart, wordstart + 1);
  51.       }
  52.     else
  53. --- 229,235 ----
  54.         CHECK_NUMBER_COERCE_MARKER (tem, 0);
  55.         wordstart = XINT (tem);
  56.         Vabbrev_start_location = Qnil;
  57. !       if (CharAt (wordstart) == HYPHEN)
  58.       del_range (wordstart, wordstart + 1);
  59.       }
  60.     else
  61. ***************
  62. *** 234,243 ****
  63.     for (idx = wordstart; idx < point; idx++)
  64.       {
  65.         register int c = CharAt (idx);
  66. !       if (UPPERCASEP (c))
  67. !     c = DOWNCASE (c), uccount++;
  68. !       else if (! NOCASEP (c))
  69. !     lccount++;
  70.         *p++ = c;
  71.       }
  72.   
  73. --- 241,256 ----
  74.     for (idx = wordstart; idx < point; idx++)
  75.       {
  76.         register int c = CharAt (idx);
  77. !       switch (LOCAL_CASE (c))
  78. !         {
  79. !       case lowercase_e:
  80. !         lccount++;
  81. !         break;
  82. !       case uppercase_e:
  83. !         c = LOCAL_TOLOWER (c);
  84. !         uccount++;
  85. !         break;
  86. !     }
  87.         *p++ = c;
  88.       }
  89.   
  90. *** ../18.55/src/alloc.c    Mon Feb 13 11:23:35 1989
  91. --- src/alloc.c    Thu Apr  5 09:08:58 1990
  92. ***************
  93. *** 1,5 ****
  94.   /* Storage allocation and gc for GNU Emacs Lisp interpreter.
  95. !    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  96.   
  97.   This file is part of GNU Emacs.
  98.   
  99. --- 1,5 ----
  100.   /* Storage allocation and gc for GNU Emacs Lisp interpreter.
  101. !    Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc.
  102.   
  103.   This file is part of GNU Emacs.
  104.   
  105. ***************
  106. *** 19,28 ****
  107. --- 19,33 ----
  108.   and this notice must be preserved on all copies.  */
  109.   
  110.   
  111. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  112. +  *  See chartab.c for details. */
  113. + 
  114. + 
  115.   #include "config.h"
  116.   #include "lisp.h"
  117.   #ifndef standalone
  118.   #include "buffer.h"
  119. + #include "etctab.h"
  120.   #include "window.h"
  121.   #endif
  122.   
  123. ***************
  124. *** 1058,1063 ****
  125. --- 1063,1081 ----
  126.       mark_buffer (obj);
  127.         break;
  128.   
  129. +     case Lisp_Casetab:
  130. +     case Lisp_Chartab:
  131. +     case Lisp_Sorttab:
  132. +     case Lisp_Transtab:
  133. +       {
  134. +     register struct Lisp_Etctab *ptr = XETCTAB (obj);
  135. +     register int mark = ptr->etc_ser;
  136. + 
  137. +     if (mark & ARRAY_MARK_FLAG) break;   /* Already marked */
  138. +     ptr->etc_ser |= ARRAY_MARK_FLAG; /* Else mark it */
  139. +       }
  140. +       break;
  141. + 
  142.       case Lisp_Int:
  143.       case Lisp_Void:
  144.       case Lisp_Subr:
  145. ***************
  146. *** 1095,1100 ****
  147. --- 1113,1138 ----
  148.     if (buffer->syntax_table_v)
  149.       mark_object (&tem);
  150.   
  151. +   XSET (tem, Lisp_Casetab, buffer->case_table_v);
  152. +   if (buffer->case_table_v)
  153. +     mark_object (&tem);
  154. + 
  155. +   XSET (tem, Lisp_Transtab, buffer->upcase_table_v);
  156. +   if (buffer->upcase_table_v)
  157. +     mark_object (&tem);
  158. + 
  159. +   XSET (tem, Lisp_Transtab, buffer->downcase_table_v);
  160. +   if (buffer->downcase_table_v)
  161. +     mark_object (&tem);
  162. + 
  163. +   XSET (tem, Lisp_Sorttab, buffer->case_distinct_table_v);
  164. +   if (buffer->case_distinct_table_v)
  165. +     mark_object (&tem);
  166. + 
  167. +   XSET (tem, Lisp_Sorttab, buffer->case_fold_table_v);
  168. +   if (buffer->case_fold_table_v)
  169. +     mark_object (&tem);
  170. + 
  171.     for (ptr = &buffer->name + 1;
  172.          (char *)ptr < (char *)buffer + sizeof (struct buffer);
  173.          ptr++)
  174. ***************
  175. *** 1228,1233 ****
  176. --- 1266,1292 ----
  177.       }
  178.     }
  179.   
  180. +   /* Free all unmarked etc tables */
  181. +   {
  182. +     register struct Lisp_Etctab *p = all_etc_tables, *prev = 0, *next = 0;
  183. + 
  184. +     while (p)
  185. +       if (!(p->etc_ser & ARRAY_MARK_FLAG))
  186. +     {
  187. +       if (prev)
  188. +         prev->etc_next = p->etc_next;
  189. +       else
  190. +         all_etc_tables = p->etc_next;
  191. +       next = p->etc_next;
  192. +       free (p);
  193. +       p = next;
  194. +     }
  195. +       else
  196. +     {
  197. +       p->etc_ser &= ~ARRAY_MARK_FLAG;
  198. +       prev = p, p = p->etc_next;
  199. +     }
  200. +   }
  201.   #endif standalone
  202.   
  203.     /* Free all unmarked vectors */
  204. *** ../18.55/src/buffer.c    Fri Jul 21 00:36:02 1989
  205. --- src/buffer.c    Thu Apr  5 09:08:55 1990
  206. ***************
  207. *** 1,5 ****
  208.   /* Buffer manipulation primitives for GNU Emacs.
  209. !    Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
  210.   
  211.   This file is part of GNU Emacs.
  212.   
  213. --- 1,5 ----
  214.   /* Buffer manipulation primitives for GNU Emacs.
  215. !    Copyright (C) 1985, 1986, 1987, 1988, 1990 Free Software Foundation, Inc.
  216.   
  217.   This file is part of GNU Emacs.
  218.   
  219. ***************
  220. *** 19,24 ****
  221. --- 19,28 ----
  222.   and this notice must be preserved on all copies.  */
  223.   
  224.   
  225. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  226. +  *  See chartab.c for details. */
  227. + 
  228. + 
  229.   #include <sys/param.h>
  230.   
  231.   #ifndef MAXPATHLEN
  232. ***************
  233. *** 31,36 ****
  234. --- 35,41 ----
  235.   #endif
  236.   #include "config.h"
  237.   #include "lisp.h"
  238. + #include "chartab.h"
  239.   #include "window.h"
  240.   #include "commands.h"
  241.   #include "buffer.h"
  242. ***************
  243. *** 257,263 ****
  244.     b->mode_name = QSFundamental;
  245.     b->minor_modes = Qnil;
  246.     b->syntax_table_v = XVECTOR (Vstandard_syntax_table);
  247. ! 
  248.     /* Reset all per-buffer variables to their defaults.  */
  249.     b->local_var_alist = Qnil;
  250.     b->local_var_flags = 0;
  251. --- 262,272 ----
  252.     b->mode_name = QSFundamental;
  253.     b->minor_modes = Qnil;
  254.     b->syntax_table_v = XVECTOR (Vstandard_syntax_table);
  255. !   b->case_table_v = buffer_defaults.case_table_v;
  256. !   b->downcase_table_v = buffer_defaults.downcase_table_v;
  257. !   b->upcase_table_v = buffer_defaults.upcase_table_v;
  258. !   b->case_distinct_table_v = buffer_defaults.case_distinct_table_v;
  259. !   b->case_fold_table_v = buffer_defaults.case_fold_table_v;
  260.     /* Reset all per-buffer variables to their defaults.  */
  261.     b->local_var_alist = Qnil;
  262.     b->local_var_flags = 0;
  263. ***************
  264. *** 1090,1105 ****
  265.     /* real setup is done in loaddefs.el */
  266.     buffer_defaults.mode_line_format = build_string ("%-");
  267.     buffer_defaults.abbrev_mode = Qnil;
  268.     buffer_defaults.overwrite_mode = Qnil;
  269.     buffer_defaults.case_fold_search = Qt;
  270.     buffer_defaults.auto_fill_hook = Qnil;
  271.     buffer_defaults.selective_display = Qnil;
  272. -   buffer_defaults.selective_display_ellipses = Qt;
  273.     buffer_defaults.abbrev_table = Qnil;
  274.   
  275.     XFASTINT (buffer_defaults.tab_width) = 8;
  276.     buffer_defaults.truncate_lines = Qnil;
  277. -   buffer_defaults.ctl_arrow = Qt;
  278.   
  279.     XFASTINT (buffer_defaults.fill_column) = 70;
  280.     XFASTINT (buffer_defaults.left_margin) = 0;
  281. --- 1099,1113 ----
  282.     /* real setup is done in loaddefs.el */
  283.     buffer_defaults.mode_line_format = build_string ("%-");
  284.     buffer_defaults.abbrev_mode = Qnil;
  285. +   buffer_defaults.buffer_char_table = Vctl_arrow_char_table;
  286.     buffer_defaults.overwrite_mode = Qnil;
  287.     buffer_defaults.case_fold_search = Qt;
  288.     buffer_defaults.auto_fill_hook = Qnil;
  289.     buffer_defaults.selective_display = Qnil;
  290.     buffer_defaults.abbrev_table = Qnil;
  291.   
  292.     XFASTINT (buffer_defaults.tab_width) = 8;
  293.     buffer_defaults.truncate_lines = Qnil;
  294.   
  295.     XFASTINT (buffer_defaults.fill_column) = 70;
  296.     XFASTINT (buffer_defaults.left_margin) = 0;
  297. ***************
  298. *** 1129,1138 ****
  299.     XFASTINT (buffer_local_flags.case_fold_search) = 8;
  300.     XFASTINT (buffer_local_flags.auto_fill_hook) = 0x10;
  301.     XFASTINT (buffer_local_flags.selective_display) = 0x20;
  302. !   XFASTINT (buffer_local_flags.selective_display_ellipses) = 0x40;
  303.     XFASTINT (buffer_local_flags.tab_width) = 0x80;
  304.     XFASTINT (buffer_local_flags.truncate_lines) = 0x100;
  305. !   XFASTINT (buffer_local_flags.ctl_arrow) = 0x200;
  306.     XFASTINT (buffer_local_flags.fill_column) = 0x400;
  307.     XFASTINT (buffer_local_flags.left_margin) = 0x800;
  308.     XFASTINT (buffer_local_flags.abbrev_table) = 0x1000;
  309. --- 1137,1146 ----
  310.     XFASTINT (buffer_local_flags.case_fold_search) = 8;
  311.     XFASTINT (buffer_local_flags.auto_fill_hook) = 0x10;
  312.     XFASTINT (buffer_local_flags.selective_display) = 0x20;
  313. !   XFASTINT (buffer_local_flags.buffer_char_table) = 0x40;
  314.     XFASTINT (buffer_local_flags.tab_width) = 0x80;
  315.     XFASTINT (buffer_local_flags.truncate_lines) = 0x100;
  316. !   /* 0x200 unused. */
  317.     XFASTINT (buffer_local_flags.fill_column) = 0x400;
  318.     XFASTINT (buffer_local_flags.left_margin) = 0x800;
  319.     XFASTINT (buffer_local_flags.abbrev_table) = 0x1000;
  320. ***************
  321. *** 1204,1213 ****
  322.       "Default abbrev-mode for buffers that do not override it.\n\
  323.   This is the same as (default-value 'abbrev-mode).");
  324.   
  325. !   DEFVAR_LISP_NOPRO ("default-ctl-arrow",
  326. !           &buffer_defaults.ctl_arrow,
  327. !     "Default ctl-arrow for buffers that do not override it.\n\
  328. ! This is the same as (default-value 'ctl-arrow).");
  329.   
  330.     DEFVAR_LISP_NOPRO ("default-truncate-lines",
  331.             &buffer_defaults.truncate_lines,
  332. --- 1212,1221 ----
  333.       "Default abbrev-mode for buffers that do not override it.\n\
  334.   This is the same as (default-value 'abbrev-mode).");
  335.   
  336. !   DEFVAR_LISP_NOPRO ("default-buffer-char-table",
  337. !           &buffer_defaults.buffer_char_table,
  338. !     "Default char table for buffers that do not override it.\n\
  339. ! This is the same as (default-value 'buffer-char-table).");
  340.   
  341.     DEFVAR_LISP_NOPRO ("default-truncate-lines",
  342.             &buffer_defaults.truncate_lines,
  343. ***************
  344. *** 1276,1281 ****
  345. --- 1284,1293 ----
  346.       "Non-nil turns on automatic expansion of abbrevs when inserted.\n\
  347.   Automatically becomes local when set in any fashion.");
  348.   
  349. +   DEFVAR_PER_BUFFER ("buffer-char-table", &bf_cur->buffer_char_table,
  350. +     "Use this char table when displaying buffer.\n\
  351. + Automatically becomes local when set in any fashion.");
  352. + 
  353.     DEFVAR_PER_BUFFER ("case-fold-search", &bf_cur->case_fold_search,
  354.       "*Non-nil if searches should ignore case.\n\
  355.   Automatically becomes local when set in any fashion.");
  356. ***************
  357. *** 1296,1306 ****
  358.       "*Distance between tab stops (for display of tab characters), in columns.\n\
  359.   Automatically becomes local when set in any fashion.");
  360.   
  361. -   DEFVAR_PER_BUFFER ("ctl-arrow", &bf_cur->ctl_arrow,
  362. -     "*Non-nil means display control chars with uparrow.\n\
  363. - Nil means use backslash and octal digits.\n\
  364. - Automatically becomes local when set in any fashion.");
  365. - 
  366.     DEFVAR_PER_BUFFER ("truncate-lines", &bf_cur->truncate_lines,
  367.       "*Non-nil means do not display continuation lines;\n\
  368.   give each line of text one screen line.\n\
  369. --- 1308,1313 ----
  370. ***************
  371. *** 1341,1351 ****
  372.    ^M's in the file are written into files as newlines.\n\
  373.   Integer n as value means display only lines\n\
  374.    that start with less than n columns of space.\n\
  375. - Automatically becomes local when set in any fashion.");
  376. - 
  377. -   DEFVAR_PER_BUFFER ("selective-display-ellipses",
  378. -             &bf_cur->selective_display_ellipses,
  379. -     "t means display ... on previous line when a line is invisible.\n\
  380.   Automatically becomes local when set in any fashion.");
  381.   
  382.     DEFVAR_PER_BUFFER ("overwrite-mode", &bf_cur->overwrite_mode,
  383. --- 1348,1353 ----
  384. *** ../18.55/src/buffer.h    Sun Feb  8 15:35:54 1987
  385. --- src/buffer.h    Thu Apr  5 09:09:17 1990
  386. ***************
  387. *** 1,5 ****
  388.   /* Header file for the buffer manipulation primitives.
  389. !    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  390.   
  391.   This file is part of GNU Emacs.
  392.   
  393. --- 1,5 ----
  394.   /* Header file for the buffer manipulation primitives.
  395. !    Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc.
  396.   
  397.   This file is part of GNU Emacs.
  398.   
  399. ***************
  400. *** 19,24 ****
  401. --- 19,28 ----
  402.   and this notice must be preserved on all copies.  */
  403.   
  404.   
  405. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  406. +  *  See chartab.c for details. */
  407. + 
  408. + 
  409.   #ifdef lint
  410.   #include "undo.h"
  411.   #endif /* lint */
  412. ***************
  413. *** 74,79 ****
  414. --- 78,96 ----
  415.       struct UndoData *undodata;
  416.       /* the syntax table in use */
  417.       struct Lisp_Vector *syntax_table_v;
  418. +     /* The following 5 tables are implemented as Lisp strings.
  419. +     For speed, the pointers to the contents are here.  The Lisp
  420. +     objects reappear below for garbage collection. */
  421. +     /* The case table in use: */
  422. +     struct Lisp_Casetab *case_table_v;
  423. +     /* The lower case conversion table. */
  424. +     struct Lisp_Transtab *downcase_table_v;
  425. +     /* The upper case conversion table. */
  426. +     struct Lisp_Transtab *upcase_table_v;
  427. +     /* The translate table when case-fold-search is nil. */
  428. +     struct Lisp_Sorttab *case_distinct_table_v;
  429. +     /* The translate table when case-fold-search is not nil. */
  430. +     struct Lisp_Sorttab *case_fold_table_v;
  431.   
  432.       /* This is a special exception -- as this slot should not be
  433.          marked by gc_sweep, and as it is not lisp-accessible as
  434. ***************
  435. *** 135,152 ****
  436.       Lisp_Object tab_width;
  437.       Lisp_Object fill_column;
  438.       Lisp_Object left_margin;
  439. !     /* Function to call when insert space past fiull column */
  440.       Lisp_Object auto_fill_hook;
  441.   
  442.       /* Non-nil means do not display continuation lines */
  443.       Lisp_Object truncate_lines;
  444. -     /* Non-nil means display ctl chars with uparrow */
  445. -     Lisp_Object ctl_arrow;
  446.       /* Non-nil means do selective display;
  447.          See doc string in syms_of_buffer (buffer.c) for details.  */
  448.       Lisp_Object selective_display;
  449. -     /* Non-nil means show ... at end of line followed by invisible lines.  */
  450. -     Lisp_Object selective_display_ellipses;
  451.       /* Alist of (FUNCTION . STRING) for each minor mode enabled in buffer. */
  452.       Lisp_Object minor_modes;
  453.       /* t if "self-insertion" should overwrite */
  454. --- 152,165 ----
  455.       Lisp_Object tab_width;
  456.       Lisp_Object fill_column;
  457.       Lisp_Object left_margin;
  458. !     /* Function to call when insert space past full column */
  459.       Lisp_Object auto_fill_hook;
  460.   
  461.       /* Non-nil means do not display continuation lines */
  462.       Lisp_Object truncate_lines;
  463.       /* Non-nil means do selective display;
  464.          See doc string in syms_of_buffer (buffer.c) for details.  */
  465.       Lisp_Object selective_display;
  466.       /* Alist of (FUNCTION . STRING) for each minor mode enabled in buffer. */
  467.       Lisp_Object minor_modes;
  468.       /* t if "self-insertion" should overwrite */
  469. ***************
  470. *** 153,158 ****
  471. --- 166,173 ----
  472.       Lisp_Object overwrite_mode;
  473.       /* non-nil means abbrev mode is on.  Expand abbrevs automatically. */
  474.       Lisp_Object abbrev_mode;
  475. +     /* Non-nil means use this char table instead of the default. */
  476. +     Lisp_Object buffer_char_table;
  477.   };
  478.   
  479.   extern struct buffer *bf_cur;        /* points to the current buffer */
  480. *** ../18.55/src/casefiddle.c    Sat Aug 15 02:03:10 1987
  481. --- src/casefiddle.c    Thu Apr  5 09:09:30 1990
  482. ***************
  483. *** 1,5 ****
  484.   /* GNU Emacs case conversion functions.
  485. !    Copyright (C) 1985 Free Software Foundation, Inc.
  486.   
  487.   This file is part of GNU Emacs.
  488.   
  489. --- 1,5 ----
  490.   /* GNU Emacs case conversion functions.
  491. !    Copyright (C) 1985, 1990 Free Software Foundation, Inc.
  492.   
  493.   This file is part of GNU Emacs.
  494.   
  495. ***************
  496. *** 19,29 ****
  497. --- 19,35 ----
  498.   and this notice must be preserved on all copies.  */
  499.   
  500.   
  501. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  502. +  *  See chartab.c for details. */
  503. + 
  504. + 
  505.   #include "config.h"
  506.   #include "lisp.h"
  507.   #include "buffer.h"
  508. + #include "casetab.h"
  509.   #include "commands.h"
  510.   #include "syntax.h"
  511. + #include "transtab.h"
  512.   
  513.   enum case_action {CASE_UP, CASE_DOWN, CASE_CAPITALIZE, CASE_CAPITALIZE_UP};
  514.   
  515. ***************
  516. *** 42,51 ****
  517.         c = XINT (obj);
  518.         if (c >= 0 && c <= 0400)
  519.           {
  520. !           if (inword)
  521. !         XFASTINT (obj) = DOWNCASE (c);
  522. !           else if (!UPPERCASEP (c))
  523. !         XFASTINT (obj) = UPCASE1 (c);
  524.           }
  525.         return obj;
  526.       }
  527. --- 48,55 ----
  528.         c = XINT (obj);
  529.         if (c >= 0 && c <= 0400)
  530.           {
  531. !           XFASTINT (obj) = (inword ? LOCAL_TOLOWER (c)
  532. !                                                : LOCAL_TOUPPER (c));
  533.           }
  534.         return obj;
  535.       }
  536. ***************
  537. *** 56,65 ****
  538.         for (i = 0; i < len; i++)
  539.           {
  540.             c = XSTRING (obj)->data[i];
  541. !           if (inword)
  542. !         c = DOWNCASE (c);
  543. !           else if (!UPPERCASEP (c))
  544. !         c = UPCASE1 (c);
  545.             XSTRING (obj)->data[i] = c;
  546.             if (flag == CASE_CAPITALIZE)
  547.           inword = SYNTAX (c) == Sword;
  548. --- 60,66 ----
  549.         for (i = 0; i < len; i++)
  550.           {
  551.             c = XSTRING (obj)->data[i];
  552. !           c = (inword ? LOCAL_TOLOWER (c) : LOCAL_TOUPPER (c));
  553.             XSTRING (obj)->data[i] = c;
  554.             if (flag == CASE_CAPITALIZE)
  555.           inword = SYNTAX (c) == Sword;
  556. ***************
  557. *** 114,124 ****
  558.       {
  559.         c = CharAt (i);
  560.         if (inword && flag != CASE_CAPITALIZE_UP)
  561. !     c = DOWNCASE (c);
  562. !       else if (!UPPERCASEP (c)
  563. !            && (!inword || flag != CASE_CAPITALIZE_UP))
  564. !     c = UPCASE1 (c);
  565. !       CharAt (i) = c;
  566.         if ((int) flag >= (int) CASE_CAPITALIZE)
  567.       inword = SYNTAX (c) == Sword;
  568.       }
  569. --- 115,123 ----
  570.       {
  571.         c = CharAt (i);
  572.         if (inword && flag != CASE_CAPITALIZE_UP)
  573. !     CharAt (i) = LOCAL_TOLOWER (c);
  574. !       else if (!inword || flag != CASE_CAPITALIZE_UP)
  575. !     CharAt (i) = LOCAL_TOUPPER (c);
  576.         if ((int) flag >= (int) CASE_CAPITALIZE)
  577.       inword = SYNTAX (c) == Sword;
  578.       }
  579. *** ../18.55/src/config.h-dist    Thu Apr 21 10:18:33 1988
  580. --- src/config.h-dist    Thu Apr  5 09:09:50 1990
  581. ***************
  582. *** 1,5 ****
  583.   /* GNU Emacs site configuration template file.
  584. !    Copyright (C) 1988 Free Software Foundation, Inc.
  585.   
  586.   This file is part of GNU Emacs.
  587.   
  588. --- 1,5 ----
  589.   /* GNU Emacs site configuration template file.
  590. !    Copyright (C) 1988, 1990 Free Software Foundation, Inc.
  591.   
  592.   This file is part of GNU Emacs.
  593.   
  594. ***************
  595. *** 19,25 ****
  596. --- 19,29 ----
  597.   and this notice must be preserved on all copies.  */
  598.   
  599.   
  600. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  601. +  *  See chartab.c for details. */
  602.   
  603. + 
  604. + 
  605.   /* Include here a s- file that describes the system type you are using.
  606.      See the file ../etc/MACHINES for a list of systems and
  607.      the names of the s- files to use for them.
  608. ***************
  609. *** 101,109 ****
  610.   
  611.   #ifndef PURESIZE
  612.   #ifdef HAVE_X_WINDOWS
  613. ! #define PURESIZE 122000
  614.   #else
  615. ! #define PURESIZE 118000
  616.   #endif
  617.   #endif
  618.   
  619. --- 105,113 ----
  620.   
  621.   #ifndef PURESIZE
  622.   #ifdef HAVE_X_WINDOWS
  623. ! #define PURESIZE 152000
  624.   #else
  625. ! #define PURESIZE 148000
  626.   #endif
  627.   #endif
  628.   
  629. *** ../18.55/src/cmds.c    Thu Dec 29 05:09:21 1988
  630. --- src/cmds.c    Thu Apr  5 09:10:08 1990
  631. ***************
  632. *** 1,5 ****
  633.   /* Simple built-in editing commands.
  634. !    Copyright (C) 1985 Free Software Foundation, Inc.
  635.   
  636.   This file is part of GNU Emacs.
  637.   
  638. --- 1,5 ----
  639.   /* Simple built-in editing commands.
  640. !    Copyright (C) 1985, 1990 Free Software Foundation, Inc.
  641.   
  642.   This file is part of GNU Emacs.
  643.   
  644. ***************
  645. *** 19,26 ****
  646. --- 19,31 ----
  647.   and this notice must be preserved on all copies.  */
  648.   
  649.   
  650. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  651. +  *  See chartab.c for details. */
  652. + 
  653. + 
  654.   #include "config.h"
  655.   #include "lisp.h"
  656. + #include "chartab.h"
  657.   #include "commands.h"
  658.   #include "buffer.h"
  659.   #include "syntax.h"
  660. ***************
  661. *** 90,100 ****
  662.       }
  663.   
  664.     negp = count <= 0;
  665. !   pos = scan_buffer ('\n', pos2, count - negp, &shortage);
  666.     if (shortage > 0
  667.         && (negp
  668.         || (NumCharacters >= FirstCharacter
  669. !           && CharAt (pos - 1) != '\n')))
  670.       shortage--;
  671.     SetPoint (pos);
  672.     return make_number (negp ? - shortage : shortage);
  673. --- 95,105 ----
  674.       }
  675.   
  676.     negp = count <= 0;
  677. !   pos = scan_buffer (NEWLINE, pos2, count - negp, &shortage);
  678.     if (shortage > 0
  679.         && (negp
  680.         || (NumCharacters >= FirstCharacter
  681. !           && CharAt (pos - 1) != NEWLINE)))
  682.       shortage--;
  683.     SetPoint (pos);
  684.     return make_number (negp ? - shortage : shortage);
  685. ***************
  686. *** 138,144 ****
  687.   
  688.     pos = point;
  689.     stop = NumCharacters + 1;
  690. !   while (pos < stop && CharAt (pos) != '\n') pos++;
  691.     SetPoint (pos);
  692.   
  693.     return Qnil;
  694. --- 143,149 ----
  695.   
  696.     pos = point;
  697.     stop = NumCharacters + 1;
  698. !   while (pos < stop && CharAt (pos) != NEWLINE) pos++;
  699.     SetPoint (pos);
  700.   
  701.     return Qnil;
  702. ***************
  703. *** 214,220 ****
  704.   {
  705.     int flag;
  706.     Lisp_Object arg;
  707. !   char c1 = '\n';
  708.   
  709.     arg = Fprefix_numeric_value (arg1);
  710.   
  711. --- 219,225 ----
  712.   {
  713.     int flag;
  714.     Lisp_Object arg;
  715. !   char c1 = NEWLINE;
  716.   
  717.     arg = Fprefix_numeric_value (arg1);
  718.   
  719. ***************
  720. *** 229,235 ****
  721.        Must avoid SelfInsert in that case since point is wrong.
  722.        Luckily SelfInsert's special features all do nothing in that case.  */
  723.   
  724. !   flag = point > FirstCharacter && CharAt (point - 1) == '\n';
  725.     if (flag) PointLeft (1);
  726.   
  727.     while (XINT (arg) > 0)
  728. --- 234,240 ----
  729.        Must avoid SelfInsert in that case since point is wrong.
  730.        Luckily SelfInsert's special features all do nothing in that case.  */
  731.   
  732. !   flag = point > FirstCharacter && CharAt (point - 1) == NEWLINE;
  733.     if (flag) PointLeft (1);
  734.   
  735.     while (XINT (arg) > 0)
  736. ***************
  737. *** 237,243 ****
  738.         if (flag)
  739.       InsCStr (&c1, 1);
  740.         else
  741. !     SelfInsert ('\n', !NULL (arg1));
  742.         XFASTINT (arg)--;        /* Ok since old and new vals both nonneg */
  743.       }
  744.   
  745. --- 242,248 ----
  746.         if (flag)
  747.       InsCStr (&c1, 1);
  748.         else
  749. !     SelfInsert (NEWLINE, !NULL (arg1));
  750.         XFASTINT (arg)--;        /* Ok since old and new vals both nonneg */
  751.       }
  752.   
  753. ***************
  754. *** 258,265 ****
  755.   
  756.     if (!NULL (bf_cur->overwrite_mode)
  757.         && point <= NumCharacters
  758. !       && c != '\n' && CharAt (point) != '\n'
  759. !       && (CharAt (point) != '\t'
  760.         || XINT (bf_cur->tab_width) <= 0
  761.         || !((current_column () + 1) % XFASTINT (bf_cur->tab_width))))
  762.       {
  763. --- 263,270 ----
  764.   
  765.     if (!NULL (bf_cur->overwrite_mode)
  766.         && point <= NumCharacters
  767. !       && c != NEWLINE && CharAt (point) != NEWLINE
  768. !       && (CharAt (point) != HTAB
  769.         || XINT (bf_cur->tab_width) <= 0
  770.         || !((current_column () + 1) % XFASTINT (bf_cur->tab_width))))
  771.       {
  772. ***************
  773. *** 275,289 ****
  774.         if (!NULL (tem))
  775.       hairy = 1;
  776.       }
  777. !   if ((c == ' ' || c == '\n')
  778.         && !noautofill
  779.         && !NULL (bf_cur->auto_fill_hook)
  780.         && current_column () > XFASTINT (bf_cur->fill_column))
  781.       {
  782. !       if (c1 != '\n')
  783.       InsCStr (&c1, 1);
  784.         call0 (bf_cur->auto_fill_hook);
  785. !       if (c1 == '\n')
  786.       InsCStr (&c1, 1);
  787.         hairy = 1;
  788.       }
  789. --- 280,294 ----
  790.         if (!NULL (tem))
  791.       hairy = 1;
  792.       }
  793. !   if ((c == ' ' || c == NEWLINE)
  794.         && !noautofill
  795.         && !NULL (bf_cur->auto_fill_hook)
  796.         && current_column () > XFASTINT (bf_cur->fill_column))
  797.       {
  798. !       if (c1 != NEWLINE)
  799.       InsCStr (&c1, 1);
  800.         call0 (bf_cur->auto_fill_hook);
  801. !       if (c1 == NEWLINE)
  802.       InsCStr (&c1, 1);
  803.         hairy = 1;
  804.       }
  805. *** ../18.55/src/data.c    Sat Feb 11 07:15:57 1989
  806. --- src/data.c    Thu Apr  5 09:10:21 1990
  807. ***************
  808. *** 1,5 ****
  809.   /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter.
  810. !    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  811.   
  812.   This file is part of GNU Emacs.
  813.   
  814. --- 1,5 ----
  815.   /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter.
  816. !    Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc.
  817.   
  818.   This file is part of GNU Emacs.
  819.   
  820. ***************
  821. *** 19,24 ****
  822. --- 19,28 ----
  823.   and this notice must be preserved on all copies.  */
  824.   
  825.   
  826. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  827. +  *  See chartab.c for details. */
  828. + 
  829. + 
  830.   #include <signal.h>
  831.   
  832.   #include "config.h"
  833. ***************
  834. *** 67,72 ****
  835. --- 71,84 ----
  836.   pure_write_error ()
  837.   {
  838.     error ("Attempt to modify read-only object");
  839. + }
  840. + 
  841. + void
  842. + arg_out_of_range (a1)
  843. +      Lisp_Object a1;
  844. + {
  845. +   while (1)
  846. +     Fsignal (Qargs_out_of_range, Fcons (a1, Qnil));
  847.   }
  848.   
  849.   void
  850. *** ../18.55/src/dired.c    Sun Apr 10 13:17:54 1988
  851. --- src/dired.c    Thu Apr  5 09:10:40 1990
  852. ***************
  853. *** 1,5 ****
  854.   /* Lisp functions for making directory listings.
  855. !    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  856.   
  857.   This file is part of GNU Emacs.
  858.   
  859. --- 1,5 ----
  860.   /* Lisp functions for making directory listings.
  861. !    Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc.
  862.   
  863.   This file is part of GNU Emacs.
  864.   
  865. ***************
  866. *** 19,24 ****
  867. --- 19,28 ----
  868.   and this notice must be preserved on all copies.  */
  869.   
  870.   
  871. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  872. +  *  See chartab.c for details. */
  873. + 
  874. + 
  875.   #include <stdio.h>
  876.   #include <sys/types.h>
  877.   #include <sys/stat.h>
  878. ***************
  879. *** 54,59 ****
  880. --- 58,64 ----
  881.   #include "commands.h"
  882.   
  883.   #include "regex.h"
  884. + #include "sorttab.h"
  885.   
  886.   #define min(a, b) ((a) < (b) ? (a) : (b))
  887.   
  888. ***************
  889. *** 89,97 ****
  890.         CHECK_STRING (match, 3);
  891.         /* Compile it now so we don't get an error after opendir */
  892.   #ifdef VMS
  893. !       compile_pattern (match, &searchbuf, (char *) downcase_table);
  894.   #else
  895. !       compile_pattern (match, &searchbuf, 0);
  896.   #endif
  897.       }
  898.   
  899. --- 94,102 ----
  900.         CHECK_STRING (match, 3);
  901.         /* Compile it now so we don't get an error after opendir */
  902.   #ifdef VMS
  903. !       compile_pattern (match, &searchbuf, buffer_defaults.case_fold_table_v);
  904.   #else
  905. !       compile_pattern (match, &searchbuf, NULL_SORT_TABLE);
  906.   #endif
  907.       }
  908.   
  909. *** ../18.55/src/dispextern.h    Thu Dec 11 05:39:55 1986
  910. --- src/dispextern.h    Thu Apr  5 09:10:54 1990
  911. ***************
  912. *** 1,5 ****
  913.   /* Interface definitions for display code.
  914. !    Copyright (C) 1985 Free Software Foundation, Inc.
  915.   
  916.   This file is part of GNU Emacs.
  917.   
  918. --- 1,5 ----
  919.   /* Interface definitions for display code.
  920. !    Copyright (C) 1985, 1990 Free Software Foundation, Inc.
  921.   
  922.   This file is part of GNU Emacs.
  923.   
  924. ***************
  925. *** 19,24 ****
  926. --- 19,28 ----
  927.   and this notice must be preserved on all copies.  */
  928.   
  929.   
  930. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  931. +  *  See chartab.c for details. */
  932. + 
  933. + 
  934.   /* Nonzero means do not assume anything about current
  935.    contents of actual terminal screen */
  936.   
  937. ***************
  938. *** 59,68 ****
  939.   struct display_line
  940.     {
  941.       struct display_line *next;    /* Chain for free lines. */
  942. !     short   length;        /* the number of valid characters in body */
  943.       char    highlighted;    /* 1 means write this line in standout mode */
  944.       char    physical;        /* Mark bit for gc'ing, in update_screen */
  945. !     char    body[MScreenWidth + 4];    /* the actual text of the line */
  946.   };
  947.   
  948.   /* Allocate a line structure for screen line `vpos' (origin 0)
  949. --- 63,72 ----
  950.   struct display_line
  951.     {
  952.       struct display_line *next;    /* Chain for free lines. */
  953. !     short   length;        /* the number of valid glyfs in body */
  954.       char    highlighted;    /* 1 means write this line in standout mode */
  955.       char    physical;        /* Mark bit for gc'ing, in update_screen */
  956. !     glyf_t  body[MScreenWidth + 4];    /* the actual text of the line */
  957.   };
  958.   
  959.   /* Allocate a line structure for screen line `vpos' (origin 0)
  960. *** ../18.55/src/dispnew.c    Sat Aug 12 18:30:37 1989
  961. --- src/dispnew.c    Thu Apr  5 09:11:07 1990
  962. ***************
  963. *** 1,5 ****
  964.   /* Newly written part of redisplay code.
  965. !    Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
  966.   
  967.   This file is part of GNU Emacs.
  968.   
  969. --- 1,5 ----
  970.   /* Newly written part of redisplay code.
  971. !    Copyright (C) 1985, 1986, 1987, 1988, 1990 Free Software Foundation, Inc.
  972.   
  973.   This file is part of GNU Emacs.
  974.   
  975. ***************
  976. *** 19,24 ****
  977. --- 19,28 ----
  978.   and this notice must be preserved on all copies.  */
  979.   
  980.   
  981. + /* Modified 1990 for 8-bit character support by Howard Gayle.
  982. +  *  See chartab.c for details. */
  983. + 
  984. + 
  985.   #include <signal.h>
  986.   
  987.   #include "config.h"
  988. ***************
  989. *** 55,63 ****
  990.   #include "termchar.h"
  991.   #include "termopts.h"
  992.   #include "cm.h"
  993. - #include "dispextern.h"
  994.   #include "lisp.h"
  995.   #include "buffer.h"
  996.   #include "window.h"
  997.   #include "commands.h"
  998.   
  999. --- 59,68 ----
  1000.   #include "termchar.h"
  1001.   #include "termopts.h"
  1002.   #include "cm.h"
  1003.   #include "lisp.h"
  1004. + #include "dispextern.h"
  1005.   #include "buffer.h"
  1006. + #include "chartab.h"
  1007.   #include "window.h"
  1008.   #include "commands.h"
  1009.   
  1010. ***************
  1011. *** 178,184 ****
  1012.   
  1013.     for (i = - screen_height; i < screen_height; i++)
  1014.       {
  1015. !       p = (struct display_line *) malloc (sizeof (struct display_line) + screen_width - MScreenWidth);
  1016.         if (!p) abort ();
  1017.         SET_LINE_NEXT (p, free_display_lines);
  1018.         free_display_lines = p;
  1019. --- 183,191 ----
  1020.   
  1021.     for (i = - screen_height; i < screen_height; i++)
  1022.       {
  1023. !       p = (struct display_line *) malloc (
  1024. !          sizeof (struct display_line) +
  1025. !          (screen_width - MScreenWidth) * sizeof (glyf_t));
  1026.         if (!p) abort ();
  1027.         SET_LINE_NEXT (p, free_display_lines);
  1028.         free_display_lines = p;
  1029. ***************
  1030. *** 201,207 ****
  1031.       abort ();
  1032.     free_display_lines = LINE_NEXT (p);
  1033.   
  1034. !   bzero (p, p->body - (char *) p);
  1035.     SET_LINE_NEXT (p, (struct display_line *)1);    /* Mark as in use.  */
  1036.     free_line_count--;
  1037.     return p;
  1038. --- 208,214 ----
  1039.       abort ();
  1040.     free_display_lines = LINE_NEXT (p);
  1041.   
  1042. !   bzero (p, (char *) p->body - (char *) p);
  1043.     SET_LINE_NEXT (p, (struct display_line *)1);    /* Mark as in use.  */
  1044.     free_line_count--;
  1045.     return p;
  1046. ***************
  1047. *** 234,240 ****
  1048.   line_hash_code (p)
  1049.        register struct display_line *p;
  1050.   {
  1051. !   register char *body, *end;
  1052.     register int h = 0;
  1053.     if (!p)
  1054.       return 0;
  1055. --- 241,247 ----
  1056.   line_hash_code (p)
  1057.        register struct display_line *p;
  1058.   {
  1059. !   register glyf_t *body, *end;
  1060.     register int h = 0;
  1061.     if (!p)
  1062.       return 0;
  1063. ***************
  1064. *** 248,258 ****
  1065.     *end = 0;
  1066.     if (!must_write_spaces)
  1067.       {
  1068. !       while (*body++ == ' ');
  1069.         body--;
  1070.         if (body == end)
  1071.       return 1;
  1072. !       while (end[-1] == ' ') end--;
  1073.       }
  1074.     while (body != end)
  1075.       h = (h << 5) + h + *body++;
  1076. --- 255,265 ----
  1077.     *end = 0;
  1078.     if (!must_write_spaces)
  1079.       {
  1080. !       while (*body++ == SPACEGLYF);
  1081.         body--;
  1082.         if (body == end)
  1083.       return 1;
  1084. !       while (end[-1] == SPACEGLYF) end--;
  1085.       }
  1086.     while (body != end)
  1087.       h = (h << 5) + h + *body++;
  1088. ***************
  1089. *** 261,267 ****
  1090.     return 1;
  1091.   }
  1092.   
  1093. ! /* Return number of characters in display_line p,
  1094.      except don't count leading and trailing spaces
  1095.      unless the terminal requires those to be explicitly output.  */
  1096.   
  1097. --- 268,274 ----
  1098.     return 1;
  1099.   }
  1100.   
  1101. ! /* Return number of characters to draw display_line p,
  1102.      except don't count leading and trailing spaces
  1103.      unless the terminal requires those to be explicitly output.  */
  1104.   
  1105. ***************
  1106. *** 268,287 ****
  1107.   line_draw_cost (p)
  1108.        struct display_line *p;
  1109.   {
  1110. !   register char *body;
  1111.     register int i;
  1112.   
  1113.     if (!p)
  1114.       return 0;
  1115.   
  1116. !   if (must_write_spaces)
  1117. !     return p->length;
  1118. ! 
  1119. !   body = p->body - 1;
  1120. !   for (i = p->length; i > 0 && body[i - 1] == ' '; i--);
  1121. ! 
  1122. !   i -= count_blanks (p->body);
  1123. !   return max (i, 0);
  1124.   }
  1125.   
  1126.   /* The functions on this page are the interface from xdisp.c to redisplay.
  1127. --- 275,301 ----
  1128.   line_draw_cost (p)
  1129.        struct display_line *p;
  1130.   {
  1131. !   register glyf_t *body;
  1132. !   register glyf_t *end;
  1133.     register int i;
  1134.   
  1135.     if (!p)
  1136.       return 0;
  1137.   
  1138. !   body = p->body;
  1139. !   end = body + p->length - 1;
  1140. !   if (!must_write_spaces)
  1141. !     {
  1142. !       while ((*end == SPACEGLYF) && (end != body))
  1143. !          --end;
  1144. !       if (end == body) return (0); /* All blank line. */
  1145. !       while (*body == SPACEGLYF)
  1146. !          ++body;
  1147. !     }
  1148. !   i = 0;
  1149. !   while ((body <= end) && *body)
  1150. !     i += glyf_len (*body++);
  1151. !   return (i);
  1152.   }
  1153.   
  1154.   /* The functions on this page are the interface from xdisp.c to redisplay.
  1155. ***************
  1156. *** 308,314 ****
  1157.        register int hpos;
  1158.   {
  1159.     register struct display_line *line;
  1160. !   register char *p;
  1161.   
  1162.     if (vpos < 0) abort ();
  1163.   
  1164. --- 322,328 ----
  1165.        register int hpos;
  1166.   {
  1167.     register struct display_line *line;
  1168. !   register glyf_t *p;
  1169.   
  1170.     if (vpos < 0) abort ();
  1171.   
  1172. ***************
  1173. *** 324,330 ****
  1174.         hpos -= line->length;
  1175.         line->length += hpos;
  1176.         while (--hpos >= 0)
  1177. !     *p++ = ' ';
  1178.       }
  1179.   
  1180.     DesiredScreen[vpos + 1] = line;
  1181. --- 338,344 ----
  1182.         hpos -= line->length;
  1183.         line->length += hpos;
  1184.         while (--hpos >= 0)
  1185. !     *p++ = SPACEGLYF;
  1186.       }
  1187.   
  1188.     DesiredScreen[vpos + 1] = line;
  1189. ***************
  1190. *** 401,407 ****
  1191.       {
  1192.         if (start > 0)
  1193.           {
  1194. !           bcopy (l2->body, l1->body, start);
  1195.             if (l1->length < start && l1->length < l2->length)
  1196.           l1->length = min (start, l2->length);
  1197.           }
  1198. --- 415,421 ----
  1199.       {
  1200.         if (start > 0)
  1201.           {
  1202. !           bcopy (l2->body, l1->body, start * sizeof (glyf_t));
  1203.             if (l1->length < start && l1->length < l2->length)
  1204.           l1->length = min (start, l2->length);
  1205.           }
  1206. ***************
  1207. *** 408,415 ****
  1208.         if (l2->length > end && l1->length < l2->length)
  1209.           {
  1210.             while (l1->length < end)
  1211. !         l1->body[l1->length++] = ' ';
  1212. !           bcopy (l2->body + end, l1->body + end, l2->length - end);
  1213.             l1->length = l2->length;
  1214.           }
  1215.       }
  1216. --- 422,430 ----
  1217.         if (l2->length > end && l1->length < l2->length)
  1218.           {
  1219.             while (l1->length < end)
  1220. !         l1->body[l1->length++] = SPACEGLYF;
  1221. !           bcopy (l2->body + end, l1->body + end,
  1222. !                      (l2->length - end) * sizeof (glyf_t));
  1223.             l1->length = l2->length;
  1224.           }
  1225.       }
  1226. ***************
  1227. *** 444,451 ****
  1228.             fin = l2->length;
  1229.             if (fin > end) fin = end;
  1230.             while (l1->length < start)
  1231. !         l1->body[l1->length++] = ' ';
  1232. !           bcopy (l2->body + start, l1->body + start, fin - start);
  1233.             l1->length = fin;
  1234.           }
  1235.       }
  1236. --- 459,467 ----
  1237.             fin = l2->length;
  1238.             if (fin > end) fin = end;
  1239.             while (l1->length < start)
  1240. !         l1->body[l1->length++] = SPACEGLYF;
  1241. !           bcopy (l2->body + start, l1->body + start,
  1242. !                      (fin - start) * sizeof (glyf_t));
  1243.             l1->length = fin;
  1244.           }
  1245.       }
  1246. ***************
  1247. *** 484,491 ****
  1248.      see command_loop_1 where these are called.  */
  1249.   
  1250.   int
  1251. ! direct_output_for_insert (c)
  1252. !      int c;
  1253.   {
  1254.     register struct display_line *p = PhysScreen[cursY + 1];
  1255.   #ifndef COMPILER_REGISTER_BUG
  1256. --- 500,507 ----
  1257.      see command_loop_1 where these are called.  */
  1258.   
  1259.   int
  1260. ! direct_output_for_insert (g)
  1261. !      glyf_t g;
  1262.   {
  1263.     register struct display_line *p = PhysScreen[cursY + 1];
  1264.   #ifndef COMPILER_REGISTER_BUG
  1265. ***************
  1266. *** 514,520 ****
  1267.         || EQ (selected_window, minibuf_window) && minibuf_message)
  1268.       return 0;
  1269.   
  1270. !   p->body[hpos] = c;
  1271.     unchanged_modified = bf_modified;
  1272.     beg_unchanged = bf_s1;
  1273.     XFASTINT (w->last_point) = point;
  1274. --- 530,536 ----
  1275.         || EQ (selected_window, minibuf_window) && minibuf_message)
  1276.       return 0;
  1277.   
  1278. !   p->body[hpos] = g;
  1279.     unchanged_modified = bf_modified;
  1280.     beg_unchanged = bf_s1;
  1281.     XFASTINT (w->last_point) = point;
  1282. ***************
  1283. *** 522,528 ****
  1284.     XFASTINT (w->last_modified) = bf_modified;
  1285.   
  1286.     reassert_line_highlight (0, cursY);
  1287. !   write_chars (p->body + hpos, 1);
  1288.     fflush (stdout);
  1289.     ++cursX;
  1290.     p->length = max (p->length, cursX);
  1291. --- 538,544 ----
  1292.     XFASTINT (w->last_modified) = bf_modified;
  1293.   
  1294.     reassert_line_highlight (0, cursY);
  1295. !   write_glyfs (p->body + hpos, 1);
  1296.     fflush (stdout);
  1297.     ++cursX;
  1298.     p->length = max (p->length, cursX);
  1299. ***************
  1300. *** 787,796 ****
  1301.        struct display_line *old, *new;
  1302.        int vpos;
  1303.   {
  1304. !   register char *obody, *nbody, *op1, *op2, *np1;
  1305.     int tem;
  1306.     int osp, nsp, m1, m2, olen, nlen;
  1307. !   int save;
  1308.   
  1309.     if (old == new)
  1310.       return;
  1311. --- 803,812 ----
  1312.        struct display_line *old, *new;
  1313.        int vpos;
  1314.   {
  1315. !   register glyf_t *obody, *nbody, *op1, *op2, *np1;
  1316.     int tem;
  1317.     int osp, nsp, m1, m2, olen, nlen;
  1318. !   glyf_t save;
  1319.   
  1320.     if (old == new)
  1321.       return;
  1322. ***************
  1323. *** 816,824 ****
  1324.         olen = old->length;
  1325.         if (! old->highlighted)
  1326.       {
  1327. -       /* Note obody[-1] is old->physical, which is always 0 or 1.  */
  1328.         if (!must_write_spaces)
  1329. !         while (obody[olen - 1] == ' ')
  1330.             olen--;
  1331.       }
  1332.         else
  1333. --- 832,839 ----
  1334.         olen = old->length;
  1335.         if (! old->highlighted)
  1336.       {
  1337.         if (!must_write_spaces)
  1338. !         while ((obody[olen - 1] == SPACEGLYF) && (0 != olen))
  1339.             olen--;
  1340.       }
  1341.         else
  1342. ***************
  1343. *** 827,833 ****
  1344.            spaces all the way to the screen edge
  1345.            so that the reverse video extends all the way across.  */
  1346.         while (olen < screen_width - 1)
  1347. !         obody[olen++] = ' ';
  1348.       }
  1349.       }
  1350.   
  1351. --- 842,848 ----
  1352.            spaces all the way to the screen edge
  1353.            so that the reverse video extends all the way across.  */
  1354.         while (olen < screen_width - 1)
  1355. !         obody[olen++] = SPACE;
  1356.       }
  1357.       }
  1358.   
  1359. ***************
  1360. *** 842,853 ****
  1361.   
  1362.     /* Pretend trailing spaces are not there at all,
  1363.        unless for one reason or another we must write all spaces.  */
  1364. -   /* We know that the previous character is the `physical' field
  1365. -      and it is zero or one.  */
  1366.     if (! new->highlighted)
  1367.       {
  1368.         if (!must_write_spaces)
  1369. !     while (nbody[nlen - 1] == ' ')
  1370.         nlen--;
  1371.       }
  1372.     else
  1373. --- 857,866 ----
  1374.   
  1375.     /* Pretend trailing spaces are not there at all,
  1376.        unless for one reason or another we must write all spaces.  */
  1377.     if (! new->highlighted)
  1378.       {
  1379.         if (!must_write_spaces)
  1380. !     while ((nbody[nlen - 1] == SPACEGLYF) && (0 != nlen))
  1381.         nlen--;
  1382.       }
  1383.     else
  1384. ***************
  1385. *** 856,862 ****
  1386.        all the way to the screen edge
  1387.        so that the reverse video extends all the way across.  */
  1388.         while (nlen < screen_width - 1)
  1389. !     nbody[nlen++] = ' ';
  1390.       }
  1391.   
  1392.     /* If there's no i/d char, quickly do the best we can without it.  */
  1393. --- 869,875 ----
  1394.        all the way to the screen edge
  1395.        so that the reverse video extends all the way across.  */
  1396.         while (nlen < screen_width - 1)
  1397. !     nbody[nlen++] = SPACE;
  1398.       }
  1399.   
  1400.     /* If there's no i/d char, quickly do the best we can without it.  */
  1401. ***************
  1402. *** 874,880 ****
  1403.                  (i + j >= olen || nbody[i+j] != obody[i+j]));
  1404.              j++);
  1405.             /* Output this run of non-matching chars.  */ 
  1406. !           write_chars (nbody + i, j);
  1407.             i += j - 1;
  1408.             /* Now find the next non-match.  */
  1409.           }
  1410. --- 887,893 ----
  1411.                  (i + j >= olen || nbody[i+j] != obody[i+j]));
  1412.              j++);
  1413.             /* Output this run of non-matching chars.  */ 
  1414. !           write_glyfs (nbody + i, j);
  1415.             i += j - 1;
  1416.             /* Now find the next non-match.  */
  1417.           }
  1418. ***************
  1419. *** 891,901 ****
  1420.     if (!olen)
  1421.       {
  1422.         nsp = (must_write_spaces || new->highlighted)
  1423. !           ? 0 : count_blanks (nbody);
  1424.         if (nlen > nsp)
  1425.       {
  1426.         topos (vpos, nsp);
  1427. !       write_chars (nbody + nsp, nlen - nsp);
  1428.       }
  1429.         return;
  1430.       }
  1431. --- 904,914 ----
  1432.     if (!olen)
  1433.       {
  1434.         nsp = (must_write_spaces || new->highlighted)
  1435. !           ? 0 : count_leading_space_glyfs (nbody);
  1436.         if (nlen > nsp)
  1437.       {
  1438.         topos (vpos, nsp);
  1439. !       write_glyfs (nbody + nsp, nlen - nsp);
  1440.       }
  1441.         return;
  1442.       }
  1443. ***************
  1444. *** 905,913 ****
  1445.     nbody[nlen] = 0;
  1446.   
  1447.     /* Compute number of leading blanks in old and new contents.  */
  1448. !   osp = count_blanks (obody);
  1449.     if (!new->highlighted)
  1450. !     nsp = count_blanks (nbody);
  1451.     else
  1452.       nsp = 0;
  1453.   
  1454. --- 918,926 ----
  1455.     nbody[nlen] = 0;
  1456.   
  1457.     /* Compute number of leading blanks in old and new contents.  */
  1458. !   osp = count_leading_space_glyfs (obody);
  1459.     if (!new->highlighted)
  1460. !     nsp = count_leading_space_glyfs (nbody);
  1461.     else
  1462.       nsp = 0;
  1463.   
  1464. ***************
  1465. *** 919,925 ****
  1466.     if (!must_write_spaces && osp + m1 == olen)
  1467.       {
  1468.         np1 = nbody + nsp;
  1469. !       while (np1[m1] == ' ')
  1470.       m1++;
  1471.       }
  1472.   
  1473. --- 932,938 ----
  1474.     if (!must_write_spaces && osp + m1 == olen)
  1475.       {
  1476.         np1 = nbody + nsp;
  1477. !       while (np1[m1] == SPACEGLYF)
  1478.       m1++;
  1479.       }
  1480.   
  1481. ***************
  1482. *** 950,956 ****
  1483.        Is it worth it?  */
  1484.   
  1485.     tem = (nlen - nsp) - (olen - osp);
  1486. !   if (m2 && tem && m2 <= DCICcost[tem])
  1487.       m2 = 0;
  1488.   
  1489.     /* nsp - osp is the distance to insert or delete.
  1490. --- 963,969 ----
  1491.        Is it worth it?  */
  1492.   
  1493.     tem = (nlen - nsp) - (olen - osp);
  1494. !   if (m2 && tem && m2 <= DCICcost (tem))
  1495.       m2 = 0;
  1496.   
  1497.     /* nsp - osp is the distance to insert or delete.
  1498. ***************
  1499. *** 957,963 ****
  1500.        m1 + m2 is how much we save by doing so.
  1501.        Is it worth it?  */
  1502.   
  1503. !   if (m1 + m2 && nsp != osp && m1 + m2 <= DCICcost[nsp - osp])
  1504.       {
  1505.         m1 = 0;
  1506.         m2 = 0;
  1507. --- 970,976 ----
  1508.        m1 + m2 is how much we save by doing so.
  1509.        Is it worth it?  */
  1510.   
  1511. !   if (m1 + m2 && nsp != osp && m1 + m2 <= DCICcost (nsp - osp))
  1512.       {
  1513.         m1 = 0;
  1514.         m2 = 0;
  1515. ***************
  1516. *** 969,975 ****
  1517.     if (osp > nsp)
  1518.       {
  1519.         topos (vpos, nsp);
  1520. !       delete_chars (osp - nsp);
  1521.       }
  1522.     else if (nsp > osp)
  1523.       {
  1524. --- 982,988 ----
  1525.     if (osp > nsp)
  1526.       {
  1527.         topos (vpos, nsp);
  1528. !       delete_glyfs (osp - nsp);
  1529.       }
  1530.     else if (nsp > osp)
  1531.       {
  1532. ***************
  1533. *** 979,989 ****
  1534.         if (m2 && nlen < olen + nsp - osp)
  1535.       {
  1536.         topos (vpos, nlen - m2 + osp - nsp);
  1537. !       delete_chars (olen + nsp - osp - nlen);
  1538.         olen = nlen - (nsp - osp);
  1539.       }
  1540.         topos (vpos, osp);
  1541. !       insert_chars ((char *)0, nsp - osp);
  1542.       }
  1543.     olen += nsp - osp;
  1544.   
  1545. --- 992,1002 ----
  1546.         if (m2 && nlen < olen + nsp - osp)
  1547.       {
  1548.         topos (vpos, nlen - m2 + osp - nsp);
  1549. !       delete_glyfs (olen + nsp - osp - nlen);
  1550.         olen = nlen - (nsp - osp);
  1551.       }
  1552.         topos (vpos, osp);
  1553. !       insert_spaces (nsp - osp);
  1554.       }
  1555.     olen += nsp - osp;
  1556.   
  1557. ***************
  1558. *** 999,1005 ****
  1559.            going to be "at the margin" after the text is done) */
  1560.         if (nlen == screen_width)
  1561.           olen = 0;
  1562. !       write_chars (nbody + nsp + m1, nlen - tem);
  1563.   #ifdef obsolete
  1564.   /* the following code loses disastrously if tem == nlen.
  1565.      Rather than trying to fix that case, I am trying the simpler
  1566. --- 1012,1018 ----
  1567.            going to be "at the margin" after the text is done) */
  1568.         if (nlen == screen_width)
  1569.           olen = 0;
  1570. !       write_glyfs (nbody + nsp + m1, nlen - tem);
  1571.   #ifdef obsolete
  1572.   /* the following code loses disastrously if tem == nlen.
  1573.      Rather than trying to fix that case, I am trying the simpler
  1574. ***************
  1575. *** 1011,1035 ****
  1576.         if (nlen == screen_width && fast_clear_end_of_line && olen > nlen)
  1577.           {
  1578.             /* m2 must be zero, and tem must equal nsp + m1 */
  1579. !           write_chars (nbody + tem, nlen - tem - 1);
  1580.             clear_end_of_line (olen);
  1581.             olen = 0;        /* Don't let it be cleared again later */
  1582. !           write_chars (nbody + nlen - 1, 1);
  1583.           }
  1584.         else
  1585. !         write_chars (nbody + nsp + m1, nlen - tem);
  1586.   #endif
  1587.       }
  1588.         else if (nlen > olen)
  1589.       {
  1590. !       write_chars (nbody + nsp + m1, olen - tem);
  1591. !       insert_chars (nbody + nsp + m1 + olen - tem, nlen - olen);
  1592.         olen = nlen;
  1593.       }
  1594.         else if (olen > nlen)
  1595.       {
  1596. !       write_chars (nbody + nsp + m1, nlen - tem);
  1597. !       delete_chars (olen - nlen);
  1598.         olen = nlen;
  1599.       }
  1600.       }
  1601. --- 1024,1048 ----
  1602.         if (nlen == screen_width && fast_clear_end_of_line && olen > nlen)
  1603.           {
  1604.             /* m2 must be zero, and tem must equal nsp + m1 */
  1605. !           write_glyfs (nbody + tem, nlen - tem - 1);
  1606.             clear_end_of_line (olen);
  1607.             olen = 0;        /* Don't let it be cleared again later */
  1608. !           write_glyfs (nbody + nlen - 1, 1);
  1609.           }
  1610.         else
  1611. !         write_glyfs (nbody + nsp + m1, nlen - tem);
  1612.   #endif
  1613.       }
  1614.         else if (nlen > olen)
  1615.       {
  1616. !       write_glyfs (nbody + nsp + m1, olen - tem);
  1617. !       insert_glyfs (nbody + nsp + m1 + olen - tem, nlen - olen);
  1618.         olen = nlen;
  1619.       }
  1620.         else if (olen > nlen)
  1621.       {
  1622. !       write_glyfs (nbody + nsp + m1, nlen - tem);
  1623. !       delete_glyfs (olen - nlen);
  1624.         olen = nlen;
  1625.       }
  1626.       }
  1627. ***************
  1628. *** 1043,1063 ****
  1629.       }
  1630.   }
  1631.   
  1632. ! count_blanks (str)
  1633. !      char *str;
  1634.   {
  1635. !   register char *p = str;
  1636. !   while (*str++ == ' ');
  1637. !   return str - p - 1;
  1638. ! }
  1639. ! 
  1640. ! count_match (str1, str2)
  1641. !      char *str1, *str2;
  1642.   {
  1643. !   register char *p1 = str1;
  1644. !   register char *p2 = str2;
  1645. !   while (*p1++ == *p2++);
  1646. !   return p1 - str1 - 1;
  1647.   }
  1648.   
  1649.   DEFUN ("open-termscript", Fopen_termscript, Sopen_termscript,
  1650. --- 1056,1088 ----
  1651.       }
  1652.   }
  1653.   
  1654. ! int
  1655. ! count_leading_space_glyfs (r)
  1656. ! register glyf_t *r;
  1657.   {
  1658. !    register int i = 0;
  1659. ! 
  1660. !    while (SPACEGLYF == *r)
  1661. !       {
  1662. !       ++r;
  1663. !       ++i;
  1664. !       }
  1665. !    return (i);
  1666. ! }
  1667. ! 
  1668. ! int
  1669. ! count_match (r1, r2)
  1670. ! register glyf_t *r1, *r2;
  1671.   {
  1672. !    register int i = 0;
  1673. ! 
  1674. !    while (*r1 == *r2)
  1675. !       {
  1676. !       ++r1;
  1677. !       ++r2;
  1678. !       ++i;
  1679. !       }
  1680. !    return (i);
  1681.   }
  1682.   
  1683.   DEFUN ("open-termscript", Fopen_termscript, Sopen_termscript,
  1684.