🚀 go-pugleaf

In <1991May2.130332.23508@eua.ericsson.se> ebubra@erix.ericsson.se (Bertil Askelid) writes:

>	When you are in an I-search and hit C-f (or any other control
>	sequence but ESC, C-s, C-w, C-y, C-q), the I-search is abandonded.
>	Same thing in non-epoch Gnu emacs under X when you hit a mouse
>	button.

>	Is there any way to make a mouse button cause I-search to be left
>	in Epoch?

I define this:

(defun abort-isearch () "Abort any isearch in progress."
  (condition-case err
      (throw 'search-done t)
    (no-catch nil)))

Then I add it to all the functions I want to abort isearch, e.g.:

(defun start-mouse-drag (arg)
  (when arg
    (setq mouse::downp 'start)
    (mouse::set-point arg)
    (set-mouse-marker)
    (setq mouse::last-point (point))
    (if drag-button
      (progn (delete-button drag-button) (setq drag-button nil) )
    )
  )
  (abort-isearch)
)

It is the easiest solution I could come up with, but it is certainly not
the best thing.  It works most of the time - you still need to abort the
isearch with a control character if it was started from a mouse hit itself.
---
Ken Laprade			INTERNET: laprade@trantor.harris-atd.com
Harris Corporation 		Usenet:  ...!uunet!x102a!trantor!laprade
PO Box 37, MS 3A/1912		Voice: (407)727-4433
Melbourne, FL 32902		FAX: (407)729-3363