home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / gnu / emacs / sources / 913 < prev    next >
Encoding:
Text File  |  1992-12-29  |  2.0 KB  |  61 lines
  1. Path: sparky!uunet!ittc!fpb
  2. From: fpb@ittc.wec.com (Frank P. Bresz)
  3. Newsgroups: gnu.emacs.sources
  4. Subject: Useful? Changes to x-mouse.el
  5. Message-ID: <FPB.92Dec29080952@ittc.ittc.wec.com>
  6. Date: 29 Dec 92 13:09:52 GMT
  7. Sender: news@ittc.wec.com
  8. Distribution: gnu
  9. Organization: Westinghouse, ITTC, Pgh, PA.
  10. Lines: 49
  11.  
  12.  
  13. Here are 2 changes for x-mouse.el that I think make it behave a little
  14. better.  The first flashes the cursor when using the right mouse button to
  15. set the mark.  The second selects the window the mouse is on before using
  16. the buffer-menu to pick a buffer (usually what I want).
  17.  
  18.                     FPB }*{
  19.  
  20. fpb(kkl)@sim118:lisp 126==>rcsdiff -c -r1.1 x-mouse.el
  21. ===================================================================
  22. RCS file: RCS/x-mouse.el_v
  23. retrieving revision 1.1
  24. diff -c -r1.1 x-mouse.el
  25. *** /tmp/T0a07905       Mon Dec 28 17:17:28 1992
  26. --- x-mouse.el  Mon Dec 28 17:17:41 1992
  27. ***************
  28. *** 182,188 ****
  29.                 end (max opoint (point)))
  30.           (x-store-cut-buffer (buffer-substring beg end))
  31.           (copy-region-as-kill beg end)
  32. !         (if kill (delete-region beg end))))
  33.       (message "Mouse not in selected window")))
  34.  
  35.   (defun x-paste-text (arg)
  36. --- 182,189 ----
  37.                 end (max opoint (point)))
  38.           (x-store-cut-buffer (buffer-substring beg end))
  39.           (copy-region-as-kill beg end)
  40. !         (if kill (delete-region beg end))
  41. !         (sit-for 1)))
  42.       (message "Mouse not in selected window")))
  43.  
  44.   (defun x-paste-text (arg)
  45. ***************
  46. *** 199,204 ****
  47. --- 200,206 ----
  48.  
  49.   (defun x-buffer-menu (arg)
  50.     "Pop up a menu of buffers for selection with the mouse."
  51. +   (x-mouse-select arg)
  52.     (let ((menu
  53.          (list "Buffer Menu"
  54.                (cons "Select Buffer"
  55.  
  56. --
  57. Frank P. Bresz <fpb@ittc.pgh.wec.com>, uunet!ittc!fpb, +1 412 733 6749, Fx 6444
  58. My opinions are mine, Westinghouse pays big money for *official* opinions
  59. Member: League for Programming Freedom (LPF)  | STOP Software Patents
  60. For more information on the 'LPF' send mail   | before they stop you.
  61.