> 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
`ignore-event'.
>
> 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 ()
(interactive)
(iconify-frame)
(while (not (input-pending-p))
(sit-for 1))
(discard-input))
Very nice! Works like a charm. Merci. - Drew
_______________________________________________
Help-gnu-emacs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs
