Mercurial > hg > xemacs-beta

comparison src/doc.c @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 262b8bb4a523
children 41f2f0e326e9
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
644 #else 644 #else
645 # define kludgily_ignore_lost_doc_p(sym) 0 645 # define kludgily_ignore_lost_doc_p(sym) 0
646 #endif 646 #endif
647 647
648 648
649 static void 649 static int
650 verify_doc_mapper (Lisp_Object sym, Lisp_Object closure) 650 verify_doc_mapper (Lisp_Object sym, void *arg)
651 { 651 {
652 Lisp_Object closure = *(Lisp_Object *)arg;
653
652 if (!NILP (Ffboundp (sym))) 654 if (!NILP (Ffboundp (sym)))
653 { 655 {
654 int doc = 0; 656 int doc = 0;
655 Lisp_Object fun = XSYMBOL (sym)->function; 657 Lisp_Object fun = XSYMBOL (sym)->function;
656 if (CONSP (fun) && 658 if (CONSP (fun) &&
703 message ("Warning: doc lost for variable %s.", 705 message ("Warning: doc lost for variable %s.",
704 string_data (XSYMBOL (sym)->name)); 706 string_data (XSYMBOL (sym)->name));
705 XCDR (closure) = Qt; 707 XCDR (closure) = Qt;
706 } 708 }
707 } 709 }
710 return 0; /* Never stop */
708 } 711 }
709 712
710 DEFUN ("Verify-documentation", Fverify_documentation, 0, 0, 0, /* 713 DEFUN ("Verify-documentation", Fverify_documentation, 0, 0, 0, /*
711 Used to make sure everything went well with Snarf-documentation. 714 Used to make sure everything went well with Snarf-documentation.
712 Writes to stderr if not. 715 Writes to stderr if not.
714 ()) 717 ())
715 { 718 {
716 Lisp_Object closure = Fcons (Qnil, Qnil); 719 Lisp_Object closure = Fcons (Qnil, Qnil);
717 struct gcpro gcpro1; 720 struct gcpro gcpro1;
718 GCPRO1 (closure); 721 GCPRO1 (closure);
719 map_obarray (Vobarray, verify_doc_mapper, closure); 722 map_obarray (Vobarray, verify_doc_mapper, &closure);
720 if (!NILP (Fcdr (closure))) 723 if (!NILP (Fcdr (closure)))
721 message ("\n" 724 message ("\n"
722 "This is usually because some files were preloaded by loaddefs.el or\n" 725 "This is usually because some files were preloaded by loaddefs.el or\n"
723 "site-load.el, but were not passed to make-docfile by Makefile.\n"); 726 "site-load.el, but were not passed to make-docfile by Makefile.\n");
724 UNGCPRO; 727 UNGCPRO;