🚀 go-pugleaf

	This was first patched by Ken Laprade, for epoch 3.2beta. He
defined his own mouse::paste-cut-buffer which explicitly called
(epoch::redisplay-screen) where appropriate.
	He also had a fix that causes mouse clicks to abort searchs,
which I've included also. 
	I've just gone ahead and modified the epoch-lisp mouse.el as
follows:

*** /gold3/mac/epoch-3.2/epoch-lisp/mouse.el~	Thu Mar 14 12:34:57 1991
--- /gold3/mac/epoch-3.2/epoch-lisp/mouse.el	Thu Mar 14 12:38:10 1991
***************
*** 281,287 ****
--- 281,294 ----
    (select-screen (nth 3 arg))
    (if (nth 2 arg) (select-window (nth 2 arg)))
    (if (car arg) (goto-char (car arg)))
+   (abort-isearch)
+   (epoch::redisplay-screen)  
  )
+ (defun abort-isearch ()
+   (condition-case err
+          (throw 'search-done t)
+   (no-catch nil)))
+ 
  ;;;
  (defun mouse::copy-button (button &optional kill)
    "Copy the text in the BUTTON into the X cut buffer and into the Epoch kill ring.
***************
*** 315,320 ****
--- 322,328 ----
  	(goto-char (car arg))
  	(insert (epoch::get-cut-buffer))
  	(undo-start)
+ 	(epoch::redisplay-screen)
        )
      )
    )