🚀 go-pugleaf

Here are 2 changes for x-mouse.el that I think make it behave a little
better.  The first flashes the cursor when using the right mouse button to
set the mark.  The second selects the window the mouse is on before using
the buffer-menu to pick a buffer (usually what I want).

					FPB }*{

fpb(kkl)@sim118:lisp 126==>rcsdiff -c -r1.1 x-mouse.el
===================================================================
RCS file: RCS/x-mouse.el_v
retrieving revision 1.1
diff -c -r1.1 x-mouse.el
*** /tmp/T0a07905       Mon Dec 28 17:17:28 1992
--- x-mouse.el  Mon Dec 28 17:17:41 1992
***************
*** 182,188 ****
                end (max opoint (point)))
          (x-store-cut-buffer (buffer-substring beg end))
          (copy-region-as-kill beg end)
!         (if kill (delete-region beg end))))
      (message "Mouse not in selected window")))

  (defun x-paste-text (arg)
--- 182,189 ----
                end (max opoint (point)))
          (x-store-cut-buffer (buffer-substring beg end))
          (copy-region-as-kill beg end)
!         (if kill (delete-region beg end))
!         (sit-for 1)))
      (message "Mouse not in selected window")))

  (defun x-paste-text (arg)
***************
*** 199,204 ****
--- 200,206 ----

  (defun x-buffer-menu (arg)
    "Pop up a menu of buffers for selection with the mouse."
+   (x-mouse-select arg)
    (let ((menu
         (list "Buffer Menu"
               (cons "Select Buffer"

--
Frank P. Bresz <fpb@ittc.pgh.wec.com>, uunet!ittc!fpb, +1 412 733 6749, Fx 6444
My opinions are mine, Westinghouse pays big money for *official* opinions
Member: League for Programming Freedom (LPF)  | STOP Software Patents
For more information on the 'LPF' send mail   | before they stop you.