home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / hebrew / patch-src < prev    next >
Encoding:
Text File  |  1992-08-22  |  13.9 KB  |  443 lines
  1. *** buffer.c.orig    Thu Jun  4 15:19:29 1992
  2. --- buffer.c    Thu Jun  4 16:01:40 1992
  3. ***************
  4. *** 1069,1074 ****
  5. --- 1069,1076 ----
  6.     XFASTINT (buffer_defaults.tab_width) = 8;
  7.     buffer_defaults.truncate_lines = Qnil;
  8.     buffer_defaults.ctl_arrow = Qt;
  9. +   buffer_defaults.display_literal = Qnil;    /* yossi */
  10. +   buffer_defaults.display_reversed = Qnil;    /* yossi */
  11.   
  12.     XFASTINT (buffer_defaults.fill_column) = 70;
  13.     XFASTINT (buffer_defaults.left_margin) = 0;
  14. ***************
  15. *** 1107,1112 ****
  16. --- 1109,1116 ----
  17.     XFASTINT (buffer_local_flags.left_margin) = 0x800;
  18.     XFASTINT (buffer_local_flags.abbrev_table) = 0x1000;
  19.     XFASTINT (buffer_local_flags.syntax_table) = 0x2000;
  20. +   XFASTINT (buffer_local_flags.display_literal) = 0x4000;    /* yossi */
  21. +   XFASTINT (buffer_local_flags.display_reversed) = 0x8000;    /* yossi */
  22.   
  23.     Vbuffer_alist = Qnil;
  24.     current_buffer = 0;
  25. ***************
  26. *** 1178,1183 ****
  27. --- 1182,1197 ----
  28.       "Default ctl-arrow for buffers that do not override it.\n\
  29.   This is the same as (default-value 'ctl-arrow).");
  30.   
  31. +   DEFVAR_LISP_NOPRO ("default-display-literal",        /* yossi */
  32. +           &buffer_defaults.display_literal,
  33. +     "Default display-literal for buffers that do not override it.\n\
  34. + This is the same as (default-value 'display-literal).");
  35. + 
  36. +   DEFVAR_LISP_NOPRO ("default-display-reversed",    /* yossi */
  37. +           &buffer_defaults.display_reversed,
  38. +     "Default display-reversed for buffers that do not override it.\n\
  39. + This is the same as (default-value 'display-reversed).");
  40. + 
  41.     DEFVAR_LISP_NOPRO ("default-truncate-lines",
  42.             &buffer_defaults.truncate_lines,
  43.       "Default truncate-lines for buffers that do not override it.\n\
  44. ***************
  45. *** 1269,1274 ****
  46. --- 1283,1299 ----
  47.       "*Non-nil means display control chars with uparrow.\n\
  48.   Nil means use backslash and octal digits.\n\
  49.   Automatically becomes local when set in any fashion.");
  50. + 
  51. +   DEFVAR_PER_BUFFER ("display-literal", ¤t_buffer->display_literal,   /* yossi */
  52. +     "*Non-nil means display the characters in the buffer as they are,\n\
  53. + even when ther are \"nonprintable\" ascii.\n\
  54. + Nil means display using ctl-arrow for the low nonprintables, and use\n\
  55. + backslash and octal digits for the high nonprintables.\n\
  56. + Automatically becomes local when set in any fashion.");
  57. + 
  58. +   DEFVAR_PER_BUFFER ("display-reversed", ¤t_buffer->display_reversed, /* yossi */
  59. +     "*Non-nil means display each line of the buffer in reversed order,\n\
  60. + useful for editing texts in Semitic languages which write right-to-left.");
  61.   
  62.     DEFVAR_PER_BUFFER ("truncate-lines", ¤t_buffer->truncate_lines,
  63.       "*Non-nil means do not display continuation lines;\n\
  64. *** buffer.h.orig    Fri Jan  4 19:12:49 1991
  65. --- buffer.h    Thu Jun  4 16:01:41 1992
  66. ***************
  67. *** 208,213 ****
  68. --- 208,219 ----
  69.       Lisp_Object truncate_lines;
  70.       /* Non-nil means display ctl chars with uparrow */
  71.       Lisp_Object ctl_arrow;
  72. +     /* yossi-- Non-nil means display the characters in the buffer as they are,
  73. +        even when they are "nonprintable" ascii.  This is particularly useful
  74. +        for fonts which have more than 128 characters */
  75. +     Lisp_Object display_literal;
  76. +     /* yossi-- Non-nil means reverse each line of the buffer, for Semitics */
  77. +     Lisp_Object display_reversed;
  78.       /* Non-nil means do selective display;
  79.          See doc string in syms_of_buffer (buffer.c) for details.  */
  80.       Lisp_Object selective_display;
  81. *** dispnew.c.orig    Thu Jun  4 15:19:39 1992
  82. --- dispnew.c    Thu Jun  4 16:01:42 1992
  83. ***************
  84. *** 614,624 ****
  85.     reassert_line_highlight (0, cursor_vpos);
  86.     output_chars (¤t_screen->contents[vpos][hpos], 1);
  87.     fflush (stdout);
  88. !   ++cursor_hpos;
  89.     if (hpos == current_screen->used[vpos])
  90.       {
  91. !       current_screen->used[vpos] = hpos + 1;
  92. !       current_screen->contents[vpos][hpos + 1] = 0;
  93.       }
  94.     return 1;
  95.   }
  96. --- 614,624 ----
  97.     reassert_line_highlight (0, cursor_vpos);
  98.     output_chars (¤t_screen->contents[vpos][hpos], 1);
  99.     fflush (stdout);
  100. !   cursor_hpos += (NULL(XBUFFER(w->buffer)->display_reversed))? 1: -1;    /* yossi */
  101.     if (hpos == current_screen->used[vpos])
  102.       {
  103. !       current_screen->used[vpos] = cursor_hpos;
  104. !       current_screen->contents[vpos][cursor_hpos] = 0;
  105.       }
  106.     return 1;
  107.   }
  108. ***************
  109. *** 633,639 ****
  110.     if (XINT (w->hscroll) && cursor_hpos == XFASTINT (w->left))
  111.       return 0;
  112.   
  113. !   cursor_hpos += n;
  114.     XFASTINT (w->last_point_x) = cursor_hpos;
  115.     XFASTINT (w->last_point) = point;
  116.     move_cursor (cursor_vpos, cursor_hpos);
  117. --- 633,639 ----
  118.     if (XINT (w->hscroll) && cursor_hpos == XFASTINT (w->left))
  119.       return 0;
  120.   
  121. !   cursor_hpos += (NULL(XBUFFER(w->buffer)->display_reversed))? n: -n;    /* yossi */
  122.     XFASTINT (w->last_point_x) = cursor_hpos;
  123.     XFASTINT (w->last_point) = point;
  124.     move_cursor (cursor_vpos, cursor_hpos);
  125. *** indent.c.orig    Thu Jun  4 15:19:50 1992
  126. --- indent.c    Thu Jun  4 16:07:53 1992
  127. ***************
  128. *** 79,84 ****
  129. --- 79,85 ----
  130.     register int post_tab;
  131.     register int tab_width = XINT (current_buffer->tab_width);
  132.     int ctl_arrow = !NULL (current_buffer->ctl_arrow);
  133. +   int display_literal = !NULL (current_buffer->display_literal);    /* yossi */
  134.   
  135.     if (point == last_known_column_point
  136.         && MODIFF == last_known_column_modified)
  137. ***************
  138. *** 132,137 ****
  139. --- 133,142 ----
  140.         col = 0;
  141.         tab_seen = 1;
  142.       }
  143. +       else if (display_literal)            /* yossi */
  144. +     {
  145. +       col++;
  146. +     }
  147.         else
  148.       col += (ctl_arrow && c < 0200) ? 2 : 4;
  149.       }
  150. ***************
  151. *** 298,303 ****
  152. --- 303,309 ----
  153.     register int end = ZV;
  154.     register int tab_width = XINT (current_buffer->tab_width);
  155.     register int ctl_arrow = !NULL (current_buffer->ctl_arrow);
  156. +   register int display_literal = !NULL (current_buffer->display_literal);    /* yossi */
  157.   
  158.     Lisp_Object val;
  159.   
  160. ***************
  161. *** 324,332 ****
  162.         col += tab_width - 1;
  163.         col = col / tab_width * tab_width;
  164.       }
  165. !       else if (ctl_arrow && (c < 040 || c == 0177))
  166.           col++;
  167. !       else if (c < 040 || c >= 0177)
  168.           col += 3;
  169.       }
  170.   
  171. --- 330,338 ----
  172.         col += tab_width - 1;
  173.         col = col / tab_width * tab_width;
  174.       }
  175. !       else if ((!display_literal) && ctl_arrow && (c < 040 || c == 0177))  /* yossi */
  176.           col++;
  177. !       else if ((!display_literal) && (c < 040 || c >= 0177))    /* yossi */
  178.           col += 3;
  179.       }
  180.   
  181. ***************
  182. *** 355,360 ****
  183. --- 361,367 ----
  184.     register int c;
  185.     register int tab_width = XFASTINT (current_buffer->tab_width);
  186.     register int ctl_arrow = !NULL (current_buffer->ctl_arrow);
  187. +   register int display_literal = !NULL (current_buffer->display_literal);    /* yossi */
  188.     int selective
  189.       = XTYPE (current_buffer->selective_display) == Lisp_Int
  190.         ? XINT (current_buffer->selective_display)
  191. ***************
  192. *** 428,433 ****
  193. --- 435,442 ----
  194.           hpos = width;
  195.           }
  196.       }
  197. +       else if (display_literal)            /* yossi */
  198. +     hpos++;
  199.         else
  200.       hpos += (ctl_arrow && c < 0200) ? 2 : 4;
  201.   
  202. *** keyboard.c.orig    Thu Jun  4 15:19:53 1992
  203. --- keyboard.c    Thu Jun  4 16:01:44 1992
  204. ***************
  205. *** 705,711 ****
  206.           {
  207.             lose = FETCH_CHAR (point);
  208.             SET_PT (point + 1);
  209. !           if (lose >= ' ' && lose < 0177
  210.                 && (XFASTINT (XWINDOW (selected_window)->last_modified)
  211.                 >= MODIFF)
  212.                 && (XFASTINT (XWINDOW (selected_window)->last_point)
  213. --- 705,712 ----
  214.           {
  215.             lose = FETCH_CHAR (point);
  216.             SET_PT (point + 1);
  217. !           if (((lose >= ' ' && lose < 0177) ||
  218. !                !NULL(current_buffer->display_literal))        /* yossi */
  219.                 && (XFASTINT (XWINDOW (selected_window)->last_modified)
  220.                 >= MODIFF)
  221.                 && (XFASTINT (XWINDOW (selected_window)->last_point)
  222. ***************
  223. *** 721,727 ****
  224.           {
  225.             SET_PT (point - 1);
  226.             lose = FETCH_CHAR (point);
  227. !           if (lose >= ' ' && lose < 0177
  228.                 && (XFASTINT (XWINDOW (selected_window)->last_modified)
  229.                 >= MODIFF)
  230.                 && (XFASTINT (XWINDOW (selected_window)->last_point)
  231. --- 722,729 ----
  232.           {
  233.             SET_PT (point - 1);
  234.             lose = FETCH_CHAR (point);
  235. !           if (((lose >= ' ' && lose < 0177) ||
  236. !                !NULL(current_buffer->display_literal))        /* yossi */
  237.                 && (XFASTINT (XWINDOW (selected_window)->last_modified)
  238.                 >= MODIFF)
  239.                 && (XFASTINT (XWINDOW (selected_window)->last_point)
  240. ***************
  241. *** 761,768 ****
  242.               }
  243.             if (!lose
  244.                 && (point == ZV || FETCH_CHAR (point) == '\n')
  245. !               && last_command_char >= ' '
  246. !               && last_command_char < 0177)
  247.               no_redisplay
  248.                 = direct_output_for_insert (last_command_char);
  249.             goto directly_done;
  250. --- 763,770 ----
  251.               }
  252.             if (!lose
  253.                 && (point == ZV || FETCH_CHAR (point) == '\n')
  254. !               && ((last_command_char >= ' ' && last_command_char < 0177) ||
  255. !               !NULL(current_buffer->display_literal)))    /* yossi */
  256.               no_redisplay
  257.                 = direct_output_for_insert (last_command_char);
  258.             goto directly_done;
  259. *** xdisp.c.orig    Thu Jun  4 15:20:53 1992
  260. --- xdisp.c    Thu Jun  4 16:01:45 1992
  261. ***************
  262. *** 405,410 ****
  263. --- 405,417 ----
  264.         if (pos.vpos < 1)
  265.           {
  266.             cursor_hpos = max (XFASTINT (w->left), pos.hpos);
  267. +           if (!NULL(XBUFFER(w->buffer)->display_reversed)) {    /* yossi */
  268. +           register int width = XFASTINT (w->width) - 1
  269. +               - (XFASTINT(w->width) + XFASTINT(w->left) != screen_width);
  270. +           
  271. +           cursor_hpos = XFASTINT(w->left) + width -
  272. +               (cursor_hpos - XFASTINT(w->left));
  273. +           }
  274.             cursor_vpos = this_line_vpos;
  275.             goto update;
  276.           }
  277. ***************
  278. *** 551,556 ****
  279. --- 558,589 ----
  280.         last_arrow_string = Qt;
  281.       }
  282.   }
  283. + 
  284. + /*
  285. +  * yossi-- the following function is a simplified version of Denys Duchier's
  286. +  *         epoch::redisplay-screen, stolen from Epoch 3.1.
  287. +  */
  288. + DEFUN ("x-smart-redisplay",Fx_smart_redisplay,Sx_smart_redisplay,0,0,"",
  289. +        "Perform a smart redisplay of the screen.")
  290. +      ()
  291. +     {
  292. +     Lisp_Object root_window = XWINDOW (minibuf_window)->prev;
  293. +     int modified = BUF_MODIFF(current_buffer)++;
  294. + 
  295. +     windows_or_buffers_changed++;
  296. + 
  297. +     do_pending_window_change();
  298. +     if (interrupt_input) unrequest_sigio();
  299. + 
  300. +     redisplay_window(root_window,0);
  301. +     update_screen(1,1);
  302. + 
  303. +     BUF_MODIFF(current_buffer) = modified;
  304. +     do_pending_window_change();
  305. +     if (interrupt_input) request_sigio();
  306. + 
  307. +     return Qnil;
  308. +     }
  309.   
  310.   int do_id = 1;
  311.   
  312. ***************
  313. *** 672,677 ****
  314. --- 705,717 ----
  315.         if (EQ (window, selected_window))
  316.           {
  317.             cursor_hpos = max (0, pos.hpos) + XFASTINT (w->left);
  318. +           if (!NULL(XBUFFER(w->buffer)->display_reversed)) {    /* yossi */
  319. +           register int width = XFASTINT (w->width) - 1
  320. +               - (XFASTINT(w->width) + XFASTINT(w->left) != screen_width);
  321. +           
  322. +           cursor_hpos = XFASTINT(w->left) + width -
  323. +               (cursor_hpos - XFASTINT(w->left));
  324. +           }
  325.             cursor_vpos = pos.vpos + XFASTINT (w->top);
  326.           }
  327.       }
  328. ***************
  329. *** 704,709 ****
  330. --- 744,756 ----
  331.           {
  332.             /* These variables are supposed to be origin 1 */
  333.             cursor_hpos = max (0, pos.hpos) + XFASTINT (w->left);
  334. +           if (!NULL(XBUFFER(w->buffer)->display_reversed)) {    /* yossi */
  335. +           register int width = XFASTINT (w->width) - 1
  336. +               - (XFASTINT(w->width) + XFASTINT(w->left) != screen_width);
  337. +           
  338. +           cursor_hpos = XFASTINT(w->left) + width -
  339. +               (cursor_hpos - XFASTINT(w->left));
  340. +           }
  341.             cursor_vpos = pos.vpos + XFASTINT (w->top);
  342.           }
  343.   /* This doesn't do the trick, because if a window to the right of
  344. ***************
  345. *** 1213,1218 ****
  346. --- 1260,1272 ----
  347.       }
  348.   
  349.     cursor_hpos = max (0, point_hpos);
  350. +   if (!NULL(XBUFFER(w->buffer)->display_reversed)) {    /* yossi */
  351. +       register int width = XFASTINT (w->width) - 1
  352. +       - (XFASTINT(w->width) + XFASTINT(w->left) != screen_width);
  353. +       
  354. +       cursor_hpos = XFASTINT(w->left) + width -
  355. +       (cursor_hpos - XFASTINT(w->left));
  356. +   }
  357.     cursor_vpos = point_vpos;
  358.   
  359.     if (debug_end_pos)
  360. ***************
  361. *** 1265,1270 ****
  362. --- 1319,1325 ----
  363.     register unsigned char *p1prev;
  364.     int tab_width = XINT (current_buffer->tab_width);
  365.     int ctl_arrow = !NULL (current_buffer->ctl_arrow);
  366. +   int display_literal = !NULL (current_buffer->display_literal);    /* yossi */
  367.     int width = XFASTINT (w->width) - 1
  368.       - (XFASTINT (w->width) + XFASTINT (w->left) != screen_width);
  369.     struct position val;
  370. ***************
  371. *** 1382,1387 ****
  372. --- 1437,1448 ----
  373.           }
  374.         break;
  375.       }
  376. +       else if (display_literal)        /* yossi */
  377. +     {
  378. +       if (p1 >= startp)
  379. +         *p1 = c;
  380. +       p1++;
  381. +     }
  382.         else if (c < 0200 && ctl_arrow)
  383.       {
  384.         if (p1 >= startp)
  385. ***************
  386. *** 1534,1539 ****
  387. --- 1595,1624 ----
  388.   
  389.     val.bufpos = pos;
  390.     val_display_text_line = val;
  391. +   
  392. +   /* yossi-- reverse the line if necessary */
  393. +   if (!NULL(current_buffer->display_reversed)) {
  394. +       unsigned char *p2, t;
  395. + 
  396. +       if (p1 < endp + 1) {
  397. +       while (p1 <= endp) *p1++ = ' ';
  398. +       new_screen->used[vpos] = max(new_screen->used[vpos], p1 - new_screen->contents[vpos]);
  399. +       new_screen->contents[vpos][new_screen->used[vpos]] = 0;
  400. +       }
  401. + 
  402. +       /* reverse the line */
  403. +       for (p1 = startp, p2 = startp + width; p1 < p2; p1++, --p2) {
  404. +       t = *p1;
  405. +       *p1 = *p2;
  406. +       *p2 = t;
  407. +       }
  408. + 
  409. +       /* reverse the position of point if necessary */
  410. +       if ((point_vpos == vpos) && (w == XWINDOW (selected_window)))
  411. +       cursor_hpos = XFASTINT(w->left) + width -
  412. +           (cursor_hpos - XFASTINT(w->left));
  413. +   }
  414. + 
  415.     return &val_display_text_line;
  416.   }
  417.   
  418. ***************
  419. *** 1976,1981 ****
  420. --- 2061,2072 ----
  421.           }
  422.         while ((p1 - start + hscroll - (hscroll > 0)) % tab_width);
  423.       }
  424. +       else if (buffer_defaults.display_literal)        /* yossi */
  425. +     {
  426. +       if (p1 >= start)
  427. +         *p1 = c;
  428. +       p1++;
  429. +     }
  430.         else if (c < 0200 && buffer_defaults.ctl_arrow)
  431.       {
  432.         if (p1 >= start)
  433. ***************
  434. *** 2065,2070 ****
  435. --- 2156,2162 ----
  436.     mode_line_inverse_video = 1;
  437.   
  438.     defsubr (&Sredraw_display);
  439. +   defsubr (&Sx_smart_redisplay);        /* yossi */
  440.   }
  441.   
  442.   /* initialize the window system */
  443.