Mercurial > hg > xemacs-beta

comparison src/fns.c @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents 90d73dddcdc4
children c9fe270a4101
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
604 #ifdef LOSING_BYTECODE 604 #ifdef LOSING_BYTECODE
605 else if (COMPILED_FUNCTIONP (seq)) 605 else if (COMPILED_FUNCTIONP (seq))
606 /* Urk! We allow this, for "compatibility"... */ 606 /* Urk! We allow this, for "compatibility"... */
607 ; 607 ;
608 #endif 608 #endif
609 #if 0 /* removed for XEmacs 21 */
609 else if (INTP (seq)) 610 else if (INTP (seq))
610 /* This is too revolting to think about but maintains 611 /* This is too revolting to think about but maintains
611 compatibility with FSF (and lots and lots of old code). */ 612 compatibility with FSF (and lots and lots of old code). */
612 args[argnum] = Fnumber_to_string (seq); 613 args[argnum] = Fnumber_to_string (seq);
614 #endif
613 else 615 else
614 { 616 {
615 check_losing_bytecode ("concat", seq); 617 check_losing_bytecode ("concat", seq);
616 args[argnum] = wrong_type_argument (Qsequencep, seq); 618 args[argnum] = wrong_type_argument (Qsequencep, seq);
617 } 619 }