1 /* Record indices of function doc strings stored in a file.
2 Copyright (C) 1985-1986, 1993-1995, 1997-2011
3 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
23 #include <sys/types.h>
24 #include <sys/file.h> /* Must be after sys/types.h for USG*/
33 #include "character.h"
37 Lisp_Object Qfunction_documentation
;
39 extern Lisp_Object Qclosure
;
40 /* Buffer used for reading from documentation file. */
41 static char *get_doc_string_buffer
;
42 static int get_doc_string_buffer_size
;
44 static unsigned char *read_bytecode_pointer
;
45 Lisp_Object
Fsnarf_documentation (Lisp_Object
);
47 /* readchar in lread.c calls back here to fetch the next byte.
48 If UNREADFLAG is 1, we unread a byte. */
51 read_bytecode_char (int unreadflag
)
55 read_bytecode_pointer
--;
58 return *read_bytecode_pointer
++;
61 /* Extract a doc string from a file. FILEPOS says where to get it.
62 If it is an integer, use that position in the standard DOC-... file.
63 If it is (FILE . INTEGER), use FILE as the file name
64 and INTEGER as the position in that file.
65 But if INTEGER is negative, make it positive.
66 (A negative integer is used for user variables, so we can distinguish
67 them without actually fetching the doc string.)
69 If the location does not point to the beginning of a docstring
70 (e.g. because the file has been modified and the location is stale),
73 If UNIBYTE is nonzero, always make a unibyte string.
75 If DEFINITION is nonzero, assume this is for reading
76 a dynamic function definition; convert the bytestring
77 and the constants vector with appropriate byte handling,
78 and return a cons cell. */
81 get_doc_string (Lisp_Object filepos
, int unibyte
, int definition
)
86 register char *p
, *p1
;
88 EMACS_INT offset
, position
;
89 Lisp_Object file
, tem
;
91 if (INTEGERP (filepos
))
93 file
= Vdoc_file_name
;
94 position
= XINT (filepos
);
96 else if (CONSP (filepos
))
98 file
= XCAR (filepos
);
99 position
= XINT (XCDR (filepos
));
105 position
= - position
;
107 if (!STRINGP (Vdoc_directory
))
113 /* Put the file name in NAME as a C string.
114 If it is relative, combine it with Vdoc_directory. */
116 tem
= Ffile_name_absolute_p (file
);
119 minsize
= SCHARS (Vdoc_directory
);
120 /* sizeof ("../etc/") == 8 */
123 name
= (char *) alloca (minsize
+ SCHARS (file
) + 8);
124 strcpy (name
, SSDATA (Vdoc_directory
));
125 strcat (name
, SSDATA (file
));
129 name
= SSDATA (file
);
132 fd
= emacs_open (name
, O_RDONLY
, 0);
136 if (!NILP (Vpurify_flag
))
138 /* Preparing to dump; DOC file is probably not installed.
139 So check in ../etc. */
140 strcpy (name
, "../etc/");
141 strcat (name
, SSDATA (file
));
143 fd
= emacs_open (name
, O_RDONLY
, 0);
147 error ("Cannot open doc string file \"%s\"", name
);
150 /* Seek only to beginning of disk block. */
151 /* Make sure we read at least 1024 bytes before `position'
152 so we can check the leading text for consistency. */
153 offset
= min (position
, max (1024, position
% (8 * 1024)));
154 if (0 > lseek (fd
, position
- offset
, 0))
157 error ("Position %ld out of range in doc string file \"%s\"",
161 /* Read the doc string into get_doc_string_buffer.
162 P points beyond the data just read. */
164 p
= get_doc_string_buffer
;
167 EMACS_INT space_left
= (get_doc_string_buffer_size
168 - (p
- get_doc_string_buffer
));
171 /* Allocate or grow the buffer if we need to. */
174 EMACS_INT in_buffer
= p
- get_doc_string_buffer
;
175 get_doc_string_buffer_size
+= 16 * 1024;
176 get_doc_string_buffer
177 = (char *) xrealloc (get_doc_string_buffer
,
178 get_doc_string_buffer_size
+ 1);
179 p
= get_doc_string_buffer
+ in_buffer
;
180 space_left
= (get_doc_string_buffer_size
181 - (p
- get_doc_string_buffer
));
184 /* Read a disk block at a time.
185 If we read the same block last time, maybe skip this? */
186 if (space_left
> 1024 * 8)
187 space_left
= 1024 * 8;
188 nread
= emacs_read (fd
, p
, space_left
);
192 error ("Read error on documentation file");
197 if (p
== get_doc_string_buffer
)
198 p1
= strchr (p
+ offset
, '\037');
200 p1
= strchr (p
, '\037');
211 /* Sanity checking. */
215 if (get_doc_string_buffer
[offset
- test
++] != ' ')
217 while (get_doc_string_buffer
[offset
- test
] >= '0'
218 && get_doc_string_buffer
[offset
- test
] <= '9')
220 if (get_doc_string_buffer
[offset
- test
++] != '@'
221 || get_doc_string_buffer
[offset
- test
] != '#')
227 if (get_doc_string_buffer
[offset
- test
++] != '\n')
229 while (get_doc_string_buffer
[offset
- test
] > ' ')
231 if (get_doc_string_buffer
[offset
- test
] != '\037')
235 /* Scan the text and perform quoting with ^A (char code 1).
236 ^A^A becomes ^A, ^A0 becomes a null char, and ^A_ becomes a ^_. */
237 from
= get_doc_string_buffer
+ offset
;
238 to
= get_doc_string_buffer
+ offset
;
254 error ("Invalid data in documentation file -- ^A followed by code 0%o", c
);
260 /* If DEFINITION, read from this buffer
261 the same way we would read bytes from a file. */
264 read_bytecode_pointer
= get_doc_string_buffer
+ offset
;
265 return Fread (Qlambda
);
269 return make_unibyte_string (get_doc_string_buffer
+ offset
,
270 to
- (get_doc_string_buffer
+ offset
));
273 /* The data determines whether the string is multibyte. */
274 EMACS_INT nchars
= multibyte_chars_in_text (get_doc_string_buffer
+ offset
,
275 to
- (get_doc_string_buffer
+ offset
));
276 return make_string_from_bytes (get_doc_string_buffer
+ offset
,
278 to
- (get_doc_string_buffer
+ offset
));
282 /* Get a string from position FILEPOS and pass it through the Lisp reader.
283 We use this for fetching the bytecode string and constants vector
284 of a compiled function from the .elc file. */
287 read_doc_string (Lisp_Object filepos
)
289 return get_doc_string (filepos
, 0, 1);
293 reread_doc_file (Lisp_Object file
)
296 Lisp_Object reply
, prompt
[3];
299 prompt
[0] = build_string ("File ");
300 prompt
[1] = NILP (file
) ? Vdoc_file_name
: file
;
301 prompt
[2] = build_string (" is out of sync. Reload? ");
302 reply
= Fy_or_n_p (Fconcat (3, prompt
));
309 Fsnarf_documentation (Vdoc_file_name
);
311 Fload (file
, Qt
, Qt
, Qt
, Qnil
);
316 DEFUN ("documentation", Fdocumentation
, Sdocumentation
, 1, 2, 0,
317 doc
: /* Return the documentation string of FUNCTION.
318 Unless a non-nil second argument RAW is given, the
319 string is passed through `substitute-command-keys'. */)
320 (Lisp_Object function
, Lisp_Object raw
)
324 Lisp_Object tem
, doc
;
331 if (SYMBOLP (function
)
332 && (tem
= Fget (function
, Qfunction_documentation
),
334 return Fdocumentation_property (function
, Qfunction_documentation
, raw
);
336 fun
= Findirect_function (function
, Qnil
);
339 if (XSUBR (fun
)->doc
== 0)
341 else if ((EMACS_INT
) XSUBR (fun
)->doc
>= 0)
342 doc
= build_string (XSUBR (fun
)->doc
);
344 doc
= make_number ((EMACS_INT
) XSUBR (fun
)->doc
);
346 else if (COMPILEDP (fun
))
348 if ((ASIZE (fun
) & PSEUDOVECTOR_SIZE_MASK
) <= COMPILED_DOC_STRING
)
350 tem
= AREF (fun
, COMPILED_DOC_STRING
);
353 else if (NATNUMP (tem
) || CONSP (tem
))
358 else if (FUNVECP (fun
))
360 /* Unless otherwise handled, funvecs have no documentation. */
363 else if (STRINGP (fun
) || VECTORP (fun
))
365 return build_string ("Keyboard macro.");
367 else if (CONSP (fun
))
370 if (!SYMBOLP (funcar
))
371 xsignal1 (Qinvalid_function
, fun
);
372 else if (EQ (funcar
, Qkeymap
))
373 return build_string ("Prefix command (definition is a keymap associating keystrokes with commands).");
374 else if (EQ (funcar
, Qlambda
)
375 || EQ (funcar
, Qautoload
))
378 tem1
= Fcdr (Fcdr (fun
));
382 /* Handle a doc reference--but these never come last
383 in the function body, so reject them if they are last. */
384 else if ((NATNUMP (tem
) || (CONSP (tem
) && INTEGERP (XCDR (tem
))))
385 && !NILP (XCDR (tem1
)))
390 else if (EQ (funcar
, Qclosure
))
391 return Fdocumentation (Fcdr (XCDR (fun
)), raw
);
392 else if (EQ (funcar
, Qmacro
))
393 return Fdocumentation (Fcdr (fun
), raw
);
400 xsignal1 (Qinvalid_function
, fun
);
403 /* Check for an advised function. Its doc string
404 has an `ad-advice-info' text property. */
407 Lisp_Object innerfunc
;
408 innerfunc
= Fget_text_property (make_number (0),
409 intern ("ad-advice-info"),
411 if (! NILP (innerfunc
))
412 doc
= call1 (intern ("ad-make-advised-docstring"), innerfunc
);
415 /* If DOC is 0, it's typically because of a dumped file missing
416 from the DOC file (bug in src/Makefile.in). */
417 if (EQ (doc
, make_number (0)))
419 if (INTEGERP (doc
) || CONSP (doc
))
422 tem
= get_doc_string (doc
, 0, 0);
423 if (NILP (tem
) && try_reload
)
425 /* The file is newer, we need to reset the pointers. */
426 struct gcpro gcpro1
, gcpro2
;
427 GCPRO2 (function
, raw
);
428 try_reload
= reread_doc_file (Fcar_safe (doc
));
441 doc
= Fsubstitute_command_keys (doc
);
445 DEFUN ("documentation-property", Fdocumentation_property
,
446 Sdocumentation_property
, 2, 3, 0,
447 doc
: /* Return the documentation string that is SYMBOL's PROP property.
448 Third argument RAW omitted or nil means pass the result through
449 `substitute-command-keys' if it is a string.
451 This differs from `get' in that it can refer to strings stored in the
452 `etc/DOC' file; and that it evaluates documentation properties that
454 (Lisp_Object symbol
, Lisp_Object prop
, Lisp_Object raw
)
459 documentation_property
:
461 tem
= Fget (symbol
, prop
);
462 if (EQ (tem
, make_number (0)))
464 if (INTEGERP (tem
) || (CONSP (tem
) && INTEGERP (XCDR (tem
))))
466 Lisp_Object doc
= tem
;
467 tem
= get_doc_string (tem
, 0, 0);
468 if (NILP (tem
) && try_reload
)
470 /* The file is newer, we need to reset the pointers. */
471 struct gcpro gcpro1
, gcpro2
, gcpro3
;
472 GCPRO3 (symbol
, prop
, raw
);
473 try_reload
= reread_doc_file (Fcar_safe (doc
));
478 goto documentation_property
;
482 else if (!STRINGP (tem
))
483 /* Feval protects its argument. */
484 tem
= Feval (tem
, Qnil
);
486 if (NILP (raw
) && STRINGP (tem
))
487 tem
= Fsubstitute_command_keys (tem
);
491 /* Scanning the DOC files and placing docstring offsets into functions. */
494 store_function_docstring (Lisp_Object fun
, EMACS_INT offset
)
495 /* Use EMACS_INT because we get offset from pointer subtraction. */
497 fun
= indirect_function (fun
);
499 /* The type determines where the docstring is stored. */
501 /* Lisp_Subrs have a slot for it. */
503 XSUBR (fun
)->doc
= (char *) - offset
;
505 /* If it's a lisp form, stick it in the form. */
506 else if (CONSP (fun
))
511 if (EQ (tem
, Qlambda
) || EQ (tem
, Qautoload
))
513 tem
= Fcdr (Fcdr (fun
));
514 if (CONSP (tem
) && INTEGERP (XCAR (tem
)))
515 XSETCAR (tem
, make_number (offset
));
517 else if (EQ (tem
, Qmacro
))
518 store_function_docstring (XCDR (fun
), offset
);
519 else if (EQ (tem
, Qclosure
))
520 store_function_docstring (Fcdr (XCDR (fun
)), offset
);
523 /* Bytecode objects sometimes have slots for it. */
524 else if (COMPILEDP (fun
))
526 /* This bytecode object must have a slot for the
527 docstring, since we've found a docstring for it. */
528 if ((ASIZE (fun
) & PSEUDOVECTOR_SIZE_MASK
) > COMPILED_DOC_STRING
)
529 ASET (fun
, COMPILED_DOC_STRING
, make_number (offset
));
533 static const char buildobj
[] = BUILDOBJ
;
535 DEFUN ("Snarf-documentation", Fsnarf_documentation
, Ssnarf_documentation
,
537 doc
: /* Used during Emacs initialization to scan the `etc/DOC...' file.
538 This searches the `etc/DOC...' file for doc strings and
539 records them in function and variable definitions.
540 The function takes one argument, FILENAME, a string;
541 it specifies the file name (without a directory) of the DOC file.
542 That file is found in `../etc' now; later, when the dumped Emacs is run,
543 the same file name is found in the `doc-directory'. */)
544 (Lisp_Object filename
)
548 register EMACS_INT filled
;
549 register EMACS_INT pos
;
550 register char *p
, *end
;
555 CHECK_STRING (filename
);
559 (!NILP (Vpurify_flag
))
560 #else /* CANNOT_DUMP */
562 #endif /* CANNOT_DUMP */
564 name
= (char *) alloca (SCHARS (filename
) + 14);
565 strcpy (name
, "../etc/");
569 CHECK_STRING (Vdoc_directory
);
570 name
= (char *) alloca (SCHARS (filename
)
571 + SCHARS (Vdoc_directory
) + 1);
572 strcpy (name
, SSDATA (Vdoc_directory
));
574 strcat (name
, SSDATA (filename
)); /*** Add this line ***/
576 /* Vbuild_files is nil when temacs is run, and non-nil after that. */
577 if (NILP (Vbuild_files
))
579 const char *beg
, *end
;
581 for (beg
= buildobj
; *beg
; beg
= end
)
585 while (*beg
&& isspace (*beg
)) ++beg
;
587 for (end
= beg
; *end
&& ! isspace (*end
); ++end
)
588 if (*end
== '/') beg
= end
+1; /* skip directory part */
591 if (len
> 4 && end
[-4] == '.' && end
[-3] == 'o')
592 len
-= 2; /* Just take .o if it ends in .obj */
595 Vbuild_files
= Fcons (make_string (beg
, len
), Vbuild_files
);
597 Vbuild_files
= Fpurecopy (Vbuild_files
);
600 fd
= emacs_open (name
, O_RDONLY
, 0);
602 report_file_error ("Opening doc string file",
603 Fcons (build_string (name
), Qnil
));
604 Vdoc_file_name
= filename
;
610 filled
+= emacs_read (fd
, &buf
[filled
], sizeof buf
- 1 - filled
);
616 end
= buf
+ (filled
< 512 ? filled
: filled
- 128);
617 while (p
!= end
&& *p
!= '\037') p
++;
618 /* p points to ^_Ffunctionname\n or ^_Vvarname\n or ^_Sfilename\n. */
621 end
= strchr (p
, '\n');
623 /* See if this is a file name, and if it is a file in build-files. */
627 if (end
- p
> 4 && end
[-2] == '.'
628 && (end
[-1] == 'o' || end
[-1] == 'c'))
630 EMACS_INT len
= end
- p
- 2;
631 char *fromfile
= alloca (len
+ 1);
632 strncpy (fromfile
, &p
[2], len
);
634 if (fromfile
[len
-1] == 'c')
635 fromfile
[len
-1] = 'o';
637 skip_file
= NILP (Fmember (build_string (fromfile
),
642 sym
= oblookup (Vobarray
, p
+ 2,
643 multibyte_chars_in_text (p
+ 2, end
- p
- 2),
645 /* Check skip_file so that when a function is defined several
646 times in different files (typically, once in xterm, once in
647 w32term, ...), we only pay attention to the one that
649 if (! skip_file
&& SYMBOLP (sym
))
651 /* Attach a docstring to a variable? */
654 /* Install file-position as variable-documentation property
655 and make it negative for a user-variable
656 (doc starts with a `*'). */
657 Fput (sym
, Qvariable_documentation
,
658 make_number ((pos
+ end
+ 1 - buf
)
659 * (end
[1] == '*' ? -1 : 1)));
662 /* Attach a docstring to a function? */
663 else if (p
[1] == 'F')
664 store_function_docstring (sym
, pos
+ end
+ 1 - buf
);
666 else if (p
[1] == 'S')
667 ; /* Just a source file name boundary marker. Ignore it. */
670 error ("DOC file invalid at position %d", pos
);
675 memmove (buf
, end
, filled
);
681 DEFUN ("substitute-command-keys", Fsubstitute_command_keys
,
682 Ssubstitute_command_keys
, 1, 1, 0,
683 doc
: /* Substitute key descriptions for command names in STRING.
684 Substrings of the form \\=\\[COMMAND] replaced by either: a keystroke
685 sequence that will invoke COMMAND, or "M-x COMMAND" if COMMAND is not
687 Substrings of the form \\=\\{MAPVAR} are replaced by summaries
688 \(made by `describe-bindings') of the value of MAPVAR, taken as a keymap.
689 Substrings of the form \\=\\<MAPVAR> specify to use the value of MAPVAR
690 as the keymap for future \\=\\[COMMAND] substrings.
691 \\=\\= quotes the following character and is discarded;
692 thus, \\=\\=\\=\\= puts \\=\\= into the output, and \\=\\=\\=\\[ puts \\=\\[ into the output.
694 Returns original STRING if no substitutions were made. Otherwise,
695 a new string, without any text properties, is returned. */)
700 register unsigned char *strp
;
701 register unsigned char *bufp
;
706 unsigned char *start
;
707 EMACS_INT length
, length_byte
;
709 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
716 CHECK_STRING (string
);
720 GCPRO4 (string
, tem
, keymap
, name
);
722 multibyte
= STRING_MULTIBYTE (string
);
725 /* KEYMAP is either nil (which means search all the active keymaps)
726 or a specified local map (which means search just that and the
727 global map). If non-nil, it might come from Voverriding_local_map,
728 or from a \\<mapname> construct in STRING itself.. */
729 keymap
= current_kboard
->Voverriding_terminal_local_map
;
731 keymap
= Voverriding_local_map
;
733 bsize
= SBYTES (string
);
734 bufp
= buf
= (unsigned char *) xmalloc (bsize
);
736 strp
= SDATA (string
);
737 while (strp
< SDATA (string
) + SBYTES (string
))
739 if (strp
[0] == '\\' && strp
[1] == '=')
741 /* \= quotes the next character;
742 thus, to put in \[ without its special meaning, use \=\[. */
749 STRING_CHAR_AND_LENGTH (strp
, len
);
753 memcpy (bufp
, strp
, len
);
759 *bufp
++ = *strp
++, nchars
++;
761 else if (strp
[0] == '\\' && strp
[1] == '[')
764 int follow_remap
= 1;
767 strp
+= 2; /* skip \[ */
769 start_idx
= start
- SDATA (string
);
771 while ((strp
- SDATA (string
)
775 length_byte
= strp
- start
;
779 /* Save STRP in IDX. */
780 idx
= strp
- SDATA (string
);
781 name
= Fintern (make_string (start
, length_byte
), Qnil
);
784 tem
= Fwhere_is_internal (name
, keymap
, Qt
, Qnil
, Qnil
);
786 if (VECTORP (tem
) && XVECTOR (tem
)->size
> 1
787 && EQ (AREF (tem
, 0), Qremap
) && SYMBOLP (AREF (tem
, 1))
790 name
= AREF (tem
, 1);
795 /* Note the Fwhere_is_internal can GC, so we have to take
796 relocation of string contents into account. */
797 strp
= SDATA (string
) + idx
;
798 start
= SDATA (string
) + start_idx
;
800 if (NILP (tem
)) /* but not on any keys */
802 EMACS_INT offset
= bufp
- buf
;
803 buf
= (unsigned char *) xrealloc (buf
, bsize
+= 4);
805 memcpy (bufp
, "M-x ", 4);
809 length
= multibyte_chars_in_text (start
, length_byte
);
811 length
= length_byte
;
815 { /* function is on a key */
816 tem
= Fkey_description (tem
, Qnil
);
820 /* \{foo} is replaced with a summary of the keymap (symbol-value foo).
821 \<foo> just sets the keymap used for \[cmd]. */
822 else if (strp
[0] == '\\' && (strp
[1] == '{' || strp
[1] == '<'))
824 struct buffer
*oldbuf
;
826 /* This is for computing the SHADOWS arg for describe_map_tree. */
827 Lisp_Object active_maps
= Fcurrent_active_maps (Qnil
, Qnil
);
828 Lisp_Object earlier_maps
;
831 strp
+= 2; /* skip \{ or \< */
833 start_idx
= start
- SDATA (string
);
835 while ((strp
- SDATA (string
) < SBYTES (string
))
836 && *strp
!= '}' && *strp
!= '>')
839 length_byte
= strp
- start
;
840 strp
++; /* skip } or > */
842 /* Save STRP in IDX. */
843 idx
= strp
- SDATA (string
);
845 /* Get the value of the keymap in TEM, or nil if undefined.
846 Do this while still in the user's current buffer
847 in case it is a local variable. */
848 name
= Fintern (make_string (start
, length_byte
), Qnil
);
849 tem
= Fboundp (name
);
852 tem
= Fsymbol_value (name
);
855 tem
= get_keymap (tem
, 0, 1);
856 /* Note that get_keymap can GC. */
857 strp
= SDATA (string
) + idx
;
858 start
= SDATA (string
) + start_idx
;
862 /* Now switch to a temp buffer. */
863 oldbuf
= current_buffer
;
864 set_buffer_internal (XBUFFER (Vprin1_to_string_buffer
));
868 name
= Fsymbol_name (name
);
869 insert_string ("\nUses keymap \"");
870 insert_from_string (name
, 0, 0,
873 insert_string ("\", which is not currently defined.\n");
874 if (start
[-1] == '<') keymap
= Qnil
;
876 else if (start
[-1] == '<')
880 /* Get the list of active keymaps that precede this one.
881 If this one's not active, get nil. */
882 earlier_maps
= Fcdr (Fmemq (tem
, Freverse (active_maps
)));
883 describe_map_tree (tem
, 1, Fnreverse (earlier_maps
),
884 Qnil
, (char *)0, 1, 0, 0, 1);
886 tem
= Fbuffer_string ();
888 set_buffer_internal (oldbuf
);
892 length
= SCHARS (tem
);
893 length_byte
= SBYTES (tem
);
896 EMACS_INT offset
= bufp
- buf
;
897 buf
= (unsigned char *) xrealloc (buf
, bsize
+= length_byte
);
899 memcpy (bufp
, start
, length_byte
);
902 /* Check STRING again in case gc relocated it. */
903 strp
= SDATA (string
) + idx
;
906 else if (! multibyte
) /* just copy other chars */
907 *bufp
++ = *strp
++, nchars
++;
912 STRING_CHAR_AND_LENGTH (strp
, len
);
916 memcpy (bufp
, strp
, len
);
923 if (changed
) /* don't bother if nothing substituted */
924 tem
= make_string_from_bytes (buf
, nchars
, bufp
- buf
);
928 RETURN_UNGCPRO (tem
);
934 Qfunction_documentation
= intern_c_string ("function-documentation");
935 staticpro (&Qfunction_documentation
);
937 DEFVAR_LISP ("internal-doc-file-name", Vdoc_file_name
,
938 doc
: /* Name of file containing documentation strings of built-in symbols. */);
939 Vdoc_file_name
= Qnil
;
941 DEFVAR_LISP ("build-files", Vbuild_files
,
942 doc
: /* A list of files used to build this Emacs binary. */);
945 defsubr (&Sdocumentation
);
946 defsubr (&Sdocumentation_property
);
947 defsubr (&Ssnarf_documentation
);
948 defsubr (&Ssubstitute_command_keys
);