Commit 7ee72033 authored by Miles Bader's avatar Miles Bader

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

parent 015a8883
......@@ -22,7 +22,7 @@ Boston, MA 02111-1307, USA. */
#include <config.h>
#include <stdio.h>
#define DOC_STRINGS_IN_COMMENTS
#include "lisp.h"
#include "commands.h"
#include "buffer.h"
......@@ -84,15 +84,15 @@ int last_abbrev_point;
Lisp_Object Vpre_abbrev_expand_hook, Qpre_abbrev_expand_hook;
DEFUN ("make-abbrev-table", Fmake_abbrev_table, Smake_abbrev_table, 0, 0, 0,
/* Create a new, empty abbrev table object. */
())
doc: /* Create a new, empty abbrev table object. */)
()
{
return Fmake_vector (make_number (59), make_number (0));
}
DEFUN ("clear-abbrev-table", Fclear_abbrev_table, Sclear_abbrev_table, 1, 1, 0,
/* Undefine all abbrevs in abbrev table TABLE, leaving it empty. */
(table))
doc: /* Undefine all abbrevs in abbrev table TABLE, leaving it empty. */)
(table)
Lisp_Object table;
{
int i, size;
......@@ -106,7 +106,7 @@ DEFUN ("clear-abbrev-table", Fclear_abbrev_table, Sclear_abbrev_table, 1, 1, 0,
}
DEFUN ("define-abbrev", Fdefine_abbrev, Sdefine_abbrev, 3, 5, 0,
/* Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK.
doc: /* Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK.
NAME must be a string.
EXPANSION should usually be a string.
To undefine an abbrev, define it with EXPANSION = nil.
......@@ -115,8 +115,8 @@ it is called after EXPANSION is inserted.
If EXPANSION is not a string, the abbrev is a special one,
which does not expand in the usual way but only runs HOOK.
COUNT, if specified, initializes the abbrev's usage-count
which is incremented each time the abbrev is used. */
(table, name, expansion, hook, count))
which is incremented each time the abbrev is used. */)
(table, name, expansion, hook, count)
Lisp_Object table, name, expansion, hook, count;
{
Lisp_Object sym, oexp, ohook, tem;
......@@ -149,8 +149,8 @@ which is incremented each time the abbrev is used. */
DEFUN ("define-global-abbrev", Fdefine_global_abbrev, Sdefine_global_abbrev, 2, 2,
"sDefine global abbrev: \nsExpansion for %s: ",
/* Define ABBREV as a global abbreviation for EXPANSION. */
(abbrev, expansion))
doc: /* Define ABBREV as a global abbreviation for EXPANSION. */)
(abbrev, expansion)
Lisp_Object abbrev, expansion;
{
Fdefine_abbrev (Vglobal_abbrev_table, Fdowncase (abbrev),
......@@ -160,8 +160,8 @@ DEFUN ("define-global-abbrev", Fdefine_global_abbrev, Sdefine_global_abbrev, 2,
DEFUN ("define-mode-abbrev", Fdefine_mode_abbrev, Sdefine_mode_abbrev, 2, 2,
"sDefine mode abbrev: \nsExpansion for %s: ",
/* Define ABBREV as a mode-specific abbreviation for EXPANSION. */
(abbrev, expansion))
doc: /* Define ABBREV as a mode-specific abbreviation for EXPANSION. */)
(abbrev, expansion)
Lisp_Object abbrev, expansion;
{
if (NILP (current_buffer->abbrev_table))
......@@ -173,13 +173,13 @@ DEFUN ("define-mode-abbrev", Fdefine_mode_abbrev, Sdefine_mode_abbrev, 2, 2,
}
DEFUN ("abbrev-symbol", Fabbrev_symbol, Sabbrev_symbol, 1, 2, 0,
/* Return the symbol representing abbrev named ABBREV.
doc: /* Return the symbol representing abbrev named ABBREV.
This symbol's name is ABBREV, but it is not the canonical symbol of that name;
it is interned in an abbrev-table rather than the normal obarray.
The value is nil if that abbrev is not defined.
Optional second arg TABLE is abbrev table to look it up in.
The default is to try buffer's mode-specific abbrev table, then global table. */
(abbrev, table))
The default is to try buffer's mode-specific abbrev table, then global table. */)
(abbrev, table)
Lisp_Object abbrev, table;
{
Lisp_Object sym;
......@@ -202,10 +202,10 @@ The default is to try buffer's mode-specific abbrev table, then global table. *
}
DEFUN ("abbrev-expansion", Fabbrev_expansion, Sabbrev_expansion, 1, 2, 0,
/* Return the string that ABBREV expands into in the current buffer.
doc: /* Return the string that ABBREV expands into in the current buffer.
Optionally specify an abbrev table as second arg;
then ABBREV is looked up in that table only. */
(abbrev, table))
then ABBREV is looked up in that table only. */)
(abbrev, table)
Lisp_Object abbrev, table;
{
Lisp_Object sym;
......@@ -218,10 +218,10 @@ then ABBREV is looked up in that table only. */
Returns 1 if an expansion is done. */
DEFUN ("expand-abbrev", Fexpand_abbrev, Sexpand_abbrev, 0, 0, "",
/* Expand the abbrev before point, if there is an abbrev there.
doc: /* Expand the abbrev before point, if there is an abbrev there.
Effective when explicitly called even when `abbrev-mode' is nil.
Returns the abbrev symbol, if expansion took place. */
())
Returns the abbrev symbol, if expansion took place. */)
()
{
register char *buffer, *p;
int wordstart, wordend;
......@@ -389,10 +389,10 @@ Returns the abbrev symbol, if expansion took place. */
}
DEFUN ("unexpand-abbrev", Funexpand_abbrev, Sunexpand_abbrev, 0, 0, "",
/* Undo the expansion of the last abbrev that expanded.
doc: /* Undo the expansion of the last abbrev that expanded.
This differs from ordinary undo in that other editing done since then
is not undone. */
())
is not undone. */)
()
{
int opoint = PT;
int adjust = 0;
......@@ -467,13 +467,13 @@ describe_abbrev (sym, stream)
DEFUN ("insert-abbrev-table-description", Finsert_abbrev_table_description,
Sinsert_abbrev_table_description, 1, 2, 0,
/* Insert before point a full description of abbrev table named NAME.
doc: /* Insert before point a full description of abbrev table named NAME.
NAME is a symbol whose value is an abbrev table.
If optional 2nd arg READABLE is non-nil, a human-readable description
is inserted. Otherwise the description is an expression,
a call to `define-abbrev-table', which would
define the abbrev table NAME exactly as it is currently defined. */
(name, readable))
define the abbrev table NAME exactly as it is currently defined. */)
(name, readable)
Lisp_Object name, readable;
{
Lisp_Object table;
......@@ -507,10 +507,10 @@ define the abbrev table NAME exactly as it is currently defined. */
DEFUN ("define-abbrev-table", Fdefine_abbrev_table, Sdefine_abbrev_table,
2, 2, 0,
/* Define TABLENAME (a symbol) as an abbrev table name.
doc: /* Define TABLENAME (a symbol) as an abbrev table name.
Define abbrevs in it according to DEFINITIONS, which is a list of elements
of the form (ABBREVNAME EXPANSION HOOK USECOUNT). */
(tablename, definitions))
of the form (ABBREVNAME EXPANSION HOOK USECOUNT). */)
(tablename, definitions)
Lisp_Object tablename, definitions;
{
Lisp_Object name, exp, hook, count;
......@@ -541,64 +541,64 @@ of the form (ABBREVNAME EXPANSION HOOK USECOUNT). */
void
syms_of_abbrev ()
{
DEFVAR_LISP ("abbrev-table-name-list", &Vabbrev_table_name_list
/* List of symbols whose values are abbrev tables. */);
DEFVAR_LISP ("abbrev-table-name-list", &Vabbrev_table_name_list,
doc: /* List of symbols whose values are abbrev tables. */);
Vabbrev_table_name_list = Fcons (intern ("fundamental-mode-abbrev-table"),
Fcons (intern ("global-abbrev-table"),
Qnil));
DEFVAR_LISP ("global-abbrev-table", &Vglobal_abbrev_table
/* The abbrev table whose abbrevs affect all buffers.
DEFVAR_LISP ("global-abbrev-table", &Vglobal_abbrev_table,
doc: /* The abbrev table whose abbrevs affect all buffers.
Each buffer may also have a local abbrev table.
If it does, the local table overrides the global one
for any particular abbrev defined in both. */);
Vglobal_abbrev_table = Fmake_abbrev_table ();
DEFVAR_LISP ("fundamental-mode-abbrev-table", &Vfundamental_mode_abbrev_table
/* The abbrev table of mode-specific abbrevs for Fundamental Mode. */);
DEFVAR_LISP ("fundamental-mode-abbrev-table", &Vfundamental_mode_abbrev_table,
doc: /* The abbrev table of mode-specific abbrevs for Fundamental Mode. */);
Vfundamental_mode_abbrev_table = Fmake_abbrev_table ();
current_buffer->abbrev_table = Vfundamental_mode_abbrev_table;
buffer_defaults.abbrev_table = Vfundamental_mode_abbrev_table;
DEFVAR_LISP ("last-abbrev", &Vlast_abbrev
/* The abbrev-symbol of the last abbrev expanded. See `abbrev-symbol'. */);
DEFVAR_LISP ("last-abbrev", &Vlast_abbrev,
doc: /* The abbrev-symbol of the last abbrev expanded. See `abbrev-symbol'. */);
DEFVAR_LISP ("last-abbrev-text", &Vlast_abbrev_text
/* The exact text of the last abbrev expanded.
DEFVAR_LISP ("last-abbrev-text", &Vlast_abbrev_text,
doc: /* The exact text of the last abbrev expanded.
nil if the abbrev has already been unexpanded. */);
DEFVAR_INT ("last-abbrev-location", &last_abbrev_point
/* The location of the start of the last abbrev expanded. */);
DEFVAR_INT ("last-abbrev-location", &last_abbrev_point,
doc: /* The location of the start of the last abbrev expanded. */);
Vlast_abbrev = Qnil;
Vlast_abbrev_text = Qnil;
last_abbrev_point = 0;
DEFVAR_LISP ("abbrev-start-location", &Vabbrev_start_location
/* Buffer position for `expand-abbrev' to use as the start of the abbrev.
DEFVAR_LISP ("abbrev-start-location", &Vabbrev_start_location,
doc: /* Buffer position for `expand-abbrev' to use as the start of the abbrev.
nil means use the word before point as the abbrev.
Calling `expand-abbrev' sets this to nil. */);
Vabbrev_start_location = Qnil;
DEFVAR_LISP ("abbrev-start-location-buffer", &Vabbrev_start_location_buffer
/* Buffer that `abbrev-start-location' has been set for.
DEFVAR_LISP ("abbrev-start-location-buffer", &Vabbrev_start_location_buffer,
doc: /* Buffer that `abbrev-start-location' has been set for.
Trying to expand an abbrev in any other buffer clears `abbrev-start-location'. */);
Vabbrev_start_location_buffer = Qnil;
DEFVAR_PER_BUFFER ("local-abbrev-table", &current_buffer->abbrev_table, Qnil
/* Local (mode-specific) abbrev table of current buffer. */);
DEFVAR_PER_BUFFER ("local-abbrev-table", &current_buffer->abbrev_table, Qnil,
doc: /* Local (mode-specific) abbrev table of current buffer. */);
DEFVAR_BOOL ("abbrevs-changed", &abbrevs_changed
/* Set non-nil by defining or altering any word abbrevs.
DEFVAR_BOOL ("abbrevs-changed", &abbrevs_changed,
doc: /* Set non-nil by defining or altering any word abbrevs.
This causes `save-some-buffers' to offer to save the abbrevs. */);
abbrevs_changed = 0;
DEFVAR_BOOL ("abbrev-all-caps", &abbrev_all_caps
/* *Set non-nil means expand multi-word abbrevs all caps if abbrev was so. */);
DEFVAR_BOOL ("abbrev-all-caps", &abbrev_all_caps,
doc: /* *Set non-nil means expand multi-word abbrevs all caps if abbrev was so. */);
abbrev_all_caps = 0;
DEFVAR_LISP ("pre-abbrev-expand-hook", &Vpre_abbrev_expand_hook
/* Function or functions to be called before abbrev expansion is done.
DEFVAR_LISP ("pre-abbrev-expand-hook", &Vpre_abbrev_expand_hook,
doc: /* Function or functions to be called before abbrev expansion is done.
This is the first thing that `expand-abbrev' does, and so this may change
the current abbrev table before abbrev lookup happens. */);
Vpre_abbrev_expand_hook = Qnil;
......
......@@ -38,7 +38,6 @@ Boston, MA 02111-1307, USA. */
replaced, this file likely will not be used. */
#undef HIDE_LISP_IMPLEMENTATION
#define DOC_STRINGS_IN_COMMENTS
#include "lisp.h"
#include "process.h"
#include "intervals.h"
......@@ -1660,9 +1659,9 @@ compact_small_strings ()
DEFUN ("make-string", Fmake_string, Smake_string, 2, 2, 0,
/* Return a newly created string of length LENGTH, with each element being INIT.
Both LENGTH and INIT must be numbers. */
(length, init))
doc: /* Return a newly created string of length LENGTH, with each element being INIT.
Both LENGTH and INIT must be numbers. */)
(length, init)
Lisp_Object length, init;
{
register Lisp_Object val;
......@@ -1704,9 +1703,9 @@ Both LENGTH and INIT must be numbers. */
DEFUN ("make-bool-vector", Fmake_bool_vector, Smake_bool_vector, 2, 2, 0,
/* Return a new bool-vector of length LENGTH, using INIT for as each element.
LENGTH must be a number. INIT matters only in whether it is t or nil. */
(length, init))
doc: /* Return a new bool-vector of length LENGTH, using INIT for as each element.
LENGTH must be a number. INIT matters only in whether it is t or nil. */)
(length, init)
Lisp_Object length, init;
{
register Lisp_Object val;
......@@ -2058,8 +2057,8 @@ free_cons (ptr)
DEFUN ("cons", Fcons, Scons, 2, 2, 0,
/* Create a new cons, give it CAR and CDR as components, and return it. */
(car, cdr))
doc: /* Create a new cons, give it CAR and CDR as components, and return it. */)
(car, cdr)
Lisp_Object car, cdr;
{
register Lisp_Object val;
......@@ -2131,9 +2130,9 @@ list5 (arg1, arg2, arg3, arg4, arg5)
DEFUN ("list", Flist, Slist, 0, MANY, 0,
/* Return a newly created list with specified arguments as elements.
Any number of arguments, even zero arguments, are allowed. */
(nargs, args))
doc: /* Return a newly created list with specified arguments as elements.
Any number of arguments, even zero arguments, are allowed. */)
(nargs, args)
int nargs;
register Lisp_Object *args;
{
......@@ -2150,8 +2149,8 @@ Any number of arguments, even zero arguments, are allowed. */
DEFUN ("make-list", Fmake_list, Smake_list, 2, 2, 0,
/* Return a newly created list of length LENGTH, with each element being INIT. */
(length, init))
doc: /* Return a newly created list of length LENGTH, with each element being INIT. */)
(length, init)
register Lisp_Object length, init;
{
register Lisp_Object val;
......@@ -2337,9 +2336,9 @@ allocate_other_vector (len)
DEFUN ("make-vector", Fmake_vector, Smake_vector, 2, 2, 0,
/* Return a newly created vector of length LENGTH, with each element being INIT.
See also the function `vector'. */
(length, init))
doc: /* Return a newly created vector of length LENGTH, with each element being INIT.
See also the function `vector'. */)
(length, init)
register Lisp_Object length, init;
{
Lisp_Object vector;
......@@ -2360,11 +2359,11 @@ See also the function `vector'. */
DEFUN ("make-char-table", Fmake_char_table, Smake_char_table, 1, 2, 0,
/* Return a newly created char-table, with purpose PURPOSE.
doc: /* Return a newly created char-table, with purpose PURPOSE.
Each element is initialized to INIT, which defaults to nil.
PURPOSE should be a symbol which has a `char-table-extra-slots' property.
The property's value should be an integer between 0 and 10. */
(purpose, init))
The property's value should be an integer between 0 and 10. */)
(purpose, init)
register Lisp_Object purpose, init;
{
Lisp_Object vector;
......@@ -2403,9 +2402,9 @@ make_sub_char_table (defalt)
DEFUN ("vector", Fvector, Svector, 0, MANY, 0,
/* Return a newly created vector with specified arguments as elements.
Any number of arguments, even zero arguments, are allowed. */
(nargs, args))
doc: /* Return a newly created vector with specified arguments as elements.
Any number of arguments, even zero arguments, are allowed. */)
(nargs, args)
register int nargs;
Lisp_Object *args;
{
......@@ -2423,12 +2422,12 @@ Any number of arguments, even zero arguments, are allowed. */
DEFUN ("make-byte-code", Fmake_byte_code, Smake_byte_code, 4, MANY, 0,
/* Create a byte-code object with specified arguments as elements.
doc: /* Create a byte-code object with specified arguments as elements.
The arguments should be the arglist, bytecode-string, constant vector,
stack size, (optional) doc string, and (optional) interactive spec.
The first four arguments are required; at most six have any
significance. */
(nargs, args))
significance. */)
(nargs, args)
register int nargs;
Lisp_Object *args;
{
......@@ -2511,9 +2510,9 @@ init_symbol ()
DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0,
/* Return a newly allocated uninterned symbol whose name is NAME.
Its value and function definition are void, and its property list is nil. */
(name))
doc: /* Return a newly allocated uninterned symbol whose name is NAME.
Its value and function definition are void, and its property list is nil. */)
(name)
Lisp_Object name;
{
register Lisp_Object val;
......@@ -2629,8 +2628,8 @@ allocate_misc ()
}
DEFUN ("make-marker", Fmake_marker, Smake_marker, 0, 0, 0,
/* Return a newly allocated marker which does not point at any place. */
())
doc: /* Return a newly allocated marker which does not point at any place. */)
()
{
register Lisp_Object val;
register struct Lisp_Marker *p;
......@@ -3300,8 +3299,8 @@ static int max_live, max_zombies;
static double avg_live;
DEFUN ("gc-status", Fgc_status, Sgc_status, 0, 0, "",
/* Show information about live and zombie objects. */
())
doc: /* Show information about live and zombie objects. */)
()
{
Lisp_Object args[7];
args[0] = build_string ("%d GCs, avg live/zombies = %.2f/%.2f (%f%%), max %d/%d");
......@@ -3540,7 +3539,7 @@ mark_memory (start, end)
only a pointer to them remains. Example:
DEFUN ("testme", Ftestme, Stestme, 0, 0, 0, "")
()
()
{
Lisp_Object obj = build_string ("test");
struct Lisp_String *s = XSTRING (obj);
......@@ -3919,10 +3918,10 @@ make_pure_vector (len)
DEFUN ("purecopy", Fpurecopy, Spurecopy, 1, 1, 0,
/* Make a copy of OBJECT in pure storage.
doc: /* Make a copy of OBJECT in pure storage.
Recursively copies contents of vectors and cons cells.
Does not copy symbols. Copies strings without text properties. */
(obj))
Does not copy symbols. Copies strings without text properties. */)
(obj)
register Lisp_Object obj;
{
if (NILP (Vpurify_flag))
......@@ -4016,15 +4015,15 @@ inhibit_garbage_collection ()
DEFUN ("garbage-collect", Fgarbage_collect, Sgarbage_collect, 0, 0, "",
/* Reclaim storage for Lisp objects no longer needed.
doc: /* Reclaim storage for Lisp objects no longer needed.
Returns info on amount of space in use:
((USED-CONSES . FREE-CONSES) (USED-SYMS . FREE-SYMS)
(USED-MARKERS . FREE-MARKERS) USED-STRING-CHARS USED-VECTOR-SLOTS
(USED-FLOATS . FREE-FLOATS) (USED-INTERVALS . FREE-INTERVALS)
(USED-STRINGS . FREE-STRINGS))
Garbage collection happens automatically if you cons more than
`gc-cons-threshold' bytes of Lisp data since previous garbage collection. */
())
`gc-cons-threshold' bytes of Lisp data since previous garbage collection. */)
()
{
register struct gcpro *tail;
register struct specbinding *bind;
......@@ -5321,10 +5320,10 @@ gc_sweep ()
/* Debugging aids. */
DEFUN ("memory-limit", Fmemory_limit, Smemory_limit, 0, 0, 0,
/* Return the address of the last byte Emacs has allocated, divided by 1024.
doc: /* Return the address of the last byte Emacs has allocated, divided by 1024.
This may be helpful in debugging Emacs's memory usage.
We divide the value by 1024 to make sure it fits in a Lisp integer. */
())
We divide the value by 1024 to make sure it fits in a Lisp integer. */)
()
{
Lisp_Object end;
......@@ -5334,7 +5333,7 @@ We divide the value by 1024 to make sure it fits in a Lisp integer. */
}
DEFUN ("memory-use-counts", Fmemory_use_counts, Smemory_use_counts, 0, 0, 0,
/* Return a list of counters that measure how much consing there has been.
doc: /* Return a list of counters that measure how much consing there has been.
Each of these counters increments for a certain kind of object.
The counters wrap around from the largest positive integer to zero.
Garbage collection does not decrease them.
......@@ -5345,8 +5344,8 @@ except for VECTOR-CELLS and STRING-CHARS, which count the total length of
objects consed.
MISCS include overlays, markers, and some internal types.
Frames, windows, buffers, and subprocesses count as vectors
(but the contents of a buffer's text do not count here). */
())
(but the contents of a buffer's text do not count here). */)
()
{
Lisp_Object consed[8];
......@@ -5439,8 +5438,8 @@ init_alloc ()
void
syms_of_alloc ()
{
DEFVAR_INT ("gc-cons-threshold", &gc_cons_threshold
/* *Number of bytes of consing between garbage collections.
DEFVAR_INT ("gc-cons-threshold", &gc_cons_threshold,
doc: /* *Number of bytes of consing between garbage collections.
Garbage collection can happen automatically once this many bytes have been
allocated since the last garbage collection. All data types count.
......@@ -5449,58 +5448,58 @@ Garbage collection happens automatically only when `eval' is called.
By binding this temporarily to a large number, you can effectively
prevent garbage collection during a part of the program. */);
DEFVAR_INT ("pure-bytes-used", &pure_bytes_used
/* Number of bytes of sharable Lisp data allocated so far. */);
DEFVAR_INT ("pure-bytes-used", &pure_bytes_used,
doc: /* Number of bytes of sharable Lisp data allocated so far. */);
DEFVAR_INT ("cons-cells-consed", &cons_cells_consed
/* Number of cons cells that have been consed so far. */);
DEFVAR_INT ("cons-cells-consed", &cons_cells_consed,
doc: /* Number of cons cells that have been consed so far. */);
DEFVAR_INT ("floats-consed", &floats_consed
/* Number of floats that have been consed so far. */);
DEFVAR_INT ("floats-consed", &floats_consed,
doc: /* Number of floats that have been consed so far. */);
DEFVAR_INT ("vector-cells-consed", &vector_cells_consed
/* Number of vector cells that have been consed so far. */);
DEFVAR_INT ("vector-cells-consed", &vector_cells_consed,
doc: /* Number of vector cells that have been consed so far. */);
DEFVAR_INT ("symbols-consed", &symbols_consed
/* Number of symbols that have been consed so far. */);
DEFVAR_INT ("symbols-consed", &symbols_consed,
doc: /* Number of symbols that have been consed so far. */);
DEFVAR_INT ("string-chars-consed", &string_chars_consed
/* Number of string characters that have been consed so far. */);
DEFVAR_INT ("string-chars-consed", &string_chars_consed,
doc: /* Number of string characters that have been consed so far. */);
DEFVAR_INT ("misc-objects-consed", &misc_objects_consed
/* Number of miscellaneous objects that have been consed so far. */);
DEFVAR_INT ("misc-objects-consed", &misc_objects_consed,
doc: /* Number of miscellaneous objects that have been consed so far. */);
DEFVAR_INT ("intervals-consed", &intervals_consed
/* Number of intervals that have been consed so far. */);
DEFVAR_INT ("intervals-consed", &intervals_consed,
doc: /* Number of intervals that have been consed so far. */);
DEFVAR_INT ("strings-consed", &strings_consed
/* Number of strings that have been consed so far. */);
DEFVAR_INT ("strings-consed", &strings_consed,
doc: /* Number of strings that have been consed so far. */);
DEFVAR_LISP ("purify-flag", &Vpurify_flag
/* Non-nil means loading Lisp code in order to dump an executable.
DEFVAR_LISP ("purify-flag", &Vpurify_flag,
doc: /* Non-nil means loading Lisp code in order to dump an executable.
This means that certain objects should be allocated in shared (pure) space. */);
DEFVAR_INT ("undo-limit", &undo_limit
/* Keep no more undo information once it exceeds this size.
DEFVAR_INT ("undo-limit", &undo_limit,
doc: /* Keep no more undo information once it exceeds this size.
This limit is applied when garbage collection happens.
The size is counted as the number of bytes occupied,
which includes both saved text and other data. */);
undo_limit = 20000;
DEFVAR_INT ("undo-strong-limit", &undo_strong_limit
/* Don't keep more than this much size of undo information.
DEFVAR_INT ("undo-strong-limit", &undo_strong_limit,
doc: /* Don't keep more than this much size of undo information.
A command which pushes past this size is itself forgotten.
This limit is applied when garbage collection happens.
The size is counted as the number of bytes occupied,
which includes both saved text and other data. */);
undo_strong_limit = 30000;
DEFVAR_BOOL ("garbage-collection-messages", &garbage_collection_messages
/* Non-nil means display messages at start and end of garbage collection. */);
DEFVAR_BOOL ("garbage-collection-messages", &garbage_collection_messages,
doc: /* Non-nil means display messages at start and end of garbage collection. */);
garbage_collection_messages = 0;
DEFVAR_LISP ("post-gc-hook", &Vpost_gc_hook
/* Hook run after garbage collection has finished. */);
DEFVAR_LISP ("post-gc-hook", &Vpost_gc_hook,
doc: /* Hook run after garbage collection has finished. */);
Vpost_gc_hook = Qnil;
Qpost_gc_hook = intern ("post-gc-hook");
staticpro (&Qpost_gc_hook);
......
This diff is collapsed.
......@@ -19,8 +19,6 @@ along with GNU Emacs; see the file COPYING. If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
#define DOC_STRINGS_IN_COMMENTS
#include <config.h>
#include <signal.h>
#include <stdio.h>
......@@ -412,8 +410,8 @@ add_frame_display_history (f, paused_p)
DEFUN ("dump-redisplay-history", Fdump_redisplay_history,
Sdump_redisplay_history, 0, 0, "",
/* Dump redisplay history to stderr. */
())
doc: /* Dump redisplay history to stderr. */)
()
{
int i;
......@@ -3307,8 +3305,8 @@ window_to_frame_hpos (w, hpos)
**********************************************************************/
DEFUN ("redraw-frame", Fredraw_frame, Sredraw_frame, 1, 1, 0,
/* Clear frame FRAME and output again what is supposed to appear on it. */
(frame))
doc: /* Clear frame FRAME and output again what is supposed to appear on it. */)
(frame)
Lisp_Object frame;
{
struct frame *f;
......@@ -3353,8 +3351,8 @@ redraw_frame (f)
DEFUN ("redraw-display", Fredraw_display, Sredraw_display, 0, 0, "",
/* Clear and redisplay all visible frames. */
())
doc: /* Clear and redisplay all visible frames. */)
()
{
Lisp_Object tail, frame;
......@@ -6043,9 +6041,9 @@ change_frame_size_1 (f, newheight, newwidth, pretend, delay, safe)
DEFUN ("open-termscript", Fopen_termscript, Sopen_termscript,
1, 1, "FOpen termscript file: ",
/* Start writing all terminal output to FILE as well as the terminal.
FILE = nil means just close any termscript file currently open. */
(file))
doc: /* Start writing all terminal output to FILE as well as the terminal.
FILE = nil means just close any termscript file currently open. */)
(file)
Lisp_Object file;
{
if (termscript != 0) fclose (termscript);
......@@ -6064,9 +6062,9 @@ FILE = nil means just close any termscript file currently open. */
DEFUN ("send-string-to-terminal", Fsend_string_to_terminal,
Ssend_string_to_terminal, 1, 1, 0,
/* Send STRING to the terminal without alteration.
Control characters in STRING will have terminal-dependent effects. */
(string))
doc: /* Send STRING to the terminal without alteration.
Control characters in STRING will have terminal-dependent effects. */)
(string)
Lisp_Object string;
{
/* ??? Perhaps we should do something special for multibyte strings here. */
......@@ -6084,10 +6082,10 @@ Control characters in STRING will have terminal-dependent effects. */
DEFUN ("ding", Fding, Sding, 0, 1, 0,