Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
335c5470
Commit
335c5470
authored
Nov 13, 2001
by
Pavel Janík
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Change doc-string comments to `new style' [w/`doc:' keyword].
parent
31b85a14
Changes
9
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
9 changed files
with
597 additions
and
594 deletions
+597
-594
src/cmds.c
src/cmds.c
+36
-36
src/composite.c
src/composite.c
+38
-38
src/dired.c
src/dired.c
+69
-68
src/doc.c
src/doc.c
+32
-32
src/filelock.c
src/filelock.c
+14
-14
src/floatfns.c
src/floatfns.c
+87
-87
src/fontset.c
src/fontset.c
+86
-86
src/insdel.c
src/insdel.c
+8
-8
src/keymap.c
src/keymap.c
+227
-225
No files found.
src/cmds.c
View file @
335c5470
...
...
@@ -44,8 +44,8 @@ Lisp_Object Vself_insert_face_command;
extern
Lisp_Object
Qface
;
DEFUN
(
"forward-point"
,
Fforward_point
,
Sforward_point
,
1
,
1
,
0
,
"
Return buffer position N characters after (before if N negative) point.
"
)
(
n
)
doc
:
/*
Return buffer position N characters after (before if N negative) point.
*/
)
(
n
)
Lisp_Object
n
;
{
CHECK_NUMBER
(
n
);
...
...
@@ -54,9 +54,9 @@ DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0,
}
DEFUN
(
"forward-char"
,
Fforward_char
,
Sforward_char
,
0
,
1
,
"p"
,
"
Move point right N characters (left if N is negative).
\n
\
On reaching end of buffer, stop and signal error.
"
)
(
n
)
doc
:
/*
Move point right N characters (left if N is negative).
On reaching end of buffer, stop and signal error.
*/
)
(
n
)
Lisp_Object
n
;
{
if
(
NILP
(
n
))
...
...
@@ -90,9 +90,9 @@ On reaching end of buffer, stop and signal error.")
}
DEFUN
(
"backward-char"
,
Fbackward_char
,
Sbackward_char
,
0
,
1
,
"p"
,
"
Move point left N characters (right if N is negative).
\n
\
On attempt to pass beginning or end of buffer, stop and signal error.
"
)
(
n
)
doc
:
/*
Move point left N characters (right if N is negative).
On attempt to pass beginning or end of buffer, stop and signal error.
*/
)
(
n
)
Lisp_Object
n
;
{
if
(
NILP
(
n
))
...
...
@@ -105,14 +105,14 @@ On attempt to pass beginning or end of buffer, stop and signal error.")
}
DEFUN
(
"forward-line"
,
Fforward_line
,
Sforward_line
,
0
,
1
,
"p"
,
"
Move N lines forward (backward if N is negative).
\n
\
Precisely, if point is on line I, move to the start of line I + N.
\n
\
If there isn't room, go as far as possible (no error).
\n
\
Returns the count of lines left to move. If moving forward,
\n
\
that is N - number of lines moved; if backward, N + number moved.
\n
\
With positive N, a non-empty line at the end counts as one line
\n
\
successfully moved (for the return value).
"
)
(
n
)
doc
:
/*
Move N lines forward (backward if N is negative).
Precisely, if point is on line I, move to the start of line I + N.
If there isn't room, go as far as possible (no error).
Returns the count of lines left to move. If moving forward,
that is N - number of lines moved; if backward, N + number moved.
With positive N, a non-empty line at the end counts as one line
successfully moved (for the return value).
*/
)
(
n
)
Lisp_Object
n
;
{
int
opoint
=
PT
,
opoint_byte
=
PT_BYTE
;
...
...
@@ -198,11 +198,11 @@ boundaries bind `inhibit-field-text-motion' to t. */)
}
DEFUN
(
"delete-char"
,
Fdelete_char
,
Sdelete_char
,
1
,
2
,
"p
\n
P"
,
"
Delete the following N characters (previous if N is negative).
\n
\
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
\n
\
Interactively, N is the prefix arg, and KILLFLAG is set if
\n
\
N was explicitly specified.
"
)
(
n
,
killflag
)
doc
:
/*
Delete the following N characters (previous if N is negative).
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
Interactively, N is the prefix arg, and KILLFLAG is set if
N was explicitly specified.
*/
)
(
n
,
killflag
)
Lisp_Object
n
,
killflag
;
{
int
pos
;
...
...
@@ -235,12 +235,12 @@ N was explicitly specified.")
}
DEFUN
(
"delete-backward-char"
,
Fdelete_backward_char
,
Sdelete_backward_char
,
1
,
2
,
"p
\n
P"
,
"
Delete the previous N characters (following if N is negative).
\n
\
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
\n
\
Interactively, N is the prefix arg, and KILLFLAG is set if
\n
\
N was explicitly specified.
"
)
(
n
,
killflag
)
1
,
2
,
"p
\n
P"
,
doc
:
/*
Delete the previous N characters (following if N is negative).
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
Interactively, N is the prefix arg, and KILLFLAG is set if
N was explicitly specified.
*/
)
(
n
,
killflag
)
Lisp_Object
n
,
killflag
;
{
Lisp_Object
value
;
...
...
@@ -287,9 +287,9 @@ N was explicitly specified.")
}
DEFUN
(
"self-insert-command"
,
Fself_insert_command
,
Sself_insert_command
,
1
,
1
,
"p"
,
"
Insert the character you type.
\n
\
Whichever character you type to run this command is inserted.
"
)
(
n
)
doc
:
/*
Insert the character you type.
Whichever character you type to run this command is inserted.
*/
)
(
n
)
Lisp_Object
n
;
{
int
character
=
XINT
(
last_command_char
);
...
...
@@ -534,18 +534,18 @@ syms_of_cmds ()
staticpro
(
&
Qoverwrite_mode_binary
);
DEFVAR_LISP
(
"self-insert-face"
,
&
Vself_insert_face
,
"
If non-nil, set the face of the next self-inserting character to this.
\n
\
See also `self-insert-face-command'.
"
);
doc:
/*
If non-nil, set the face of the next self-inserting character to this.
See also `self-insert-face-command'.
*/
);
Vself_insert_face
=
Qnil
;
DEFVAR_LISP
(
"self-insert-face-command"
,
&
Vself_insert_face_command
,
"
This is the command that set up `self-insert-face'.
\n
\
If `last-command' does not equal this value, we ignore `self-insert-face'.
"
);
doc:
/*
This is the command that set up `self-insert-face'.
If `last-command' does not equal this value, we ignore `self-insert-face'.
*/
);
Vself_insert_face_command
=
Qnil
;
DEFVAR_LISP
(
"blink-paren-function"
,
&
Vblink_paren_function
,
"
Function called, if non-nil, whenever a close parenthesis is inserted.
\n
\
More precisely, a char with closeparen syntax is self-inserted.
"
);
doc:
/*
Function called, if non-nil, whenever a close parenthesis is inserted.
More precisely, a char with closeparen syntax is self-inserted.
*/
);
Vblink_paren_function
=
Qnil
;
defsubr
(
&
Sforward_point
);
...
...
src/composite.c
View file @
335c5470
...
...
@@ -717,12 +717,12 @@ compose_chars_in_text (start, end, string)
DEFUN
(
"compose-region-internal"
,
Fcompose_region_internal
,
Scompose_region_internal
,
2
,
4
,
0
,
"
Internal use only.
\n
\
\n
\
Compose text in the region between START and END.
\n
\
Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC
\n
\
for the composition. See `compose-region' for more detial.
"
)
(
start
,
end
,
components
,
mod_func
)
doc
:
/*
Internal use only.
Compose text in the region between START and END.
Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC
for the composition. See `compose-region' for more detial.
*/
)
(
start
,
end
,
components
,
mod_func
)
Lisp_Object
start
,
end
,
components
,
mod_func
;
{
validate_region
(
&
start
,
&
end
);
...
...
@@ -738,12 +738,12 @@ for the composition. See `compose-region' for more detial.")
DEFUN
(
"compose-string-internal"
,
Fcompose_string_internal
,
Scompose_string_internal
,
3
,
5
,
0
,
"
Internal use only.
\n
\
\n
\
Compose text between indices START and END of STRING.
\n
\
Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC
\n
\
for the composition. See `compose-string' for more detial.
"
)
(
string
,
start
,
end
,
components
,
mod_func
)
doc
:
/*
Internal use only.
Compose text between indices START and END of STRING.
Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC
for the composition. See `compose-string' for more detial.
*/
)
(
string
,
start
,
end
,
components
,
mod_func
)
Lisp_Object
string
,
start
,
end
,
components
,
mod_func
;
{
CHECK_STRING
(
string
);
...
...
@@ -761,11 +761,11 @@ for the composition. See `compose-string' for more detial.")
DEFUN
(
"find-composition-internal"
,
Ffind_composition_internal
,
Sfind_composition_internal
,
4
,
4
,
0
,
"
Internal use only.
\n
\
\n
\
Return information about composition at or nearest to position POS.
\n
\
See `find-composition' for more detail.
"
)
(
pos
,
limit
,
string
,
detail_p
)
doc
:
/*
Internal use only.
Return information about composition at or nearest to position POS.
See `find-composition' for more detail.
*/
)
(
pos
,
limit
,
string
,
detail_p
)
Lisp_Object
pos
,
limit
,
string
,
detail_p
;
{
Lisp_Object
prop
,
tail
;
...
...
@@ -861,17 +861,17 @@ syms_of_composite ()
=
Fcons
(
Fcons
(
Qcomposition
,
Qt
),
Vtext_property_default_nonsticky
);
DEFVAR_LISP
(
"compose-chars-after-function"
,
&
Vcompose_chars_after_function
,
"
Function to adjust composition of buffer text.
\n
\
\n
\
The function is called with three arguments FROM, TO, and OBJECT.
\n
\
FROM and TO specify the range of text of which composition should be
\n
\
adjusted. OBJECT, if non-nil, is a string that contains the text.
\n
\
\n
\
This function is called after a text with `composition' property is
\n
\
inserted or deleted to keep `composition' property of buffer text
\n
\
valid.
\n
\
\n
\
The default value is the function `compose-chars-after'.
"
);
doc:
/*
Function to adjust composition of buffer text.
The function is called with three arguments FROM, TO, and OBJECT.
FROM and TO specify the range of text of which composition should be
adjusted. OBJECT, if non-nil, is a string that contains the text.
This function is called after a text with `composition' property is
inserted or deleted to keep `composition' property of buffer text
valid.
The default value is the function `compose-chars-after'.
*/
);
Vcompose_chars_after_function
=
intern
(
"compose-chars-after"
);
Qcomposition_function_table
=
intern
(
"composition-function-table"
);
...
...
@@ -885,16 +885,16 @@ The default value is the function `compose-chars-after'.");
Fput
(
Qcomposition_function_table
,
Qchar_table_extra_slots
,
make_number
(
0
));
DEFVAR_LISP
(
"composition-function-table"
,
&
Vcomposition_function_table
,
"
Char table of patterns and functions to make a composition.
\n
\
\n
\
Each element is nil or an alist of PATTERNs vs FUNCs, where PATTERNs
\n
\
are regular expressions and FUNCs are functions. FUNC is responsible
\n
\
for composing text matching the corresponding PATTERN. FUNC is called
\n
\
with three arguments FROM, TO, and PATTERN. See the function
\n
\
`compose-chars-after' for more detail.
\n
\
\n
\
This table is looked up by the first character of a composition when
\n
\
the composition gets invalid after a change in a buffer.
"
);
doc:
/*
Char table of patterns and functions to make a composition.
Each element is nil or an alist of PATTERNs vs FUNCs, where PATTERNs
are regular expressions and FUNCs are functions. FUNC is responsible
for composing text matching the corresponding PATTERN. FUNC is called
with three arguments FROM, TO, and PATTERN. See the function
`compose-chars-after' for more detail.
This table is looked up by the first character of a composition when
the composition gets invalid after a change in a buffer.
*/
);
Vcomposition_function_table
=
Fmake_char_table
(
Qcomposition_function_table
,
Qnil
);
...
...
src/dired.c
View file @
335c5470
...
...
@@ -332,14 +332,14 @@ directory_files_internal (directory, full, match, nosort, attrs)
DEFUN
(
"directory-files"
,
Fdirectory_files
,
Sdirectory_files
,
1
,
4
,
0
,
"
Return a list of names of files in DIRECTORY.
\n
\
There are three optional arguments:
\n
\
If FULL is non-nil, return absolute file names. Otherwise return names
\n
\
that are relative to the specified directory.
\n
\
If MATCH is non-nil, mention only file names that match the regexp MATCH.
\n
\
If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
\n
\
NOSORT is useful if you plan to sort the result yourself.
"
)
(
directory
,
full
,
match
,
nosort
)
doc
:
/*
Return a list of names of files in DIRECTORY.
There are three optional arguments:
If FULL is non-nil, return absolute file names. Otherwise return names
that are relative to the specified directory.
If MATCH is non-nil, mention only file names that match the regexp MATCH.
If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
NOSORT is useful if you plan to sort the result yourself.
*/
)
(
directory
,
full
,
match
,
nosort
)
Lisp_Object
directory
,
full
,
match
,
nosort
;
{
Lisp_Object
handler
;
...
...
@@ -363,15 +363,16 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
return
directory_files_internal
(
directory
,
full
,
match
,
nosort
,
0
);
}
DEFUN
(
"directory-files-and-attributes"
,
Fdirectory_files_and_attributes
,
Sdirectory_files_and_attributes
,
1
,
4
,
0
,
"Return a list of names of files and their attributes in DIRECTORY.
\n
\
There are three optional arguments:
\n
\
If FULL is non-nil, return absolute file names. Otherwise return names
\n
\
that are relative to the specified directory.
\n
\
If MATCH is non-nil, mention only file names that match the regexp MATCH.
\n
\
If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
\n
\
NOSORT is useful if you plan to sort the result yourself."
)
(
directory
,
full
,
match
,
nosort
)
DEFUN
(
"directory-files-and-attributes"
,
Fdirectory_files_and_attributes
,
Sdirectory_files_and_attributes
,
1
,
4
,
0
,
doc
:
/* Return a list of names of files and their attributes in DIRECTORY.
There are three optional arguments:
If FULL is non-nil, return absolute file names. Otherwise return names
that are relative to the specified directory.
If MATCH is non-nil, mention only file names that match the regexp MATCH.
If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
NOSORT is useful if you plan to sort the result yourself. */
)
(
directory
,
full
,
match
,
nosort
)
Lisp_Object
directory
,
full
,
match
,
nosort
;
{
Lisp_Object
handler
;
...
...
@@ -399,16 +400,16 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
Lisp_Object
file_name_completion
();
DEFUN
(
"file-name-completion"
,
Ffile_name_completion
,
Sfile_name_completion
,
2
,
2
,
0
,
"
Complete file name FILE in directory DIRECTORY.
\n
\
Returns the longest string
\n
\
common to all file names in DIRECTORY that start with FILE.
\n
\
If there is only one and FILE matches it exactly, returns t.
\n
\
Returns nil if DIR contains no name starting with FILE.
\n
\
\n
\
This function ignores some of the possible completions as
\n
\
determined by the variable `completion-ignored-extensions', which see.
"
)
(
file
,
directory
)
2
,
2
,
0
,
doc
:
/*
Complete file name FILE in directory DIRECTORY.
Returns the longest string
common to all file names in DIRECTORY that start with FILE.
If there is only one and FILE matches it exactly, returns t.
Returns nil if DIR contains no name starting with FILE.
This function ignores some of the possible completions as
determined by the variable `completion-ignored-extensions', which see.
*/
)
(
file
,
directory
)
Lisp_Object
file
,
directory
;
{
Lisp_Object
handler
;
...
...
@@ -429,10 +430,10 @@ determined by the variable `completion-ignored-extensions', which see.")
}
DEFUN
(
"file-name-all-completions"
,
Ffile_name_all_completions
,
Sfile_name_all_completions
,
2
,
2
,
0
,
"
Return a list of all completions of file name FILE in directory DIRECTORY.
\n
\
These are all file names in directory DIRECTORY which begin with FILE.
"
)
(
file
,
directory
)
Sfile_name_all_completions
,
2
,
2
,
0
,
doc
:
/*
Return a list of all completions of file name FILE in directory DIRECTORY.
These are all file names in directory DIRECTORY which begin with FILE.
*/
)
(
file
,
directory
)
Lisp_Object
file
,
directory
;
{
Lisp_Object
handler
;
...
...
@@ -787,18 +788,18 @@ file_name_completion_stat (dirname, dp, st_addr)
#ifdef VMS
DEFUN
(
"file-name-all-versions"
,
Ffile_name_all_versions
,
Sfile_name_all_versions
,
2
,
2
,
0
,
"
Return a list of all versions of file name FILE in directory DIRECTORY.
"
)
(
file
,
directory
)
Sfile_name_all_versions
,
2
,
2
,
0
,
doc
:
/*
Return a list of all versions of file name FILE in directory DIRECTORY.
*/
)
(
file
,
directory
)
Lisp_Object
file
,
directory
;
{
return
file_name_completion
(
file
,
directory
,
1
,
1
);
}
DEFUN
(
"file-version-limit"
,
Ffile_version_limit
,
Sfile_version_limit
,
1
,
1
,
0
,
"
Return the maximum number of versions allowed for FILE.
\n
\
Returns nil if the file cannot be opened or if there is no version limit.
"
)
(
filename
)
doc
:
/*
Return the maximum number of versions allowed for FILE.
Returns nil if the file cannot be opened or if there is no version limit.
*/
)
(
filename
)
Lisp_Object
filename
;
{
Lisp_Object
retval
;
...
...
@@ -834,29 +835,29 @@ make_time (time)
}
DEFUN
(
"file-attributes"
,
Ffile_attributes
,
Sfile_attributes
,
1
,
1
,
0
,
"
Return a list of attributes of file FILENAME.
\n
\
Value is nil if specified file cannot be opened.
\n
\
Otherwise, list elements are:
\n
\
0. t for directory, string (name linked to) for symbolic link, or nil.
\n
\
1. Number of links to file.
\n
\
2. File uid.
\n
\
3. File gid.
\n
\
4. Last access time, as a list of two integers.
\n
\
First integer has high-order 16 bits of time, second has low 16 bits.
\n
\
5. Last modification time, likewise.
\n
\
6. Last status change time, likewise.
\n
\
7. Size in bytes.
\n
\
This is a floating point number if the size is too large for an integer.
\n
\
8. File modes, as a string of ten letters or dashes as in ls -l.
\n
\
9. t iff file's gid would change if file were deleted and recreated.
\n
\
10. inode number. If inode number is larger than the Emacs integer,
\n
\
this is a cons cell containing two integers: first the high part,
\n
\
then the low 16 bits.
\n
\
11. Device number. If it is larger than the Emacs integer, this is
\n
\
a cons cell, similar to the inode number.
\n
\
\n
\
If file does not exist, returns nil.
"
)
(
filename
)
doc
:
/*
Return a list of attributes of file FILENAME.
Value is nil if specified file cannot be opened.
Otherwise, list elements are:
0. t for directory, string (name linked to) for symbolic link, or nil.
1. Number of links to file.
2. File uid.
3. File gid.
4. Last access time, as a list of two integers.
First integer has high-order 16 bits of time, second has low 16 bits.
5. Last modification time, likewise.
6. Last status change time, likewise.
7. Size in bytes.
This is a floating point number if the size is too large for an integer.
8. File modes, as a string of ten letters or dashes as in ls -l.
9. t iff file's gid would change if file were deleted and recreated.
10. inode number. If inode number is larger than the Emacs integer,
this is a cons cell containing two integers: first the high part,
then the low 16 bits.
11. Device number. If it is larger than the Emacs integer, this is
a cons cell, similar to the inode number.
If file does not exist, returns nil.
*/
)
(
filename
)
Lisp_Object
filename
;
{
Lisp_Object
values
[
12
];
...
...
@@ -937,9 +938,9 @@ If file does not exist, returns nil.")
}
DEFUN
(
"file-attributes-lessp"
,
Ffile_attributes_lessp
,
Sfile_attributes_lessp
,
2
,
2
,
0
,
"
Return t if first arg file attributes list is less than second.
\n
\
Comparison is in lexicographic order and case is significant.
"
)
(
f1
,
f2
)
doc
:
/*
Return t if first arg file attributes list is less than second.
Comparison is in lexicographic order and case is significant.
*/
)
(
f1
,
f2
)
Lisp_Object
f1
,
f2
;
{
return
Fstring_lessp
(
Fcar
(
f1
),
Fcar
(
f2
));
...
...
@@ -979,10 +980,10 @@ syms_of_dired ()
#endif
/* VMS */
DEFVAR_LISP
(
"completion-ignored-extensions"
,
&
Vcompletion_ignored_extensions
,
"
*Completion ignores filenames ending in any string in this list.
\n
\
Directories are ignored if they match any string in this list which
\n
\
ends in a slash.
\n
\
This variable does not affect lists of possible completions,
\n
\
but does affect the commands that actually do completions.
"
);
doc:
/*
*Completion ignores filenames ending in any string in this list.
Directories are ignored if they match any string in this list which
ends in a slash.
This variable does not affect lists of possible completions,
but does affect the commands that actually do completions.
*/
);
Vcompletion_ignored_extensions
=
Qnil
;
}
src/doc.c
View file @
335c5470
...
...
@@ -304,10 +304,10 @@ read_doc_string (filepos)
}
DEFUN
(
"documentation"
,
Fdocumentation
,
Sdocumentation
,
1
,
2
,
0
,
"
Return the documentation string of FUNCTION.
\n
\
Unless a non-nil second argument RAW is given, the
\n
\
string is passed through `substitute-command-keys'.
"
)
(
function
,
raw
)
doc
:
/*
Return the documentation string of FUNCTION.
Unless a non-nil second argument RAW is given, the
string is passed through `substitute-command-keys'.
*/
)
(
function
,
raw
)
Lisp_Object
function
,
raw
;
{
Lisp_Object
fun
;
...
...
@@ -391,13 +391,13 @@ string is passed through `substitute-command-keys'.")
DEFUN
(
"documentation-property"
,
Fdocumentation_property
,
Sdocumentation_property
,
2
,
3
,
0
,
"
Return the documentation string that is SYMBOL's PROP property.
\n
\
Third argument RAW omitted or nil means pass the result through
\n
\
`substitute-command-keys' if it is a string.
\n
\
\n
\
This differs from `get' in that it can refer to strings stored in the
\n
\
`etc/DOC' file; and that it evaluates documentation properties that
\n
\
aren't strings.
"
)
doc
:
/*
Return the documentation string that is SYMBOL's PROP property.
Third argument RAW omitted or nil means pass the result through
`substitute-command-keys' if it is a string.
This differs from `get' in that it can refer to strings stored in the
`etc/DOC' file; and that it evaluates documentation properties that
aren't strings.
*/
)
(
symbol
,
prop
,
raw
)
Lisp_Object
symbol
,
prop
,
raw
;
{
...
...
@@ -461,14 +461,14 @@ store_function_docstring (fun, offset)
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
\
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 `data-directory'
\n
\
when doc strings are referred to later in the dumped Emacs.
"
)
(
filename
)
1
,
1
,
0
,
doc
:
/*
Used during Emacs initialization, before dumping runnable Emacs,
to find pointers to doc strings stored in `etc/DOC...' and
record them in function definitions.
One arg, FILENAME, a string which does not include a directory.
The file is found in `../etc' now; found in the `data-directory'
when doc strings are referred to later in the dumped Emacs.
*/
)
(
filename
)
Lisp_Object
filename
;
{
int
fd
;
...
...
@@ -568,18 +568,18 @@ when doc strings are referred to later in the dumped Emacs.")
}
DEFUN
(
"substitute-command-keys"
,
Fsubstitute_command_keys
,
Ssubstitute_command_keys
,
1
,
1
,
0
,
"
Substitute key descriptions for command names in STRING.
\n
\
Return a new string which is STRING with substrings of the form
\\
=
\\
[COMMAND]
\n
\
replaced by either: a keystroke sequence that will invoke COMMAND,
\n
\
or
\
"
M-x COMMAND
\
"
if COMMAND is not on any keys.
\n
\
Substrings of the form
\\
=
\\
{MAPVAR} are replaced by summaries
\n
\
\(made by describe-bindings) of the value of MAPVAR, taken as a keymap.
\n
\
Substrings of the form
\\
=
\\
<MAPVAR> specify to use the value of MAPVAR
\n
\
as the keymap for future
\\
=
\\
[COMMAND] substrings.
\n
\
\\
=
\\
= quotes the following character and is discarded;
\n
\
thus,
\\
=
\\
=
\\
=
\\
= puts
\\
=
\\
= into the output, and
\\
=
\\
=
\\
=
\\
[ puts
\\
=
\\
[ into the output.
"
)
(
string
)
Ssubstitute_command_keys
,
1
,
1
,
0
,
doc
:
/*
Substitute key descriptions for command names in STRING.
Return a new string which is STRING with substrings of the form \\=\\[COMMAND]
replaced by either: a keystroke sequence that will invoke COMMAND,
or "M-x COMMAND" if COMMAND is not on any keys.
Substrings of the form \\=\\{MAPVAR} are replaced by summaries
\(made by describe-bindings) of the value of MAPVAR, taken as a keymap.
Substrings of the form \\=\\<MAPVAR> specify to use the value of MAPVAR
as the keymap for future \\=\\[COMMAND] substrings.
\\=\\= quotes the following character and is discarded;
thus, \\=\\=\\=\\= puts \\=\\= into the output, and \\=\\=\\=\\[ puts \\=\\[ into the output.
*/
)
(
string
)
Lisp_Object
string
;
{
unsigned
char
*
buf
;
...
...
@@ -815,7 +815,7 @@ syms_of_doc ()
staticpro
(
&
Qfunction_documentation
);
DEFVAR_LISP
(
"internal-doc-file-name"
,
&
Vdoc_file_name
,
"
Name of file containing documentation strings of built-in symbols.
"
);
doc:
/*
Name of file containing documentation strings of built-in symbols.
*/
);
Vdoc_file_name
=
Qnil
;
defsubr
(
&
Sdocumentation
);
...
...
src/filelock.c
View file @
335c5470
...
...
@@ -673,11 +673,11 @@ unlock_all_files ()
}
DEFUN
(
"lock-buffer"
,
Flock_buffer
,
Slock_buffer
,
0
,
1
,
0
,
"
Lock FILE, if current buffer is modified.
\n
\
FILE defaults to current buffer's visited file,
\n
\
or else nothing is done if current buffer isn't visiting a file.
"
)
(
file
)
0
,
1
,
0
,
doc
:
/*
Lock FILE, if current buffer is modified.
FILE defaults to current buffer's visited file,
or else nothing is done if current buffer isn't visiting a file.
*/
)
(
file
)
Lisp_Object
file
;
{
if
(
NILP
(
file
))
...
...
@@ -691,10 +691,10 @@ or else nothing is done if current buffer isn't visiting a file.")
}
DEFUN
(
"unlock-buffer"
,
Funlock_buffer
,
Sunlock_buffer
,
0
,
0
,
0
,
"
Unlock the file visited in the current buffer,
\n
\
if it should normally be locked.
"
)
()
0
,
0
,
0
,
doc
:
/*
Unlock the file visited in the current buffer,
if it should normally be locked.
*/
)
()
{
if
(
SAVE_MODIFF
<
MODIFF
&&
STRINGP
(
current_buffer
->
file_truename
))
...
...
@@ -714,10 +714,10 @@ unlock_buffer (buffer)
}
DEFUN
(
"file-locked-p"
,
Ffile_locked_p
,
Sfile_locked_p
,
1
,
1
,
0
,
"
Return nil if the FILENAME is not locked,
\n
\
t if it is locked by you, else a string of the name of the locker.
"
)
(
filename
)
Lisp_Object
filename
;
doc
:
/*
Return nil if the FILENAME is not locked,
t if it is locked by you, else a string of the name of the locker.
*/
)
(
filename
)
Lisp_Object
filename
;
{
Lisp_Object
ret
;
register
char
*
lfname
;
...
...
@@ -755,7 +755,7 @@ void
syms_of_filelock
()
{
DEFVAR_LISP
(
"temporary-file-directory"
,
&
Vtemporary_file_directory
,
"
The directory for writing temporary files.
"
);
doc:
/*
The directory for writing temporary files.
*/
);
Vtemporary_file_directory
=
Qnil
;
defsubr
(
&
Sunlock_buffer
);
...
...
src/floatfns.c
View file @
335c5470
...
...
@@ -228,8 +228,8 @@ extract_float (num)
/* Trig functions. */
DEFUN
(
"acos"
,
Facos
,
Sacos
,
1
,
1
,
0
,
"
Return the inverse cosine of ARG.
"
)
(
arg
)
doc
:
/*
Return the inverse cosine of ARG.
*/
)
(
arg
)
register
Lisp_Object
arg
;
{
double
d
=
extract_float
(
arg
);
...
...
@@ -242,8 +242,8 @@ DEFUN ("acos", Facos, Sacos, 1, 1, 0,
}
DEFUN
(
"asin"
,
Fasin
,
Sasin
,
1
,
1
,
0
,
"
Return the inverse sine of ARG.
"
)
(
arg
)
doc
:
/*
Return the inverse sine of ARG.
*/
)
(
arg
)
register
Lisp_Object
arg
;
{
double
d
=
extract_float
(
arg
);
...
...
@@ -256,8 +256,8 @@ DEFUN ("asin", Fasin, Sasin, 1, 1, 0,
}
DEFUN
(
"atan"
,
Fatan
,
Satan
,
1
,
1
,
0
,
"
Return the inverse tangent of ARG.
"
)
(
arg
)
doc
:
/*
Return the inverse tangent of ARG.
*/
)
(
arg
)
register
Lisp_Object
arg
;
{
double
d
=
extract_float
(
arg
);
...
...
@@ -266,8 +266,8 @@ DEFUN ("atan", Fatan, Satan, 1, 1, 0,
}
DEFUN
(
"cos"
,
Fcos
,
Scos
,
1
,
1
,
0
,
"
Return the cosine of ARG.
"
)
(
arg
)
doc
:
/*
Return the cosine of ARG.
*/
)
(
arg
)
register
Lisp_Object
arg
;
{
double
d
=
extract_float
(
arg
);
...
...
@@ -276,8 +276,8 @@ DEFUN ("cos", Fcos, Scos, 1, 1, 0,