[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

RE: use of special-event-map

From: Drew Adams
Subject: RE: use of special-event-map
Date: Fri, 6 May 2005 18:00:00 -0700

    > Another question about use of `special-event-map' - consider 
    this code:
    > (define-key special-event-map [iconify-frame] 'toto)
    > (defun foo ()
    >   (interactive)
    >   (let ((binding (lookup-key special-event-map [iconify-frame])))
    >     (define-key special-event-map [iconify-frame] 'ignore-event)
    >     (iconify-frame)
    >     (define-key special-event-map [iconify-frame] binding)))
    > (defun toto (event)
    >   (interactive "e")
    >   (message "TOTO"))
    > When I try M-x foo, `toto' gets executed, even though `foo' 
    tries to remove
    > its binding. Same thing happens if I use `nil' instead of 
    > Explanation? Any way around this? That is, is there some way 
    I can inhibit
    > the binding of [iconify-frame] for the duration of command foo?
    (defun foo ()
      (while (not (input-pending-p))
        (sit-for 1))
Very nice! Works like a charm. Merci. - Drew

reply via email to

[Prev in Thread] Current Thread [Next in Thread]