Re: Porting from XEmacs to Emacs: event-glyph-extent

[Stefan Monnier]

> > (defun zeta-marker-activate (e)
> >   (interactive "e")
> >   (let ((m (event-glyph-extent e)) act)
> >     (if (and m (setq act (extent-property m 'zeta-marker-action)))
> >         (funcall act m)
> >       (mouse-set-point e))))

> > "event-glyph-extent" seems to be problematic, at least my attempts to
> > emulate this in GNU Emacs (with constructs like "overlays-at
> > (event-start e)") failed.  Is this non-trivial or do I just missing
> > something obvious?

I think that using something like (overlays-at (posn-point (event-start e)))
should be workable.  It's probably easier to just put a `keymap'
property on the overlay, tho (same thing for XEmacs).


        Stefan