aboutsummaryrefslogtreecommitdiffstats
path: root/src/doc.c
diff options
context:
space:
mode:
authorJim Blandy1991-12-19 17:24:45 +0000
committerJim Blandy1991-12-19 17:24:45 +0000
commit6367dc09a13bb1944db02f9f76ab25e4ccb159d6 (patch)
tree6d73cb207d79108872bf16d2fb870b0e579c79f9 /src/doc.c
parentb960e009915dad0d22ac5dcbce6b940f5a8d65a4 (diff)
downloademacs-6367dc09a13bb1944db02f9f76ab25e4ccb159d6.tar.gz
emacs-6367dc09a13bb1944db02f9f76ab25e4ccb159d6.zip
*** empty log message ***
Diffstat (limited to 'src/doc.c')
-rw-r--r--src/doc.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/src/doc.c b/src/doc.c
index 1e6b6bd9f14..b5bdd6a0f1c 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -48,13 +48,13 @@ get_doc_string (filepos)
48 register int count; 48 register int count;
49 extern char *index (); 49 extern char *index ();
50 50
51 if (XTYPE (Vexec_directory) != Lisp_String 51 if (XTYPE (Vdata_directory) != Lisp_String
52 || XTYPE (Vdoc_file_name) != Lisp_String) 52 || XTYPE (Vdoc_file_name) != Lisp_String)
53 return Qnil; 53 return Qnil;
54 54
55 name = (char *) alloca (XSTRING (Vexec_directory)->size 55 name = (char *) alloca (XSTRING (Vdata_directory)->size
56 + XSTRING (Vdoc_file_name)->size + 8); 56 + XSTRING (Vdoc_file_name)->size + 8);
57 strcpy (name, XSTRING (Vexec_directory)->data); 57 strcpy (name, XSTRING (Vdata_directory)->data);
58 strcat (name, XSTRING (Vdoc_file_name)->data); 58 strcat (name, XSTRING (Vdoc_file_name)->data);
59#ifdef VMS 59#ifdef VMS
60#ifndef VMS4_4 60#ifndef VMS4_4
@@ -175,7 +175,7 @@ DEFUN ("documentation-property", Fdocumentation_property,
175 Sdocumentation_property, 2, 2, 0, 175 Sdocumentation_property, 2, 2, 0,
176 "Return the documentation string that is SYMBOL's PROP property.\n\ 176 "Return the documentation string that is SYMBOL's PROP property.\n\
177This differs from using `get' only in that it can refer to strings\n\ 177This differs from using `get' only in that it can refer to strings\n\
178stored in the `etc/DOC' file.") 178stored in the `share-lib/DOC' file.")
179 (sym, prop) 179 (sym, prop)
180 Lisp_Object sym, prop; 180 Lisp_Object sym, prop;
181{ 181{
@@ -192,10 +192,10 @@ stored in the `etc/DOC' file.")
192DEFUN ("Snarf-documentation", Fsnarf_documentation, Ssnarf_documentation, 192DEFUN ("Snarf-documentation", Fsnarf_documentation, Ssnarf_documentation,
193 1, 1, 0, 193 1, 1, 0,
194 "Used during Emacs initialization, before dumping runnable Emacs,\n\ 194 "Used during Emacs initialization, before dumping runnable Emacs,\n\
195to find pointers to doc strings stored in `etc/DOC...' and\n\ 195to find pointers to doc strings stored in `share-lib/DOC...' and\n\
196record them in function definitions.\n\ 196record them in function definitions.\n\
197One arg, FILENAME, a string which does not include a directory.\n\ 197One arg, FILENAME, a string which does not include a directory.\n\
198The file is found in `../etc' now; found in the `exec-directory'\n\ 198The file is found in `../share-lib' now; found in the `data-directory'\n\
199when doc strings are referred to later in the dumped Emacs.") 199when doc strings are referred to later in the dumped Emacs.")
200 (filename) 200 (filename)
201 Lisp_Object filename; 201 Lisp_Object filename;
@@ -212,13 +212,13 @@ when doc strings are referred to later in the dumped Emacs.")
212 CHECK_STRING (filename, 0); 212 CHECK_STRING (filename, 0);
213 213
214#ifndef CANNOT_DUMP 214#ifndef CANNOT_DUMP
215 name = (char *) alloca (XSTRING (filename)->size + 8); 215 name = (char *) alloca (XSTRING (filename)->size + 14);
216 strcpy (name, "../etc/"); 216 strcpy (name, "../share-lib/");
217#else /* CANNOT_DUMP */ 217#else /* CANNOT_DUMP */
218 CHECK_STRING (Vexec_directory, 0); 218 CHECK_STRING (Vdata_directory, 0);
219 name = (char *) alloca (XSTRING (filename)->size + 219 name = (char *) alloca (XSTRING (filename)->size +
220 XSTRING (Vexec_directory)->size + 1); 220 XSTRING (Vdata_directory)->size + 1);
221 strcpy (name, XSTRING (Vexec_directory)->data); 221 strcpy (name, XSTRING (Vdata_directory)->data);
222#endif /* CANNOT_DUMP */ 222#endif /* CANNOT_DUMP */
223 strcat (name, XSTRING (filename)->data); /*** Add this line ***/ 223 strcat (name, XSTRING (filename)->data); /*** Add this line ***/
224#ifdef VMS 224#ifdef VMS