diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-02-22 23:49:01 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-02-22 23:49:01 +0000 |
| commit | ba87052134065d1f9d4661b41f053db06d21dd5d (patch) | |
| tree | c4ca2e1ebe575d2e2c1118ed767e276a3b71a5b9 /src/doc.c | |
| parent | c65be0e1276910d7471ed9c85f232e23386c2841 (diff) | |
| download | emacs-ba87052134065d1f9d4661b41f053db06d21dd5d.tar.gz | |
(get_doc_string, Snarf_documentation): Use new variable doc_directory.
Diffstat (limited to 'src/doc.c')
| -rw-r--r-- | src/doc.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/doc.c b/src/doc.c index 6beab625de9..8eccb66d18a 100644 --- a/src/doc.c +++ b/src/doc.c @@ -50,13 +50,13 @@ get_doc_string (filepos) register int count; extern char *index (); - if (XTYPE (Vdata_directory) != Lisp_String + if (XTYPE (Vdoc_directory) != Lisp_String || XTYPE (Vdoc_file_name) != Lisp_String) return Qnil; - name = (char *) alloca (XSTRING (Vdata_directory)->size + name = (char *) alloca (XSTRING (Vdoc_directory)->size + XSTRING (Vdoc_file_name)->size + 8); - strcpy (name, XSTRING (Vdata_directory)->data); + strcpy (name, XSTRING (Vdoc_directory)->data); strcat (name, XSTRING (Vdoc_file_name)->data); #ifdef VMS #ifndef VMS4_4 @@ -280,10 +280,10 @@ when doc strings are referred to later in the dumped Emacs.") name = (char *) alloca (XSTRING (filename)->size + 14); strcpy (name, "../etc/"); #else /* CANNOT_DUMP */ - CHECK_STRING (Vdata_directory, 0); + CHECK_STRING (Vdoc_directory, 0); name = (char *) alloca (XSTRING (filename)->size + - XSTRING (Vdata_directory)->size + 1); - strcpy (name, XSTRING (Vdata_directory)->data); + XSTRING (Vdoc_directory)->size + 1); + strcpy (name, XSTRING (Vdoc_directory)->data); #endif /* CANNOT_DUMP */ strcat (name, XSTRING (filename)->data); /*** Add this line ***/ #ifdef VMS |