home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / 8-bit.patches / text0000.txt < prev   
Encoding:
Text File  |  1990-07-22  |  11.5 KB  |  360 lines
  1. Christopher Alexander North-Keys
  2. Group Talisman, Austin Tx.
  3. Fri May 11 07:34:22 CDT 1990
  4.  
  5.                  @@@ Talisman-8bit GNU Emacs patches @@@
  6.  
  7. This set of patches brings Emacs 18.55 up to 8-bit capability.
  8.  
  9. CAVEAT:  This patches are *not* official.  No support is offered.
  10.  
  11. Application:
  12.     GNU Emacs original distribution 18.55
  13.  
  14. Compatibility:
  15.     The two format selectors default to the older behavior.
  16.  
  17. Files affected:
  18.     buffer.c
  19.     buffer.h
  20.     indent.c
  21.     xdisp.c
  22.  
  23. Thanks to Kenneth Cline (cs.cmu.edu) for his work in this area.
  24.  
  25. Bugs:
  26.     anomalies may result when a line partially in view changes display
  27.     format.
  28.  
  29.     no provision has been made for displaying *all* characters in
  30.     /000 form.
  31.  
  32. Projects:
  33.     Proportional spacing, used with an intercombinant font, should allow
  34.     true diacritics over just about anything (unlike the current approach
  35.     being used by certain font companies).  The precombined tack is not
  36.     suitable for efficient ASCII-type data storage, due to its bias towards
  37.     unnecessary graphic information.  For example:  the a-umlaut is a single
  38.     character in a precombined font.  However, in an intercombinant font,
  39.     the umlaut is a second character, only combined with the "a" at the
  40.     time of display.  True proportional spacing enables a diacritic glyph
  41.     to take a negative x-offset, so as to appear over the preceding char.
  42.  
  43.     There is currently no accepted standard for an intercombinant font.
  44.  
  45.     Emacs also needs true per-character display attributes.  Currently it
  46.     is only capable of inversion/highlighting on a per-line basis.  This
  47.     is what prevents region-select highlighting, etc.
  48.  
  49. Send comments to:
  50.     north-keys@mcc.com
  51.  
  52. Suggested use in ~/.emacs or equivalent:
  53.     (setq-default ctl-arrow t)        ;; The default.
  54.     (setq-default meta-display t)     ;; For use with 8-bit fonts.
  55.  
  56. Test file ---------------------------------------------------------
  57.  
  58. ;; judicious usage of eval-last-sexp on these expressions will demonstrate
  59. ;; what the enhancements do.  Note that this has only been tested with
  60. ;; the 256-char font -Talisman-Smooth-Bold-R-Normal--12-120-80-80-C-76-None-1
  61.  
  62. ;; This expression, evaluated, generates a char 0-255 character insertion.
  63. (progn
  64.   (setq i 0)
  65.   (while (<= i 255)
  66.     (insert-char i 1)
  67.     (setq i (+ 1 i))
  68.     ))
  69.  
  70.     
  71.  
  72.  
  73.  
  74. ;;   sequential evaluation of these tests all combinations    8bit   ctrl
  75. ;;                                                            ----   ----
  76. (progn (setq meta-display t) (setq ctl-arrow "special"))   ;; true , true
  77. (progn (setq meta-display t) (setq ctl-arrow t))           ;; true , ^C
  78. (progn (setq meta-display t) (setq ctl-arrow nil))         ;; true , \000
  79.  
  80. (progn (setq meta-display nil) (setq ctl-arrow "special")) ;; \255 , true
  81. (progn (setq meta-display nil) (setq ctl-arrow t))         ;; \255 , ^C
  82. (progn (setq meta-display nil) (setq ctl-arrow nil))       ;; \255 , \000
  83.  
  84. End of test file --------------------------------------------------
  85. Patches------------
  86.  
  87. *** buffer.c    Thu Jul 20 17:36:02 1989
  88. --- ../buffer.c    Fri May 11 06:42:27 1990
  89. ***************
  90. *** 1100,1105 ****
  91. --- 1100,1106 ----
  92.     XFASTINT (buffer_defaults.tab_width) = 8;
  93.     buffer_defaults.truncate_lines = Qnil;
  94.     buffer_defaults.ctl_arrow = Qt;
  95. +   buffer_defaults.meta_display = Qnil;
  96.   
  97.     XFASTINT (buffer_defaults.fill_column) = 70;
  98.     XFASTINT (buffer_defaults.left_margin) = 0;
  99. ***************
  100. *** 1136,1141 ****
  101. --- 1137,1143 ----
  102.     XFASTINT (buffer_local_flags.fill_column) = 0x400;
  103.     XFASTINT (buffer_local_flags.left_margin) = 0x800;
  104.     XFASTINT (buffer_local_flags.abbrev_table) = 0x1000;
  105. +   XFASTINT (buffer_local_flags.meta_display) = 0x2000;
  106.   
  107.     Vbuffer_alist = Qnil;
  108.     bf_cur = 0;
  109. ***************
  110. *** 1276,1281 ****
  111. --- 1278,1289 ----
  112.       "Non-nil turns on automatic expansion of abbrevs when inserted.\n\
  113.   Automatically becomes local when set in any fashion.");
  114.   
  115. + /* North-Keys, Fri May 11 03:43:54 CDT 1990 */
  116. +   DEFVAR_LISP_NOPRO ("default-meta-display",
  117. +           &buffer_defaults.meta_display,
  118. +     "Default meta-display for buffers that do not override it.\n\
  119. + This is the same as (default-value 'meta-display).");
  120. + 
  121.     DEFVAR_PER_BUFFER ("case-fold-search", &bf_cur->case_fold_search,
  122.       "*Non-nil if searches should ignore case.\n\
  123.   Automatically becomes local when set in any fashion.");
  124. ***************
  125. *** 1297,1306 ****
  126.   Automatically becomes local when set in any fashion.");
  127.   
  128.     DEFVAR_PER_BUFFER ("ctl-arrow", &bf_cur->ctl_arrow,
  129. !     "*Non-nil means display control chars with uparrow.\n\
  130.   Nil means use backslash and octal digits.\n\
  131. ! Automatically becomes local when set in any fashion.");
  132.   
  133.     DEFVAR_PER_BUFFER ("truncate-lines", &bf_cur->truncate_lines,
  134.       "*Non-nil means do not display continuation lines;\n\
  135.   give each line of text one screen line.\n\
  136. --- 1305,1318 ----
  137.   Automatically becomes local when set in any fashion.");
  138.   
  139.       DEFVAR_PER_BUFFER ("ctl-arrow", &bf_cur->ctl_arrow,
  140. !       "*T means display control chars with uparrow.\n\
  141.     Nil means use backslash and octal digits.\n\
  142. !   Other non-Nil means assume displayable controls in the font.\n\
  143. !   Automatically becomes local when set in any fashion.\n\
  144. !   \n\
  145. !   This is a non-standard feature from Ergo and Group Talisman.");
  146.   
  147. + 
  148.     DEFVAR_PER_BUFFER ("truncate-lines", &bf_cur->truncate_lines,
  149.       "*Non-nil means do not display continuation lines;\n\
  150.   give each line of text one screen line.\n\
  151. ***************
  152. *** 1351,1356 ****
  153. --- 1363,1377 ----
  154.     DEFVAR_PER_BUFFER ("overwrite-mode", &bf_cur->overwrite_mode,
  155.       "Non-nil if self-insertion should replace existing text.\n\
  156.   Automatically becomes local when set in any fashion.");
  157. + 
  158. + /* North-Keys Fri May 11 03:45:44 CDT 1990 */
  159. +   DEFVAR_PER_BUFFER ("meta-display", &bf_cur->meta_display,
  160. +     "*t means display high-bit (meta) chars in the 128-255\n\
  161. + range, and assumes that high-bit characters are displayable.\n\
  162. + Nil means use backslash and octal digits.\n\
  163. + Automatically becomes local when set in any fashion.\n\
  164. + \n\
  165. + This is a non-standard feature from group Talisman.");
  166.   
  167.   /*DEFVAR_LISP ("debug-check-symbol", &Vcheck_symbol,
  168.       "Don't ask.");
  169. *** buffer.h    Fri May 11 05:05:14 1990
  170. --- ../buffer.h    Fri May 11 05:08:04 1990
  171. ***************
  172. *** 153,158 ****
  173. --- 153,160 ----
  174.       Lisp_Object overwrite_mode;
  175.       /* non-nil means abbrev mode is on.  Expand abbrevs automatically. */
  176.       Lisp_Object abbrev_mode;
  177. +     /* Non-nil means display meta chars with font, rather than octal */
  178. +     Lisp_Object meta_display;
  179.   };
  180.   
  181.   extern struct buffer *bf_cur;        /* points to the current buffer */
  182. *** indent.c    Mon Aug 15 21:51:14 1988
  183. --- ../indent.c    Fri May 11 06:33:25 1990
  184. ***************
  185. *** 67,73 ****
  186.     register int tab_seen;
  187.     register int post_tab;
  188.     register int tab_width = XINT (bf_cur->tab_width);
  189. !   int ctl_arrow = !NULL (bf_cur->ctl_arrow);
  190.   
  191.     if (point == last_known_column_point
  192.         && bf_modified == last_known_column_modified)
  193. --- 67,74 ----
  194.     register int tab_seen;
  195.     register int post_tab;
  196.     register int tab_width = XINT (bf_cur->tab_width);
  197. !   int ctl_arrow = !NULL (bf_cur->ctl_arrow) + (EQ (bf_cur->ctl_arrow, Qt));
  198. !   int meta_display = !NULL (bf_cur->meta_display);
  199.   
  200.     if (point == last_known_column_point
  201.         && bf_modified == last_known_column_modified)
  202. ***************
  203. *** 109,115 ****
  204.         tab_seen = 1;
  205.       }
  206.         else
  207. !     col += (ctl_arrow && c < 0200) ? 2 : 4;
  208.       }
  209.   
  210.     if (tab_seen)
  211. --- 110,117 ----
  212.         tab_seen = 1;
  213.       }
  214.         else
  215. !     col += (c < 0200) ? (ctl_arrow == 1 ? 1 : (ctl_arrow ? 2 : 4))
  216. !                       : (meta_display ? 1 : 4);
  217.       }
  218.   
  219.     if (tab_seen)
  220. ***************
  221. *** 231,237 ****
  222.     register int goal;
  223.     register int end = NumCharacters;
  224.     register int tab_width = XINT (bf_cur->tab_width);
  225. !   register int ctl_arrow = !NULL (bf_cur->ctl_arrow);
  226.   
  227.     Lisp_Object val;
  228.   
  229. --- 233,241 ----
  230.     register int goal;
  231.     register int end = NumCharacters;
  232.     register int tab_width = XINT (bf_cur->tab_width);
  233. !   register int ctl_arrow = !NULL (bf_cur->ctl_arrow)
  234. !                             + EQ (bf_cur->ctl_arrow, Qt);
  235. !   register int meta_display = !NULL (bf_cur->meta_display);
  236.   
  237.     Lisp_Object val;
  238.   
  239. ***************
  240. *** 258,266 ****
  241.         col += tab_width - 1;
  242.         col = col / tab_width * tab_width;
  243.       }
  244.         else if (ctl_arrow && (c < 040 || c == 0177))
  245.           col++;
  246. !       else if (c < 040 || c >= 0177)
  247.           col += 3;
  248.       }
  249.   
  250. --- 262,273 ----
  251.         col += tab_width - 1;
  252.         col = col / tab_width * tab_width;
  253.       }
  254. +       else if ((ctl_arrow == 1 && (c < 040 || c == 0177)) ||
  255. +                (meta_display && (c >= 0200)))
  256. +         continue;
  257.         else if (ctl_arrow && (c < 040 || c == 0177))
  258.           col++;
  259. !       else if (c < 040 || c == 0177)
  260.           col += 3;
  261.       }
  262.   
  263. ***************
  264. *** 306,312 ****
  265.     register int pos;
  266.     register int c;
  267.     register int tab_width = XFASTINT (bf_cur->tab_width);
  268. !   register int ctl_arrow = !NULL (bf_cur->ctl_arrow);
  269.     int selective
  270.       = XTYPE (bf_cur->selective_display) == Lisp_Int
  271.         ? XINT (bf_cur->selective_display)
  272. --- 313,321 ----
  273.     register int pos;
  274.     register int c;
  275.     register int tab_width = XFASTINT (bf_cur->tab_width);
  276. !   register int ctl_arrow = !NULL (bf_cur->ctl_arrow)
  277. !                              + (EQ (bf_cur->ctl_arrow, Qt));
  278. !   register int meta_display = !NULL (bf_cur->meta_display);
  279.     int selective
  280.       = XTYPE (bf_cur->selective_display) == Lisp_Int
  281.         ? XINT (bf_cur->selective_display)
  282. ***************
  283. *** 370,376 ****
  284.           }
  285.       }
  286.         else
  287. !     cpos += (ctl_arrow && c < 0200) ? 2 : 4;
  288.   
  289.         if (HPOS (cpos) >= width
  290.         && (HPOS (cpos) > width
  291. --- 379,387 ----
  292.           }
  293.       }
  294.         else
  295. ! 
  296. !     cpos += (c < 0200) ? (ctl_arrow == 1 ? 1 : (ctl_arrow ? 2 : 4))
  297. !                        : (meta_display ? 1 : 4);
  298.   
  299.         if (HPOS (cpos) >= width
  300.         && (HPOS (cpos) > width
  301. *** xdisp.c    Wed Apr 26 15:13:59 1989
  302. --- ../xdisp.c    Fri May 11 06:23:28 1990
  303. ***************
  304. *** 1203,1209 ****
  305.     register char *p1prev;
  306.     register struct display_line *line;
  307.     int tab_width = XINT (bf_cur->tab_width);
  308. !   int ctl_arrow = !NULL (bf_cur->ctl_arrow);
  309.     int width = XFASTINT (w->width) - 1
  310.       - (XFASTINT (w->width) + XFASTINT (w->left) != screen_width);
  311.     struct position val;
  312. --- 1203,1210 ----
  313.     register char *p1prev;
  314.     register struct display_line *line;
  315.     int tab_width = XINT (bf_cur->tab_width);
  316. !   int ctl_arrow = !NULL (bf_cur->ctl_arrow) + (EQ (bf_cur->ctl_arrow, Qt));
  317. !   int meta_display = !NULL (bf_cur->meta_display);
  318.     int width = XFASTINT (w->width) - 1
  319.       - (XFASTINT (w->width) + XFASTINT (w->left) != screen_width);
  320.     struct position val;
  321. ***************
  322. *** 1319,1324 ****
  323. --- 1320,1332 ----
  324.           }
  325.         break;
  326.       }
  327. +       else if (((ctl_arrow == 1) && (c < 0200)) ||
  328. +                (meta_display && (c >= 0200)))
  329. +       {
  330. +           if (p1 >= startp)
  331. +               *p1 = c;
  332. +           p1++;
  333. +       }
  334.         else if (c < 0200 && ctl_arrow)
  335.       {
  336.         if (p1 >= startp)
  337. ***************
  338. *** 1917,1922 ****
  339. --- 1925,1937 ----
  340.             p1++;
  341.           }
  342.         while ((p1 - start + hscroll - (hscroll > 0)) % tab_width);
  343. +     }
  344. +       else if (((c <  0200) && (buffer_defaults.ctl_arrow == 1)) ||
  345. +                ((c >= 0200) && buffer_defaults.meta_display))
  346. +       {
  347. +           if (p1 >= start)
  348. +               *p1 = c;
  349. +           p1++;
  350.         }
  351.         else if (c < 0200 && buffer_defaults.ctl_arrow)
  352.       {
  353. -- 
  354. --Christopher Alexander North-Keys----/\--------------------------------------
  355.   Co-founder Group Talisman          /  \/\ ^*^               Harp[@Mcc.Com]
  356.   [*my* opinions]                   /    \ \       Associate Systems Analyst
  357. --------------------------Microelectronics & Computer Technology Corporation--
  358.  
  359.  
  360.