Mercurial > hg > xemacs-beta

comparison src/callint.c @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 131b0175ea99
children 15872534500d
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
308 specs = Fassq (Qinteractive, Fcdr (Fcdr (fun))); 308 specs = Fassq (Qinteractive, Fcdr (Fcdr (fun)));
309 if (NILP (specs)) 309 if (NILP (specs))
310 goto lose; 310 goto lose;
311 specs = Fcar (Fcdr (specs)); 311 specs = Fcar (Fcdr (specs));
312 } 312 }
313 #ifdef MOCKLISP_SUPPORT
314 else if (EQ (funcar, Qmocklisp))
315 {
316 single_console_state ();
317 return ml_apply (fun, Qinteractive);
318 }
319 #endif
320 else 313 else
321 goto lose; 314 goto lose;
322 } 315 }
323 316
324 /* FSFmacs makes an alloca() copy of prompt_data here. 317 /* FSFmacs makes an alloca() copy of prompt_data here.