1 |
/* Record indices of function doc strings stored in a file. |
/* Record indices of function doc strings stored in a file. |
2 |
Copyright (C) 1985, 86,93,94,95,97,98,99, 2000 Free Software Foundation, Inc. |
Copyright (C) 1985, 86,93,94,95,97,98,99, 2000, 2001, 2002 Free Software Foundation, Inc. |
3 |
|
|
4 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
5 |
|
|
50 |
|
|
51 |
Lisp_Object Qfunction_documentation; |
Lisp_Object Qfunction_documentation; |
52 |
|
|
53 |
extern Lisp_Object Voverriding_local_map; |
extern Lisp_Object Voverriding_local_map, Qclosure; |
54 |
|
|
55 |
/* For VMS versions with limited file name syntax, |
/* For VMS versions with limited file name syntax, |
56 |
convert the name to something VMS will allow. */ |
convert the name to something VMS will allow. */ |
430 |
else |
else |
431 |
return Qnil; |
return Qnil; |
432 |
} |
} |
433 |
|
else if (EQ (funcar, Qclosure)) |
434 |
|
return Fdocumentation (Fcdr (XCDR (fun)), raw); |
435 |
else if (EQ (funcar, Qmacro)) |
else if (EQ (funcar, Qmacro)) |
436 |
return Fdocumentation (Fcdr (fun), raw); |
return Fdocumentation (Fcdr (fun), raw); |
437 |
else |
else |
550 |
} |
} |
551 |
else if (EQ (tem, Qmacro)) |
else if (EQ (tem, Qmacro)) |
552 |
store_function_docstring (XCDR (fun), offset); |
store_function_docstring (XCDR (fun), offset); |
553 |
|
else if (EQ (tem, Qclosure)) |
554 |
|
store_function_docstring (Fcdr (XCDR (fun)), offset); |
555 |
} |
} |
556 |
|
|
557 |
/* Bytecode objects sometimes have slots for it. */ |
/* Bytecode objects sometimes have slots for it. */ |