Mercurial > hg > xemacs-beta

comparison src/doc.c @ 183:e121b013d1f0 r20-3b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b18
author cvs
date Mon, 13 Aug 2007 09:54:23 +0200
parents 8eaf7971accc
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
182:f07455f06202 183:e121b013d1f0
537 if (!INTP (old)) 537 if (!INTP (old))
538 goto weird; 538 goto weird;
539 } 539 }
540 XCAR (tem) = offset; 540 XCAR (tem) = offset;
541 } 541 }
542 else goto weird_function; 542 else if (!CONSP (tem))
543 {
544 weird_doc (sym, GETTEXT ("!CONSP(tem)"),
545 GETTEXT ("function"), pos);
546 goto cont;
547 }
548 else
549 {
550 /* DOC string is a string not integer 0 */
551 #if 0
552 weird_doc (sym, GETTEXT ("!INTP(XCAR(tem))"),
553 GETTEXT ("function"), pos);
554 #endif
555 goto cont;
556 }
543 } 557 }
544 else goto weird_function; 558 else
559 {
560 weird_doc (sym, GETTEXT ("not lambda or autoload"),
561 GETTEXT ("function"), pos);
562 goto cont;
563 }
545 } 564 }
546 else if (COMPILED_FUNCTIONP (fun)) 565 else if (COMPILED_FUNCTIONP (fun))
547 { 566 {
548 /* Compiled-Function objects sometimes have 567 /* Compiled-Function objects sometimes have
549 slots for it. */ 568 slots for it. */
597 weird: 616 weird:
598 /* goto lose */; 617 /* goto lose */;
599 } 618 }
600 } 619 }
601 } 620 }
621 cont:
602 pos += end - buf; 622 pos += end - buf;
603 filled -= end - buf; 623 filled -= end - buf;
604 memmove (buf, end, filled); 624 memmove (buf, end, filled);
605 } 625 }
606 close (fd); 626 close (fd);