Re: new bug in hm--html-menus
Hrvoje Niksic <hniksic(a)srce.hr> writes:
> You are not allowed to call X functions during bytecompilation
(nor
> any other feature specific call).
I don't have the hm-- stuff around, so I can't fix the problem. I do
remember that someone changed the code in question lately, so
investigating that change should lead to the problem.
I did. I even used that function. However it used in this way(see below), not
called. Are the cl macros getting in the way?
Jan
[for a few hours back from usenet-death]
(if (adapt-xemacsp)
(progn
(defvar hm--html-gpmr (symbol-function 'get-popup-menu-response))
(defun hm--html-call-wrapped-sgml-menu (event)
(flet ((get-popup-menu-response (menudesc &optional event)
(setq menudesc
(append hm--html-popup-menu
(list "=="
(car menudesc)
"==")
(cdr menudesc)))
(setq event (funcall hm--html-gpmr
menudesc event))
(if (and (misc-user-event-p event)
(commandp (event-object event))
(boundp 'hm--html-mark))
(progn
(set-mark hm--html-mark)
(goto-char hm--html-point)
(call-interactively (event-object event)))
event)))
(sgml-tags-menu event)))