[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]
[MD:1202]Meadow-1.04a1 freeze with elisp code?
- X-ml-count: 1202
- Subject: [MD:1202]Meadow-1.04a1 freeze with elisp code?
- From: Kenichi Handa <handa@xxxxxxxxx>
- Date: Mon, 17 May 1999 13:30:19 +0900 (JST)
=?ISO-2022-JP?B?GyRCPi40WBsoQiAbJEI1SEInGyhC?= (KOSEKI Yoshinori) <kose@xxxxxxxxxxxxxxxxxx> writes:
himi> $B$O$$!"(BMenu$B$N(Bkeymap$BI>2A$N$?$a$K(B elisp$B$rI>2A$7$^$9$,!"$3$$$D$,(B
himi> $B%P%0$C$F$$$k$H!"(Binhibit-redisplay$B$,(Bt$B$N$^$^Hs6I=jC&=P$7$^$9!#(B
himi> (let ((debug-on-error t))
himi> (x-popup-menu (list '(0 0) (selected-window))
himi> '(keymap (aaa menu-item (aaa)))))
himi> $B$3$&$$$&$N$rI>2A$9$l$P!":F8=$7$^$9!#(B
Unix $B$G$b$3$N%P%0$O:F8=$G$-$^$7$?!#(B
src/keyboard.c $B$N(B
menu_item_eval_property (sexpr)
Lisp_Object sexpr;
{
int count = specpdl_ptr - specpdl;
Lisp_Object val;
specbind (Qinhibit_redisplay, Qt);
val = internal_condition_case_1 (Feval, sexpr, Qerror,
menu_item_eval_property_1);
return unbind_to (count, val);
}
$B$,LdBj$G$9$M!#(B
$B:#(B RMS $B$K%P%0%l%]!<%H$rAw$j$^$7$?!#(B
$B!]!]!!$1$s$A$c$s!w#E#T#L(B
handa@xxxxxxxxx