Re: DND for XEmacs 21
Hrvoje Niksic <hniksic(a)srce.hr> writes:
OK, I just thought of a way to fix it: how about adding a
`current-misc-user-event' variable that will be set to the event
immediately prior to dispatching the callback function?
I now see that this is not necessary, because current-mouse-event
stores a copy of the current misc-user event, and the callback
function can use that.
(setq a (make-event 'misc-user '(function (lambda (obj)
(setq b current-mouse-event))
object nil)))
(push a unread-command-events)
(equal a b)
=> t
Does current-mouse-event solve your problem?
--
Hrvoje Niksic <hniksic(a)srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Ask not for whom the <CONTROL-G> tolls.