home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / x11fns-patch < prev    next >
Encoding:
Text File  |  1990-05-31  |  2.1 KB  |  72 lines
  1. 24a25,28
  2. > /* Hacked x-get-mouse-event to report Meta in 2-bit rather than 8-bit, so */
  3. > /* it behaves the same as x-proc-mouse-event (I hope). */
  4. > /* Russell Ritchie, Mon Jun 19 12:23:57 1989.*/
  5. > 
  6. 76a81,82
  7. > extern unsigned long mous;
  8. > extern unsigned long curs;
  9. 343a350,364
  10. >   char     *useback;
  11. > 
  12. >   /* USEBACK is the background color, but on monochrome screens
  13. >      changed if necessary not to match the mouse.  */
  14. > 
  15. >   useback = back_color;
  16. > 
  17. >   if (!XXisColor && !strcmp (mous_color, back_color))
  18. >     {
  19. >       if (strcmp (back_color, "white"))
  20. >     useback = "white";
  21. >       else
  22. >     useback = "black";
  23. >     }
  24. > 
  25. 346c367
  26. <       && XParseColor (XXdisplay, XXColorMap, back_color, &backc))
  27. ---
  28. >       && XParseColor (XXdisplay, XXColorMap, useback, &backc))
  29. 443a465,474
  30. > DEFUN ("x-set-baud", Fx_set_baud, Sx_set_baud, 1, 1, "nBaud Rate: ",
  31. >        "Sets the apparent baud rate to influence the refresh algorithm")
  32. >     (new_baud_rate)
  33. > {
  34. >     CHECK_NUMBER (new_baud_rate, 1);
  35. >     check_xterm ();
  36. >     baud_rate = XINT (new_baud_rate);
  37. >     return (Qnil);
  38. > }
  39. > 
  40. 562,563c593,594
  41. < /*        XSET (tempx, Lisp_Int, event.xbutton.x+XXxoffset);
  42. <         XSET (tempy, Lisp_Int, event.xbutton.y+XXyoffset);*/
  43. ---
  44. >         XSET (tempx, Lisp_Int, event.xbutton.x_root);
  45. >         XSET (tempy, Lisp_Int, event.xbutton.y_root);
  46. 583c614,615
  47. < otherwise, wait for an event.")
  48. ---
  49. > otherwise, wait for an event.\n\
  50. > Report Meta in 2 bit (rather than 8 bit) like x-proc-mouse-event does.")
  51. 607a640,645
  52. >         /* Report meta in 2 bit, not in 8 bit.  */
  53. >         if (key_mask & 0x80) 
  54. >           { 
  55. >             key_mask |= 0x20; 
  56. >             key_mask &= ~0x80; 
  57. >           } 
  58. 620,622c658,662
  59. < /*        XSET (tempx, Lisp_Int, event.xbutton.x+XXxoffset);
  60. <         XSET (tempy, Lisp_Int, event.xbutton.y+XXyoffset);*/
  61. <         Vx_mouse_abs_pos = Fcond (tempx, Fcons (tempy, Qnil));
  62. ---
  63. >         XSET (tempx, Lisp_Int, event.xbutton.x_root);
  64. >         XSET (tempy, Lisp_Int, event.xbutton.y_root);
  65. >         Vx_mouse_abs_pos = Fcons (tempx, Fcons (tempy, Qnil));
  66. >         /* Fcond => Fcons, assumed to be a typo, */
  67. >         /* Russell Ritchie, Tue Jun 13 15:42:03 1989 */
  68. 846a887
  69. >   Vx_mouse_abs_pos = Qnil;
  70. 878a920
  71. >   defsubr (&Sx_set_baud);
  72.