Mercurial > hg > xemacs-beta

comparison src/elhash.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 859a2309aef8
children 8eaf7971accc
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
473 else if (CONSP (function)) 473 else if (CONSP (function))
474 { 474 {
475 Lisp_Object funcar = Fcar (function); 475 Lisp_Object funcar = Fcar (function);
476 if ((SYMBOLP (funcar)) 476 if ((SYMBOLP (funcar))
477 && (EQ (funcar, Qlambda) 477 && (EQ (funcar, Qlambda)
478 #ifdef MOCKLISP_SUPPORT
479 || EQ (funcar, Qmocklisp)
480 #endif
481 || EQ (funcar, Qautoload))) 478 || EQ (funcar, Qautoload)))
482 return; 479 return;
483 } 480 }
484 signal_error (Qinvalid_function, list1 (function)); 481 signal_error (Qinvalid_function, list1 (function));
485 } 482 }