Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6367dc09
Commit
6367dc09
authored
Dec 19, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
b960e009
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
12 deletions
+12
-12
src/doc.c
src/doc.c
+11
-11
src/lread.c
src/lread.c
+1
-1
No files found.
src/doc.c
View file @
6367dc09
...
...
@@ -48,13 +48,13 @@ get_doc_string (filepos)
register
int
count
;
extern
char
*
index
();
if
(
XTYPE
(
V
exec
_directory
)
!=
Lisp_String
if
(
XTYPE
(
V
data
_directory
)
!=
Lisp_String
||
XTYPE
(
Vdoc_file_name
)
!=
Lisp_String
)
return
Qnil
;
name
=
(
char
*
)
alloca
(
XSTRING
(
V
exec
_directory
)
->
size
name
=
(
char
*
)
alloca
(
XSTRING
(
V
data
_directory
)
->
size
+
XSTRING
(
Vdoc_file_name
)
->
size
+
8
);
strcpy
(
name
,
XSTRING
(
V
exec
_directory
)
->
data
);
strcpy
(
name
,
XSTRING
(
V
data
_directory
)
->
data
);
strcat
(
name
,
XSTRING
(
Vdoc_file_name
)
->
data
);
#ifdef VMS
#ifndef VMS4_4
...
...
@@ -175,7 +175,7 @@ DEFUN ("documentation-property", Fdocumentation_property,
Sdocumentation_property
,
2
,
2
,
0
,
"Return the documentation string that is SYMBOL's PROP property.
\n
\
This differs from using `get' only in that it can refer to strings
\n
\
stored in the `
etc
/DOC' file."
)
stored in the `
share-lib
/DOC' file."
)
(
sym
,
prop
)
Lisp_Object
sym
,
prop
;
{
...
...
@@ -192,10 +192,10 @@ stored in the `etc/DOC' file.")
DEFUN
(
"Snarf-documentation"
,
Fsnarf_documentation
,
Ssnarf_documentation
,
1
,
1
,
0
,
"Used during Emacs initialization, before dumping runnable Emacs,
\n
\
to find pointers to doc strings stored in `
etc
/DOC...' and
\n
\
to find pointers to doc strings stored in `
share-lib
/DOC...' and
\n
\
record them in function definitions.
\n
\
One arg, FILENAME, a string which does not include a directory.
\n
\
The file is found in `../
etc
' now; found in the `
exec
-directory'
\n
\
The file is found in `../
share-lib
' now; found in the `
data
-directory'
\n
\
when doc strings are referred to later in the dumped Emacs."
)
(
filename
)
Lisp_Object
filename
;
...
...
@@ -212,13 +212,13 @@ when doc strings are referred to later in the dumped Emacs.")
CHECK_STRING
(
filename
,
0
);
#ifndef CANNOT_DUMP
name
=
(
char
*
)
alloca
(
XSTRING
(
filename
)
->
size
+
8
);
strcpy
(
name
,
"../
etc
/"
);
name
=
(
char
*
)
alloca
(
XSTRING
(
filename
)
->
size
+
14
);
strcpy
(
name
,
"../
share-lib
/"
);
#else
/* CANNOT_DUMP */
CHECK_STRING
(
V
exec
_directory
,
0
);
CHECK_STRING
(
V
data
_directory
,
0
);
name
=
(
char
*
)
alloca
(
XSTRING
(
filename
)
->
size
+
XSTRING
(
V
exec
_directory
)
->
size
+
1
);
strcpy
(
name
,
XSTRING
(
V
exec
_directory
)
->
data
);
XSTRING
(
V
data
_directory
)
->
size
+
1
);
strcpy
(
name
,
XSTRING
(
V
data
_directory
)
->
data
);
#endif
/* CANNOT_DUMP */
strcat
(
name
,
XSTRING
(
filename
)
->
data
);
/*** Add this line ***/
#ifdef VMS
...
...
src/lread.c
View file @
6367dc09
...
...
@@ -858,7 +858,7 @@ read1 (readcharfun)
/* If purifying, and string starts with \ newline,
return zero instead. This is for doc strings
that we are really going to find in
etc
/DOC.nn.nn */
that we are really going to find in
share-lib
/DOC.nn.nn */
if
(
!
NULL
(
Vpurify_flag
)
&&
NULL
(
Vdoc_file_name
)
&&
cancel
)
return
make_number
(
0
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment