[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 16:56:26 -0700

Another question about use of `special-event-map' - consider this code:

(define-key special-event-map [iconify-frame] 'toto)

(defun foo ()
  (let ((binding (lookup-key special-event-map [iconify-frame])))
    (define-key special-event-map [iconify-frame] 'ignore-event)
    (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?

reply via email to

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