🚀 go-pugleaf

I've answered my own question, and thought I'd share with the list the code
needed to handle it.  These two routines cause an isearch to be aborted on
window unfocus events (i.e. when the mouse cursor leaves the epoch screen).
For me, this avoids all sorts of unpleasant surprises :-) I've seen code on
this list to terminate searches for click-to-type interfaces, but I prefer
focus to follow the mouse cursor, and I hadn't seen any code to handle this
too.  This handler does both.  It overrides pieces of code in epoch.el.

;
; From the epoch list - Ken Laprade, Harris Corp.,
; ringworld!laprade@trantor.harris-atd.com
; Modified by garyo and rad@think.com
;
(defun abort-isearch () "Abort any isearch in progress."
       (let ((epoch::event-handler-abort nil))   ; hide search errors from
	 (condition-case err                     ; focus handler
	      (throw 'search-done t)
	    (no-catch nil))))

;
; From rad@think.com (and garyo) - abort an isearch on window de-focus
; Push a new handler for focus and de-focus events
; Down with anonymous handlers! :-)
;
(defun focus-handler (type new-focus-state scr) "Handle (un)focus events."
       (if new-focus-state
	   (select-screen scr)            ; on window focus events
	   (abort-isearch)                ; on window de-focus events
	   ))

(push-event 'focus (function focus-handler))

--------
Bob Doolittle
Thinking Machines Corporation
rad@think.com
(617)234-2734