1 /* Record indices of function doc strings stored in a file.
2 Copyright (C) 1985, 1986, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001,
3 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
24 #include <sys/types.h>
25 #include <sys/file.h> /* Must be after sys/types.h for USG*/
41 #include "character.h"
45 Lisp_Object Vdoc_file_name
;
47 Lisp_Object Qfunction_documentation
;
49 /* A list of files used to build this Emacs binary. */
50 static Lisp_Object Vbuild_files
;
52 /* Buffer used for reading from documentation file. */
53 static char *get_doc_string_buffer
;
54 static int get_doc_string_buffer_size
;
56 static unsigned char *read_bytecode_pointer
;
57 Lisp_Object
Fsnarf_documentation (Lisp_Object
);
59 /* readchar in lread.c calls back here to fetch the next byte.
60 If UNREADFLAG is 1, we unread a byte. */
63 read_bytecode_char (int unreadflag
)
67 read_bytecode_pointer
--;
70 return *read_bytecode_pointer
++;
73 /* Extract a doc string from a file. FILEPOS says where to get it.
74 If it is an integer, use that position in the standard DOC-... file.
75 If it is (FILE . INTEGER), use FILE as the file name
76 and INTEGER as the position in that file.
77 But if INTEGER is negative, make it positive.
78 (A negative integer is used for user variables, so we can distinguish
79 them without actually fetching the doc string.)
81 If the location does not point to the beginning of a docstring
82 (e.g. because the file has been modified and the location is stale),
85 If UNIBYTE is nonzero, always make a unibyte string.
87 If DEFINITION is nonzero, assume this is for reading
88 a dynamic function definition; convert the bytestring
89 and the constants vector with appropriate byte handling,
90 and return a cons cell. */
93 get_doc_string (Lisp_Object filepos
, int unibyte
, int definition
)
98 register char *p
, *p1
;
100 EMACS_INT offset
, position
;
101 Lisp_Object file
, tem
;
103 if (INTEGERP (filepos
))
105 file
= Vdoc_file_name
;
106 position
= XINT (filepos
);
108 else if (CONSP (filepos
))
110 file
= XCAR (filepos
);
111 position
= XINT (XCDR (filepos
));
117 position
= - position
;
119 if (!STRINGP (Vdoc_directory
))
125 /* Put the file name in NAME as a C string.
126 If it is relative, combine it with Vdoc_directory. */
128 tem
= Ffile_name_absolute_p (file
);
131 minsize
= SCHARS (Vdoc_directory
);
132 /* sizeof ("../etc/") == 8 */
135 name
= (char *) alloca (minsize
+ SCHARS (file
) + 8);
136 strcpy (name
, SDATA (Vdoc_directory
));
137 strcat (name
, SDATA (file
));
141 name
= (char *) SDATA (file
);
144 fd
= emacs_open (name
, O_RDONLY
, 0);
148 if (!NILP (Vpurify_flag
))
150 /* Preparing to dump; DOC file is probably not installed.
151 So check in ../etc. */
152 strcpy (name
, "../etc/");
153 strcat (name
, SDATA (file
));
155 fd
= emacs_open (name
, O_RDONLY
, 0);
159 error ("Cannot open doc string file \"%s\"", name
);
162 /* Seek only to beginning of disk block. */
163 /* Make sure we read at least 1024 bytes before `position'
164 so we can check the leading text for consistency. */
165 offset
= min (position
, max (1024, position
% (8 * 1024)));
166 if (0 > lseek (fd
, position
- offset
, 0))
169 error ("Position %ld out of range in doc string file \"%s\"",
173 /* Read the doc string into get_doc_string_buffer.
174 P points beyond the data just read. */
176 p
= get_doc_string_buffer
;
179 EMACS_INT space_left
= (get_doc_string_buffer_size
180 - (p
- get_doc_string_buffer
));
183 /* Allocate or grow the buffer if we need to. */
186 EMACS_INT in_buffer
= p
- get_doc_string_buffer
;
187 get_doc_string_buffer_size
+= 16 * 1024;
188 get_doc_string_buffer
189 = (char *) xrealloc (get_doc_string_buffer
,
190 get_doc_string_buffer_size
+ 1);
191 p
= get_doc_string_buffer
+ in_buffer
;
192 space_left
= (get_doc_string_buffer_size
193 - (p
- get_doc_string_buffer
));
196 /* Read a disk block at a time.
197 If we read the same block last time, maybe skip this? */
198 if (space_left
> 1024 * 8)
199 space_left
= 1024 * 8;
200 nread
= emacs_read (fd
, p
, space_left
);
204 error ("Read error on documentation file");
209 if (p
== get_doc_string_buffer
)
210 p1
= strchr (p
+ offset
, '\037');
212 p1
= strchr (p
, '\037');
223 /* Sanity checking. */
227 if (get_doc_string_buffer
[offset
- test
++] != ' ')
229 while (get_doc_string_buffer
[offset
- test
] >= '0'
230 && get_doc_string_buffer
[offset
- test
] <= '9')
232 if (get_doc_string_buffer
[offset
- test
++] != '@'
233 || get_doc_string_buffer
[offset
- test
] != '#')
239 if (get_doc_string_buffer
[offset
- test
++] != '\n')
241 while (get_doc_string_buffer
[offset
- test
] > ' ')
243 if (get_doc_string_buffer
[offset
- test
] != '\037')
247 /* Scan the text and perform quoting with ^A (char code 1).
248 ^A^A becomes ^A, ^A0 becomes a null char, and ^A_ becomes a ^_. */
249 from
= get_doc_string_buffer
+ offset
;
250 to
= get_doc_string_buffer
+ offset
;
266 error ("Invalid data in documentation file -- ^A followed by code 0%o", c
);
272 /* If DEFINITION, read from this buffer
273 the same way we would read bytes from a file. */
276 read_bytecode_pointer
= get_doc_string_buffer
+ offset
;
277 return Fread (Qlambda
);
281 return make_unibyte_string (get_doc_string_buffer
+ offset
,
282 to
- (get_doc_string_buffer
+ offset
));
285 /* The data determines whether the string is multibyte. */
286 EMACS_INT nchars
= multibyte_chars_in_text (get_doc_string_buffer
+ offset
,
287 to
- (get_doc_string_buffer
+ offset
));
288 return make_string_from_bytes (get_doc_string_buffer
+ offset
,
290 to
- (get_doc_string_buffer
+ offset
));
294 /* Get a string from position FILEPOS and pass it through the Lisp reader.
295 We use this for fetching the bytecode string and constants vector
296 of a compiled function from the .elc file. */
299 read_doc_string (Lisp_Object filepos
)
301 return get_doc_string (filepos
, 0, 1);
305 reread_doc_file (Lisp_Object file
)
308 Lisp_Object reply
, prompt
[3];
311 prompt
[0] = build_string ("File ");
312 prompt
[1] = NILP (file
) ? Vdoc_file_name
: file
;
313 prompt
[2] = build_string (" is out of sync. Reload? ");
314 reply
= Fy_or_n_p (Fconcat (3, prompt
));
321 Fsnarf_documentation (Vdoc_file_name
);
323 Fload (file
, Qt
, Qt
, Qt
, Qnil
);
328 DEFUN ("documentation", Fdocumentation
, Sdocumentation
, 1, 2, 0,
329 doc
: /* Return the documentation string of FUNCTION.
330 Unless a non-nil second argument RAW is given, the
331 string is passed through `substitute-command-keys'. */)
332 (Lisp_Object function
, Lisp_Object raw
)
336 Lisp_Object tem
, doc
;
343 if (SYMBOLP (function
)
344 && (tem
= Fget (function
, Qfunction_documentation
),
346 return Fdocumentation_property (function
, Qfunction_documentation
, raw
);
348 fun
= Findirect_function (function
, Qnil
);
351 if (XSUBR (fun
)->doc
== 0)
353 else if ((EMACS_INT
) XSUBR (fun
)->doc
>= 0)
354 doc
= build_string (XSUBR (fun
)->doc
);
356 doc
= make_number ((EMACS_INT
) XSUBR (fun
)->doc
);
358 else if (COMPILEDP (fun
))
360 if ((ASIZE (fun
) & PSEUDOVECTOR_SIZE_MASK
) <= COMPILED_DOC_STRING
)
362 tem
= AREF (fun
, COMPILED_DOC_STRING
);
365 else if (NATNUMP (tem
) || CONSP (tem
))
370 else if (STRINGP (fun
) || VECTORP (fun
))
372 return build_string ("Keyboard macro.");
374 else if (CONSP (fun
))
377 if (!SYMBOLP (funcar
))
378 xsignal1 (Qinvalid_function
, fun
);
379 else if (EQ (funcar
, Qkeymap
))
380 return build_string ("Prefix command (definition is a keymap associating keystrokes with commands).");
381 else if (EQ (funcar
, Qlambda
)
382 || EQ (funcar
, Qautoload
))
385 tem1
= Fcdr (Fcdr (fun
));
389 /* Handle a doc reference--but these never come last
390 in the function body, so reject them if they are last. */
391 else if ((NATNUMP (tem
) || (CONSP (tem
) && INTEGERP (XCDR (tem
))))
392 && !NILP (XCDR (tem1
)))
397 else if (EQ (funcar
, Qmacro
))
398 return Fdocumentation (Fcdr (fun
), raw
);
405 xsignal1 (Qinvalid_function
, fun
);
408 /* Check for an advised function. Its doc string
409 has an `ad-advice-info' text property. */
412 Lisp_Object innerfunc
;
413 innerfunc
= Fget_text_property (make_number (0),
414 intern ("ad-advice-info"),
416 if (! NILP (innerfunc
))
417 doc
= call1 (intern ("ad-make-advised-docstring"), innerfunc
);
420 /* If DOC is 0, it's typically because of a dumped file missing
421 from the DOC file (bug in src/Makefile.in). */
422 if (EQ (doc
, make_number (0)))
424 if (INTEGERP (doc
) || CONSP (doc
))
427 tem
= get_doc_string (doc
, 0, 0);
428 if (NILP (tem
) && try_reload
)
430 /* The file is newer, we need to reset the pointers. */
431 struct gcpro gcpro1
, gcpro2
;
432 GCPRO2 (function
, raw
);
433 try_reload
= reread_doc_file (Fcar_safe (doc
));
446 doc
= Fsubstitute_command_keys (doc
);
450 DEFUN ("documentation-property", Fdocumentation_property
,
451 Sdocumentation_property
, 2, 3, 0,
452 doc
: /* Return the documentation string that is SYMBOL's PROP property.
453 Third argument RAW omitted or nil means pass the result through
454 `substitute-command-keys' if it is a string.
456 This differs from `get' in that it can refer to strings stored in the
457 `etc/DOC' file; and that it evaluates documentation properties that
459 (Lisp_Object symbol
, Lisp_Object prop
, Lisp_Object raw
)
464 documentation_property
:
466 tem
= Fget (symbol
, prop
);
467 if (EQ (tem
, make_number (0)))
469 if (INTEGERP (tem
) || (CONSP (tem
) && INTEGERP (XCDR (tem
))))
471 Lisp_Object doc
= tem
;
472 tem
= get_doc_string (tem
, 0, 0);
473 if (NILP (tem
) && try_reload
)
475 /* The file is newer, we need to reset the pointers. */
476 struct gcpro gcpro1
, gcpro2
, gcpro3
;
477 GCPRO3 (symbol
, prop
, raw
);
478 try_reload
= reread_doc_file (Fcar_safe (doc
));
483 goto documentation_property
;
487 else if (!STRINGP (tem
))
488 /* Feval protects its argument. */
491 if (NILP (raw
) && STRINGP (tem
))
492 tem
= Fsubstitute_command_keys (tem
);
496 /* Scanning the DOC files and placing docstring offsets into functions. */
499 store_function_docstring (Lisp_Object fun
, EMACS_INT offset
)
500 /* Use EMACS_INT because we get offset from pointer subtraction. */
502 fun
= indirect_function (fun
);
504 /* The type determines where the docstring is stored. */
506 /* Lisp_Subrs have a slot for it. */
508 XSUBR (fun
)->doc
= (char *) - offset
;
510 /* If it's a lisp form, stick it in the form. */
511 else if (CONSP (fun
))
516 if (EQ (tem
, Qlambda
) || EQ (tem
, Qautoload
))
518 tem
= Fcdr (Fcdr (fun
));
519 if (CONSP (tem
) && INTEGERP (XCAR (tem
)))
520 XSETCAR (tem
, make_number (offset
));
522 else if (EQ (tem
, Qmacro
))
523 store_function_docstring (XCDR (fun
), offset
);
526 /* Bytecode objects sometimes have slots for it. */
527 else if (COMPILEDP (fun
))
529 /* This bytecode object must have a slot for the
530 docstring, since we've found a docstring for it. */
531 if ((ASIZE (fun
) & PSEUDOVECTOR_SIZE_MASK
) > COMPILED_DOC_STRING
)
532 ASET (fun
, COMPILED_DOC_STRING
, make_number (offset
));
536 static const char buildobj
[] = BUILDOBJ
;
538 DEFUN ("Snarf-documentation", Fsnarf_documentation
, Ssnarf_documentation
,
540 doc
: /* Used during Emacs initialization to scan the `etc/DOC...' file.
541 This searches the `etc/DOC...' file for doc strings and
542 records them in function and variable definitions.
543 The function takes one argument, FILENAME, a string;
544 it specifies the file name (without a directory) of the DOC file.
545 That file is found in `../etc' now; later, when the dumped Emacs is run,
546 the same file name is found in the `doc-directory'. */)
547 (Lisp_Object filename
)
551 register EMACS_INT filled
;
552 register EMACS_INT pos
;
553 register char *p
, *end
;
558 CHECK_STRING (filename
);
562 (!NILP (Vpurify_flag
))
563 #else /* CANNOT_DUMP */
565 #endif /* CANNOT_DUMP */
567 name
= (char *) alloca (SCHARS (filename
) + 14);
568 strcpy (name
, "../etc/");
572 CHECK_STRING (Vdoc_directory
);
573 name
= (char *) alloca (SCHARS (filename
)
574 + SCHARS (Vdoc_directory
) + 1);
575 strcpy (name
, SDATA (Vdoc_directory
));
577 strcat (name
, SDATA (filename
)); /*** Add this line ***/
579 /* Vbuild_files is nil when temacs is run, and non-nil after that. */
580 if (NILP (Vbuild_files
))
582 const char *beg
, *end
;
584 for (beg
= buildobj
; *beg
; beg
= end
)
588 while (*beg
&& isspace (*beg
)) ++beg
;
590 for (end
= beg
; *end
&& ! isspace (*end
); ++end
)
591 if (*end
== '/') beg
= end
+1; /* skip directory part */
594 if (len
> 4 && end
[-4] == '.' && end
[-3] == 'o')
595 len
-= 2; /* Just take .o if it ends in .obj */
598 Vbuild_files
= Fcons (make_string (beg
, len
), Vbuild_files
);
600 Vbuild_files
= Fpurecopy (Vbuild_files
);
603 fd
= emacs_open (name
, O_RDONLY
, 0);
605 report_file_error ("Opening doc string file",
606 Fcons (build_string (name
), Qnil
));
607 Vdoc_file_name
= filename
;
613 filled
+= emacs_read (fd
, &buf
[filled
], sizeof buf
- 1 - filled
);
619 end
= buf
+ (filled
< 512 ? filled
: filled
- 128);
620 while (p
!= end
&& *p
!= '\037') p
++;
621 /* p points to ^_Ffunctionname\n or ^_Vvarname\n or ^_Sfilename\n. */
624 end
= strchr (p
, '\n');
626 /* See if this is a file name, and if it is a file in build-files. */
630 if (end
- p
> 4 && end
[-2] == '.'
631 && (end
[-1] == 'o' || end
[-1] == 'c'))
633 EMACS_INT len
= end
- p
- 2;
634 char *fromfile
= alloca (len
+ 1);
635 strncpy (fromfile
, &p
[2], len
);
637 if (fromfile
[len
-1] == 'c')
638 fromfile
[len
-1] = 'o';
640 skip_file
= NILP (Fmember (build_string (fromfile
),
645 sym
= oblookup (Vobarray
, p
+ 2,
646 multibyte_chars_in_text (p
+ 2, end
- p
- 2),
648 /* Check skip_file so that when a function is defined several
649 times in different files (typically, once in xterm, once in
650 w32term, ...), we only pay attention to the one that
652 if (! skip_file
&& SYMBOLP (sym
))
654 /* Attach a docstring to a variable? */
657 /* Install file-position as variable-documentation property
658 and make it negative for a user-variable
659 (doc starts with a `*'). */
660 Fput (sym
, Qvariable_documentation
,
661 make_number ((pos
+ end
+ 1 - buf
)
662 * (end
[1] == '*' ? -1 : 1)));
665 /* Attach a docstring to a function? */
666 else if (p
[1] == 'F')
667 store_function_docstring (sym
, pos
+ end
+ 1 - buf
);
669 else if (p
[1] == 'S')
670 ; /* Just a source file name boundary marker. Ignore it. */
673 error ("DOC file invalid at position %d", pos
);
678 memmove (buf
, end
, filled
);
684 DEFUN ("substitute-command-keys", Fsubstitute_command_keys
,
685 Ssubstitute_command_keys
, 1, 1, 0,
686 doc
: /* Substitute key descriptions for command names in STRING.
687 Substrings of the form \\=\\[COMMAND] replaced by either: a keystroke
688 sequence that will invoke COMMAND, or "M-x COMMAND" if COMMAND is not
690 Substrings of the form \\=\\{MAPVAR} are replaced by summaries
691 \(made by `describe-bindings') of the value of MAPVAR, taken as a keymap.
692 Substrings of the form \\=\\<MAPVAR> specify to use the value of MAPVAR
693 as the keymap for future \\=\\[COMMAND] substrings.
694 \\=\\= quotes the following character and is discarded;
695 thus, \\=\\=\\=\\= puts \\=\\= into the output, and \\=\\=\\=\\[ puts \\=\\[ into the output.
697 Returns original STRING if no substitutions were made. Otherwise,
698 a new string, without any text properties, is returned. */)
703 register unsigned char *strp
;
704 register unsigned char *bufp
;
709 unsigned char *start
;
710 EMACS_INT length
, length_byte
;
712 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
719 CHECK_STRING (string
);
723 GCPRO4 (string
, tem
, keymap
, name
);
725 multibyte
= STRING_MULTIBYTE (string
);
728 /* KEYMAP is either nil (which means search all the active keymaps)
729 or a specified local map (which means search just that and the
730 global map). If non-nil, it might come from Voverriding_local_map,
731 or from a \\<mapname> construct in STRING itself.. */
732 keymap
= current_kboard
->Voverriding_terminal_local_map
;
734 keymap
= Voverriding_local_map
;
736 bsize
= SBYTES (string
);
737 bufp
= buf
= (unsigned char *) xmalloc (bsize
);
739 strp
= SDATA (string
);
740 while (strp
< SDATA (string
) + SBYTES (string
))
742 if (strp
[0] == '\\' && strp
[1] == '=')
744 /* \= quotes the next character;
745 thus, to put in \[ without its special meaning, use \=\[. */
752 STRING_CHAR_AND_LENGTH (strp
, len
);
756 memcpy (bufp
, strp
, len
);
762 *bufp
++ = *strp
++, nchars
++;
764 else if (strp
[0] == '\\' && strp
[1] == '[')
767 int follow_remap
= 1;
770 strp
+= 2; /* skip \[ */
772 start_idx
= start
- SDATA (string
);
774 while ((strp
- SDATA (string
)
778 length_byte
= strp
- start
;
782 /* Save STRP in IDX. */
783 idx
= strp
- SDATA (string
);
784 name
= Fintern (make_string (start
, length_byte
), Qnil
);
787 tem
= Fwhere_is_internal (name
, keymap
, Qt
, Qnil
, Qnil
);
789 if (VECTORP (tem
) && XVECTOR (tem
)->size
> 1
790 && EQ (AREF (tem
, 0), Qremap
) && SYMBOLP (AREF (tem
, 1))
793 name
= AREF (tem
, 1);
798 /* Note the Fwhere_is_internal can GC, so we have to take
799 relocation of string contents into account. */
800 strp
= SDATA (string
) + idx
;
801 start
= SDATA (string
) + start_idx
;
803 if (NILP (tem
)) /* but not on any keys */
805 EMACS_INT offset
= bufp
- buf
;
806 buf
= (unsigned char *) xrealloc (buf
, bsize
+= 4);
808 memcpy (bufp
, "M-x ", 4);
812 length
= multibyte_chars_in_text (start
, length_byte
);
814 length
= length_byte
;
818 { /* function is on a key */
819 tem
= Fkey_description (tem
, Qnil
);
823 /* \{foo} is replaced with a summary of the keymap (symbol-value foo).
824 \<foo> just sets the keymap used for \[cmd]. */
825 else if (strp
[0] == '\\' && (strp
[1] == '{' || strp
[1] == '<'))
827 struct buffer
*oldbuf
;
829 /* This is for computing the SHADOWS arg for describe_map_tree. */
830 Lisp_Object active_maps
= Fcurrent_active_maps (Qnil
, Qnil
);
831 Lisp_Object earlier_maps
;
834 strp
+= 2; /* skip \{ or \< */
836 start_idx
= start
- SDATA (string
);
838 while ((strp
- SDATA (string
) < SBYTES (string
))
839 && *strp
!= '}' && *strp
!= '>')
842 length_byte
= strp
- start
;
843 strp
++; /* skip } or > */
845 /* Save STRP in IDX. */
846 idx
= strp
- SDATA (string
);
848 /* Get the value of the keymap in TEM, or nil if undefined.
849 Do this while still in the user's current buffer
850 in case it is a local variable. */
851 name
= Fintern (make_string (start
, length_byte
), Qnil
);
852 tem
= Fboundp (name
);
855 tem
= Fsymbol_value (name
);
858 tem
= get_keymap (tem
, 0, 1);
859 /* Note that get_keymap can GC. */
860 strp
= SDATA (string
) + idx
;
861 start
= SDATA (string
) + start_idx
;
865 /* Now switch to a temp buffer. */
866 oldbuf
= current_buffer
;
867 set_buffer_internal (XBUFFER (Vprin1_to_string_buffer
));
871 name
= Fsymbol_name (name
);
872 insert_string ("\nUses keymap \"");
873 insert_from_string (name
, 0, 0,
876 insert_string ("\", which is not currently defined.\n");
877 if (start
[-1] == '<') keymap
= Qnil
;
879 else if (start
[-1] == '<')
883 /* Get the list of active keymaps that precede this one.
884 If this one's not active, get nil. */
885 earlier_maps
= Fcdr (Fmemq (tem
, Freverse (active_maps
)));
886 describe_map_tree (tem
, 1, Fnreverse (earlier_maps
),
887 Qnil
, (char *)0, 1, 0, 0, 1);
889 tem
= Fbuffer_string ();
891 set_buffer_internal (oldbuf
);
895 length
= SCHARS (tem
);
896 length_byte
= SBYTES (tem
);
899 EMACS_INT offset
= bufp
- buf
;
900 buf
= (unsigned char *) xrealloc (buf
, bsize
+= length_byte
);
902 memcpy (bufp
, start
, length_byte
);
905 /* Check STRING again in case gc relocated it. */
906 strp
= (unsigned char *) SDATA (string
) + idx
;
909 else if (! multibyte
) /* just copy other chars */
910 *bufp
++ = *strp
++, nchars
++;
915 STRING_CHAR_AND_LENGTH (strp
, len
);
919 memcpy (bufp
, strp
, len
);
926 if (changed
) /* don't bother if nothing substituted */
927 tem
= make_string_from_bytes (buf
, nchars
, bufp
- buf
);
931 RETURN_UNGCPRO (tem
);
937 Qfunction_documentation
= intern_c_string ("function-documentation");
938 staticpro (&Qfunction_documentation
);
940 DEFVAR_LISP ("internal-doc-file-name", &Vdoc_file_name
,
941 doc
: /* Name of file containing documentation strings of built-in symbols. */);
942 Vdoc_file_name
= Qnil
;
944 DEFVAR_LISP ("build-files", &Vbuild_files
,
945 doc
: /* A list of files used to build this Emacs binary. */);
948 defsubr (&Sdocumentation
);
949 defsubr (&Sdocumentation_property
);
950 defsubr (&Ssnarf_documentation
);
951 defsubr (&Ssubstitute_command_keys
);
954 /* arch-tag: 56281d4d-6949-43e2-be2e-f6517de744ba
955 (do not change this comment) */