Skip to content

GitLab

Commit 335c5470 authored by Pavel Janík's avatar Pavel Janík
Browse files

Change doc-string comments to `new style' [w/`doc:' keyword].

parent 31b85a14
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 597 additions and 594 deletions
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\nP",
"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\nP",
"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\nP",
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;
{