Mercurial > emacs

comparison src/doc.c @ 44383:e44eec58a815

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdocumentation): Add missing parentheses. (Fdocumentation_property): Likewise.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 03 Apr 2002 16:46:47 +0000
parents 15b5489c78d6
children d5cf9afe17d6
comparison
equal deleted inserted replaced
44382:bbc359cfb383 44383:e44eec58a815
439 Fsignal (Qinvalid_function, Fcons (fun, Qnil)); 439 Fsignal (Qinvalid_function, Fcons (fun, Qnil));
440 } 440 }
441 441
442 /* If DOC is 0, it's typically because of a dumped file missing 442 /* If DOC is 0, it's typically because of a dumped file missing
443 from the DOC file (bug in src/Makefile.in). */ 443 from the DOC file (bug in src/Makefile.in). */
444 if (EQ (tem, make_number (0)) 444 if (EQ (tem, make_number (0)))
445 tem = Qnil; 445 tem = Qnil;
446 if (INTEGERP (doc) || CONSP (doc)) 446 if (INTEGERP (doc) || CONSP (doc))
447 { 447 {
448 Lisp_Object tem; 448 Lisp_Object tem;
449 tem = get_doc_string (doc, 0, 0); 449 tem = get_doc_string (doc, 0, 0);
485 Lisp_Object tem; 485 Lisp_Object tem;
486 486
487 documentation_property: 487 documentation_property:
488 488
489 tem = Fget (symbol, prop); 489 tem = Fget (symbol, prop);
490 if (EQ (tem, make_number (0)) 490 if (EQ (tem, make_number (0)))
491 tem = Qnil; 491 tem = Qnil;
492 if (INTEGERP (tem) || (CONSP (tem) && INTEGERP (XCDR (tem)))) 492 if (INTEGERP (tem) || (CONSP (tem) && INTEGERP (XCDR (tem))))
493 { 493 {
494 Lisp_Object doc = tem; 494 Lisp_Object doc = tem;
495 tem = get_doc_string (tem, 0, 0); 495 tem = get_doc_string (tem, 0, 0);