comparison src/doc.c @ 42275:4bb44400f978

(Fdocumentation): Remove mocklisp case.
author Pavel Janík <Pavel@Janik.cz>
date Sat, 22 Dec 2001 13:59:08 +0000
parents e192139240f2
children 5943cc278b4c
comparison
equal deleted inserted replaced
42274:093178b691f0 42275:4bb44400f978
370 && !NILP (XCDR (tem1))) 370 && !NILP (XCDR (tem1)))
371 doc = tem; 371 doc = tem;
372 else 372 else
373 return Qnil; 373 return Qnil;
374 } 374 }
375 else if (EQ (funcar, Qmocklisp))
376 return Qnil;
377 else if (EQ (funcar, Qmacro)) 375 else if (EQ (funcar, Qmacro))
378 return Fdocumentation (Fcdr (fun), raw); 376 return Fdocumentation (Fcdr (fun), raw);
379 else 377 else
380 goto oops; 378 goto oops;
381 } 379 }