mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-05 19:31:02 -08:00
Comment fixes.
This commit is contained in:
parent
34035df326
commit
8e6208c5d2
41 changed files with 66 additions and 66 deletions
|
|
@ -150,7 +150,7 @@ button_value (event)
|
||||||
* Variables to store the time of the previous mouse event that was
|
* Variables to store the time of the previous mouse event that was
|
||||||
* sent to emacs.
|
* sent to emacs.
|
||||||
*
|
*
|
||||||
* The theory is that to time double clicks while ignoreing UP buttons,
|
* The theory is that to time double clicks while ignoring UP buttons,
|
||||||
* we must keep track of the accumulated time.
|
* we must keep track of the accumulated time.
|
||||||
*
|
*
|
||||||
* If someone writes a SUN-SET-INPUT-MASK for emacstool,
|
* If someone writes a SUN-SET-INPUT-MASK for emacstool,
|
||||||
|
|
@ -376,7 +376,7 @@ int interpose_on_window(argc,argv)
|
||||||
char **argv;
|
char **argv;
|
||||||
{
|
{
|
||||||
#ifndef TTERM
|
#ifndef TTERM
|
||||||
int i, font_width_adjust = 1; /* hackery, and hueristics */
|
int i, font_width_adjust = 1; /* hackery, and heuristics */
|
||||||
/* if -Wt is not supplied, then font comes out as lucida-14 (width=8)
|
/* if -Wt is not supplied, then font comes out as lucida-14 (width=8)
|
||||||
* rather than the screen.r.12 (width=7) typically used
|
* rather than the screen.r.12 (width=7) typically used
|
||||||
* this hack attempts to workaround it.
|
* this hack attempts to workaround it.
|
||||||
|
|
|
||||||
|
|
@ -167,7 +167,7 @@ main (argc, argv)
|
||||||
if (access (outname, F_OK) == 0 && access (outname, W_OK) != 0)
|
if (access (outname, F_OK) == 0 && access (outname, W_OK) != 0)
|
||||||
pfatal_with_name (outname);
|
pfatal_with_name (outname);
|
||||||
|
|
||||||
/* Also check that outname's directory is writeable to the real uid. */
|
/* Also check that outname's directory is writable to the real uid. */
|
||||||
{
|
{
|
||||||
char *buf = (char *) xmalloc (strlen (outname) + 1);
|
char *buf = (char *) xmalloc (strlen (outname) + 1);
|
||||||
char *p;
|
char *p;
|
||||||
|
|
|
||||||
|
|
@ -906,7 +906,7 @@ pop_reset (server)
|
||||||
* Return value: 0 for success, non-zero otherwise with error in
|
* Return value: 0 for success, non-zero otherwise with error in
|
||||||
* pop_error.
|
* pop_error.
|
||||||
*
|
*
|
||||||
* Side Effects: The popserver passed in is unuseable after this
|
* Side Effects: The popserver passed in is unusable after this
|
||||||
* function is called, even if an error occurs.
|
* function is called, even if an error occurs.
|
||||||
*/
|
*/
|
||||||
int
|
int
|
||||||
|
|
@ -1368,7 +1368,7 @@ fullwrite (fd, buf, nbytes)
|
||||||
*
|
*
|
||||||
* Returns: 0 for success, else for failure and puts error in pop_error.
|
* Returns: 0 for success, else for failure and puts error in pop_error.
|
||||||
*
|
*
|
||||||
* Side effects: On failure, may make the connection unuseable.
|
* Side effects: On failure, may make the connection unusable.
|
||||||
*/
|
*/
|
||||||
static int
|
static int
|
||||||
getok (server)
|
getok (server)
|
||||||
|
|
@ -1439,7 +1439,7 @@ gettermination (server)
|
||||||
* try to get the server to quit, but ignoring any responses that
|
* try to get the server to quit, but ignoring any responses that
|
||||||
* are received.
|
* are received.
|
||||||
*
|
*
|
||||||
* Side effects: The server is unuseable after this function returns.
|
* Side effects: The server is unusable after this function returns.
|
||||||
* Changes made to the maildrop since the session was started (or
|
* Changes made to the maildrop since the session was started (or
|
||||||
* since the last pop_reset) may be lost.
|
* since the last pop_reset) may be lost.
|
||||||
*/
|
*/
|
||||||
|
|
|
||||||
|
|
@ -232,7 +232,7 @@ STARTFILES = START_FILES
|
||||||
which will be in a file named localcpp. */
|
which will be in a file named localcpp. */
|
||||||
MYCPPFLAG= -Blocal
|
MYCPPFLAG= -Blocal
|
||||||
/* LOCALCPP is the local one or nothing.
|
/* LOCALCPP is the local one or nothing.
|
||||||
CPP is the local one or the standardone. */
|
CPP is the local one or the standard one. */
|
||||||
LOCALCPP= localcpp
|
LOCALCPP= localcpp
|
||||||
#endif /* ! defined (LONGNAMEBBBARFOOX) */
|
#endif /* ! defined (LONGNAMEBBBARFOOX) */
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -151,7 +151,7 @@ Lisp_Object memory_signal_data;
|
||||||
/* Define DONT_COPY_FLAG to be some bit which will always be zero in a
|
/* Define DONT_COPY_FLAG to be some bit which will always be zero in a
|
||||||
pointer to a Lisp_Object, when that pointer is viewed as an integer.
|
pointer to a Lisp_Object, when that pointer is viewed as an integer.
|
||||||
(On most machines, pointers are even, so we can use the low bit.
|
(On most machines, pointers are even, so we can use the low bit.
|
||||||
Word-addressible architectures may need to override this in the m-file.)
|
Word-addressable architectures may need to override this in the m-file.)
|
||||||
When linking references to small strings through the size field, we
|
When linking references to small strings through the size field, we
|
||||||
use this slot to hold the bit that would otherwise be interpreted as
|
use this slot to hold the bit that would otherwise be interpreted as
|
||||||
the GC mark bit. */
|
the GC mark bit. */
|
||||||
|
|
@ -2157,7 +2157,7 @@ gc_sweep ()
|
||||||
|
|
||||||
#ifndef standalone
|
#ifndef standalone
|
||||||
/* Put all unmarked markers on free list.
|
/* Put all unmarked markers on free list.
|
||||||
Dechain each one first from the buffer it points into,
|
Unchain each one first from the buffer it points into,
|
||||||
but only if it's a real marker. */
|
but only if it's a real marker. */
|
||||||
{
|
{
|
||||||
register struct marker_block *mblk;
|
register struct marker_block *mblk;
|
||||||
|
|
|
||||||
|
|
@ -509,7 +509,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
|
||||||
{
|
{
|
||||||
/* Repeatedly read until we've filled as much as possible
|
/* Repeatedly read until we've filled as much as possible
|
||||||
of the buffer size we have. But don't read
|
of the buffer size we have. But don't read
|
||||||
less than 1024--save that for the next bufferfull. */
|
less than 1024--save that for the next bufferful. */
|
||||||
|
|
||||||
nread = 0;
|
nread = 0;
|
||||||
while (nread < bufsize - 1024)
|
while (nread < bufsize - 1024)
|
||||||
|
|
|
||||||
|
|
@ -862,7 +862,7 @@ swap_in_symval_forwarding (sym, valcontents)
|
||||||
|
|
||||||
/* Find the value of a symbol, returning Qunbound if it's not bound.
|
/* Find the value of a symbol, returning Qunbound if it's not bound.
|
||||||
This is helpful for code which just wants to get a variable's value
|
This is helpful for code which just wants to get a variable's value
|
||||||
if it has one, without signalling an error.
|
if it has one, without signaling an error.
|
||||||
Note that it must not be possible to quit
|
Note that it must not be possible to quit
|
||||||
within this function. Great care is required for this. */
|
within this function. Great care is required for this. */
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -152,7 +152,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
|
||||||
CHECK_STRING (match, 3);
|
CHECK_STRING (match, 3);
|
||||||
|
|
||||||
/* MATCH might be a flawed regular expression. Rather than
|
/* MATCH might be a flawed regular expression. Rather than
|
||||||
catching and signalling our own errors, we just call
|
catching and signaling our own errors, we just call
|
||||||
compile_pattern to do the work for us. */
|
compile_pattern to do the work for us. */
|
||||||
#ifdef VMS
|
#ifdef VMS
|
||||||
bufp = compile_pattern (match, 0,
|
bufp = compile_pattern (match, 0,
|
||||||
|
|
@ -166,7 +166,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
|
||||||
which might compile a new regexp until we're done with the loop! */
|
which might compile a new regexp until we're done with the loop! */
|
||||||
|
|
||||||
/* Do this opendir after anything which might signal an error; if
|
/* Do this opendir after anything which might signal an error; if
|
||||||
an error is signalled while the directory stream is open, we
|
an error is signaled while the directory stream is open, we
|
||||||
have to make sure it gets closed, and setting up an
|
have to make sure it gets closed, and setting up an
|
||||||
unwind_protect to do so would be a pain. */
|
unwind_protect to do so would be a pain. */
|
||||||
d = opendir (XSTRING (dirfilename)->data);
|
d = opendir (XSTRING (dirfilename)->data);
|
||||||
|
|
|
||||||
|
|
@ -2936,7 +2936,7 @@ and (2) it puts less data in the undo list.")
|
||||||
&& FETCH_CHAR (same_at_start) == buffer[bufpos])
|
&& FETCH_CHAR (same_at_start) == buffer[bufpos])
|
||||||
same_at_start++, bufpos++;
|
same_at_start++, bufpos++;
|
||||||
/* If we found a discrepancy, stop the scan.
|
/* If we found a discrepancy, stop the scan.
|
||||||
Otherwise loop around and scan the next bufferfull. */
|
Otherwise loop around and scan the next bufferful. */
|
||||||
if (bufpos != nread)
|
if (bufpos != nread)
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
@ -2979,7 +2979,7 @@ and (2) it puts less data in the undo list.")
|
||||||
XSTRING (filename)->data, strerror (errno));
|
XSTRING (filename)->data, strerror (errno));
|
||||||
total_read += nread;
|
total_read += nread;
|
||||||
}
|
}
|
||||||
/* Scan this bufferfull from the end, comparing with
|
/* Scan this bufferful from the end, comparing with
|
||||||
the Emacs buffer. */
|
the Emacs buffer. */
|
||||||
bufpos = total_read;
|
bufpos = total_read;
|
||||||
/* Compare with same_at_start to avoid counting some buffer text
|
/* Compare with same_at_start to avoid counting some buffer text
|
||||||
|
|
@ -2988,7 +2988,7 @@ and (2) it puts less data in the undo list.")
|
||||||
&& FETCH_CHAR (same_at_end - 1) == buffer[bufpos - 1])
|
&& FETCH_CHAR (same_at_end - 1) == buffer[bufpos - 1])
|
||||||
same_at_end--, bufpos--;
|
same_at_end--, bufpos--;
|
||||||
/* If we found a discrepancy, stop the scan.
|
/* If we found a discrepancy, stop the scan.
|
||||||
Otherwise loop around and scan the preceding bufferfull. */
|
Otherwise loop around and scan the preceding bufferful. */
|
||||||
if (bufpos != 0)
|
if (bufpos != 0)
|
||||||
break;
|
break;
|
||||||
/* If display current starts at beginning of line,
|
/* If display current starts at beginning of line,
|
||||||
|
|
|
||||||
|
|
@ -37,7 +37,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
(What systems actually do this? Please let us know.)
|
(What systems actually do this? Please let us know.)
|
||||||
|
|
||||||
Define FLOAT_CHECK_DOMAIN if the float library doesn't handle errors by
|
Define FLOAT_CHECK_DOMAIN if the float library doesn't handle errors by
|
||||||
either setting errno, or signalling SIGFPE/SIGILL. Otherwise, domain and
|
either setting errno, or signaling SIGFPE/SIGILL. Otherwise, domain and
|
||||||
range checking will happen before calling the float routines. This has
|
range checking will happen before calling the float routines. This has
|
||||||
no effect if HAVE_MATHERR is defined (since matherr will be called when
|
no effect if HAVE_MATHERR is defined (since matherr will be called when
|
||||||
a domain error occurs.)
|
a domain error occurs.)
|
||||||
|
|
|
||||||
|
|
@ -271,7 +271,7 @@ adjust_markers_for_insert (pos, amount)
|
||||||
a conceptual change in point as a marker. In particular, point is
|
a conceptual change in point as a marker. In particular, point is
|
||||||
not crossing any interval boundaries, so there's no need to use the
|
not crossing any interval boundaries, so there's no need to use the
|
||||||
usual SET_PT macro. In fact it would be incorrect to do so, because
|
usual SET_PT macro. In fact it would be incorrect to do so, because
|
||||||
either the old or the new value of point is out of synch with the
|
either the old or the new value of point is out of sync with the
|
||||||
current set of intervals. */
|
current set of intervals. */
|
||||||
static void
|
static void
|
||||||
adjust_point (amount)
|
adjust_point (amount)
|
||||||
|
|
|
||||||
|
|
@ -680,7 +680,7 @@ previous_interval (interval)
|
||||||
Modifications are needed to handle the hungry bits -- after simply
|
Modifications are needed to handle the hungry bits -- after simply
|
||||||
finding the interval at position (don't add length going down),
|
finding the interval at position (don't add length going down),
|
||||||
if it's the beginning of the interval, get the previous interval
|
if it's the beginning of the interval, get the previous interval
|
||||||
and check the hugry bits of both. Then add the length going back up
|
and check the hungry bits of both. Then add the length going back up
|
||||||
to the root. */
|
to the root. */
|
||||||
|
|
||||||
static INTERVAL
|
static INTERVAL
|
||||||
|
|
@ -793,7 +793,7 @@ adjust_intervals_for_insertion (tree, position, length)
|
||||||
|
|
||||||
/* Even if we are positioned between intervals, we default
|
/* Even if we are positioned between intervals, we default
|
||||||
to the left one if it exists. We extend it now and split
|
to the left one if it exists. We extend it now and split
|
||||||
off a part later, if stickyness demands it. */
|
off a part later, if stickiness demands it. */
|
||||||
for (temp = prev ? prev : i;! NULL_INTERVAL_P (temp); temp = temp->parent)
|
for (temp = prev ? prev : i;! NULL_INTERVAL_P (temp); temp = temp->parent)
|
||||||
{
|
{
|
||||||
temp->total_length += length;
|
temp->total_length += length;
|
||||||
|
|
@ -801,7 +801,7 @@ adjust_intervals_for_insertion (tree, position, length)
|
||||||
}
|
}
|
||||||
|
|
||||||
/* If at least one interval has sticky properties,
|
/* If at least one interval has sticky properties,
|
||||||
we check the stickyness property by property. */
|
we check the stickiness property by property. */
|
||||||
if (END_NONSTICKY_P (prev) || FRONT_STICKY_P (i))
|
if (END_NONSTICKY_P (prev) || FRONT_STICKY_P (i))
|
||||||
{
|
{
|
||||||
Lisp_Object pleft, pright;
|
Lisp_Object pleft, pright;
|
||||||
|
|
@ -1516,7 +1516,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit)
|
||||||
/* The inserted text "sticks" to the interval `under',
|
/* The inserted text "sticks" to the interval `under',
|
||||||
which means it gets those properties.
|
which means it gets those properties.
|
||||||
The properties of under are the result of
|
The properties of under are the result of
|
||||||
adjust_intervals_for_insertion, so stickyness has
|
adjust_intervals_for_insertion, so stickiness has
|
||||||
already been taken care of. */
|
already been taken care of. */
|
||||||
|
|
||||||
while (! NULL_INTERVAL_P (over))
|
while (! NULL_INTERVAL_P (over))
|
||||||
|
|
|
||||||
|
|
@ -7138,7 +7138,7 @@ init_kboard (kb)
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Destroy the contents of a kboard object, but not the object itself.
|
* Destroy the contents of a kboard object, but not the object itself.
|
||||||
* We use this just before deleteing it, or if we're going to initialize
|
* We use this just before deleting it, or if we're going to initialize
|
||||||
* it a second time.
|
* it a second time.
|
||||||
*/
|
*/
|
||||||
static void
|
static void
|
||||||
|
|
|
||||||
|
|
@ -264,7 +264,7 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii)
|
||||||
goto retry;
|
goto retry;
|
||||||
|
|
||||||
/* switch-frame events are put off until after the next ASCII
|
/* switch-frame events are put off until after the next ASCII
|
||||||
character. This is better than signalling an error just because
|
character. This is better than signaling an error just because
|
||||||
the last characters were typed to a separate minibuffer frame,
|
the last characters were typed to a separate minibuffer frame,
|
||||||
for example. Eventually, some code which can deal with
|
for example. Eventually, some code which can deal with
|
||||||
switch-frame events will read it and process it. */
|
switch-frame events will read it and process it. */
|
||||||
|
|
@ -2297,7 +2297,7 @@ init_lread ()
|
||||||
#ifndef WINDOWSNT
|
#ifndef WINDOWSNT
|
||||||
/* When Emacs is invoked over network shares on NT, PATH_LOADSEARCH is
|
/* When Emacs is invoked over network shares on NT, PATH_LOADSEARCH is
|
||||||
almost never correct, thereby causing a warning to be printed out that
|
almost never correct, thereby causing a warning to be printed out that
|
||||||
confuses users. Since PATH_LOADSEARCH is always overriden by the
|
confuses users. Since PATH_LOADSEARCH is always overridden by the
|
||||||
EMACSLOADPATH environment variable below, disable the warning on NT. */
|
EMACSLOADPATH environment variable below, disable the warning on NT. */
|
||||||
|
|
||||||
/* Warn if dirs in the *standard* path don't exist. */
|
/* Warn if dirs in the *standard* path don't exist. */
|
||||||
|
|
|
||||||
|
|
@ -86,7 +86,7 @@ NOTE-END */
|
||||||
also solve the problem, but I doubt you can convince everyone to do this. */
|
also solve the problem, but I doubt you can convince everyone to do this. */
|
||||||
/* Addendum: the MIT X11 distribution neglects to define certain symbols
|
/* Addendum: the MIT X11 distribution neglects to define certain symbols
|
||||||
when NeedFunctionPrototypes is 0, but still tries to use them when
|
when NeedFunctionPrototypes is 0, but still tries to use them when
|
||||||
NeedVarargsProrotypes is 1 (which is its default value). So if we're
|
NeedVarargsPrototypes is 1 (which is its default value). So if we're
|
||||||
going to disable non-variadic prototypes, we also need to disable
|
going to disable non-variadic prototypes, we also need to disable
|
||||||
variadic prototypes. --kwzh@gnu.ai.mit.edu */
|
variadic prototypes. --kwzh@gnu.ai.mit.edu */
|
||||||
#define C_SWITCH_X_MACHINE -DNeedFunctionPrototypes=0 -DNeedVarargsPrototypes=0
|
#define C_SWITCH_X_MACHINE -DNeedFunctionPrototypes=0 -DNeedVarargsPrototypes=0
|
||||||
|
|
|
||||||
|
|
@ -113,7 +113,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
/* #define C_OPTIMIZE_SWITCH -O2 */
|
/* #define C_OPTIMIZE_SWITCH -O2 */
|
||||||
|
|
||||||
/* emacs's magic number isn't temacs's;
|
/* emacs's magic number isn't temacs's;
|
||||||
temacs is writeable text (the default!). */
|
temacs is writable text (the default!). */
|
||||||
|
|
||||||
#include <asld.h>
|
#include <asld.h>
|
||||||
#define EXEC_MAGIC AOUT1MAGIC
|
#define EXEC_MAGIC AOUT1MAGIC
|
||||||
|
|
|
||||||
|
|
@ -83,7 +83,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
Otherwise Emacs assumes that text space precedes data space,
|
Otherwise Emacs assumes that text space precedes data space,
|
||||||
numerically. */
|
numerically. */
|
||||||
|
|
||||||
/* Text does preceed data space, but this is never a safe assumption. */
|
/* Text does precede data space, but this is never a safe assumption. */
|
||||||
#define VIRT_ADDR_VARIES
|
#define VIRT_ADDR_VARIES
|
||||||
|
|
||||||
/* Define C_ALLOCA if this machine does not support a true alloca
|
/* Define C_ALLOCA if this machine does not support a true alloca
|
||||||
|
|
|
||||||
|
|
@ -1785,7 +1785,7 @@ XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
|
||||||
result = XM_IA_SELECT;
|
result = XM_IA_SELECT;
|
||||||
*pane = state[i].pane - 1;
|
*pane = state[i].pane - 1;
|
||||||
*selidx = dy;
|
*selidx = dy;
|
||||||
/* We hit some part of a menu, so drop extra menues that
|
/* We hit some part of a menu, so drop extra menus that
|
||||||
have been opened. That does not include an open and
|
have been opened. That does not include an open and
|
||||||
active submenu. */
|
active submenu. */
|
||||||
if (i != statecount - 2
|
if (i != statecount - 2
|
||||||
|
|
@ -2518,7 +2518,7 @@ sys_select (nfds, rfds, wfds, efds, timeout)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Define overlayed functions:
|
* Define overlaid functions:
|
||||||
*
|
*
|
||||||
* chdir -> sys_chdir
|
* chdir -> sys_chdir
|
||||||
* tzset -> init_gettimeofday
|
* tzset -> init_gettimeofday
|
||||||
|
|
|
||||||
|
|
@ -708,7 +708,7 @@ print_error_message (data, stream)
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* The buffer should be at least as large as the max string size of the
|
* The buffer should be at least as large as the max string size of the
|
||||||
* largest float, printed in the biggest notation. This is undoubtably
|
* largest float, printed in the biggest notation. This is undoubtedly
|
||||||
* 20d float_output_format, with the negative of the C-constant "HUGE"
|
* 20d float_output_format, with the negative of the C-constant "HUGE"
|
||||||
* from <math.h>.
|
* from <math.h>.
|
||||||
*
|
*
|
||||||
|
|
|
||||||
|
|
@ -1141,7 +1141,7 @@ Remaining arguments are strings to give program as arguments.")
|
||||||
}
|
}
|
||||||
|
|
||||||
/* This function is the unwind_protect form for Fstart_process. If
|
/* This function is the unwind_protect form for Fstart_process. If
|
||||||
PROC doesn't have its pid set, then we know someone has signalled
|
PROC doesn't have its pid set, then we know someone has signaled
|
||||||
an error and the process wasn't started successfully, so we should
|
an error and the process wasn't started successfully, so we should
|
||||||
remove it from the process list. */
|
remove it from the process list. */
|
||||||
static Lisp_Object
|
static Lisp_Object
|
||||||
|
|
|
||||||
|
|
@ -87,7 +87,7 @@ extern Lisp_Object Vprocess_alist;
|
||||||
are waiting for it. */
|
are waiting for it. */
|
||||||
extern int synch_process_alive;
|
extern int synch_process_alive;
|
||||||
|
|
||||||
/* Communicate exit status of synch process to from sigchld_handler
|
/* Communicate exit status of sync process to from sigchld_handler
|
||||||
to Fcall_process. */
|
to Fcall_process. */
|
||||||
extern int synch_process_retcode;
|
extern int synch_process_retcode;
|
||||||
extern char *synch_process_death;
|
extern char *synch_process_death;
|
||||||
|
|
|
||||||
16
src/ralloc.c
16
src/ralloc.c
|
|
@ -131,7 +131,7 @@ static int extra_bytes;
|
||||||
but they never move.
|
but they never move.
|
||||||
|
|
||||||
We try to make just one heap and make it larger as necessary.
|
We try to make just one heap and make it larger as necessary.
|
||||||
But sometimes we can't do that, because we can't get continguous
|
But sometimes we can't do that, because we can't get contiguous
|
||||||
space to add onto the heap. When that happens, we start a new heap. */
|
space to add onto the heap. When that happens, we start a new heap. */
|
||||||
|
|
||||||
typedef struct heap
|
typedef struct heap
|
||||||
|
|
@ -171,7 +171,7 @@ static heap_ptr first_heap, last_heap;
|
||||||
An element with variable==NIL denotes a freed block, which has not yet
|
An element with variable==NIL denotes a freed block, which has not yet
|
||||||
been collected. They may only appear while r_alloc_freeze > 0, and will be
|
been collected. They may only appear while r_alloc_freeze > 0, and will be
|
||||||
freed when the arena is thawed. Currently, these blocs are not reusable,
|
freed when the arena is thawed. Currently, these blocs are not reusable,
|
||||||
while the arena is frozen. Very inefficent. */
|
while the arena is frozen. Very inefficient. */
|
||||||
|
|
||||||
typedef struct bp
|
typedef struct bp
|
||||||
{
|
{
|
||||||
|
|
@ -180,7 +180,7 @@ typedef struct bp
|
||||||
POINTER *variable;
|
POINTER *variable;
|
||||||
POINTER data;
|
POINTER data;
|
||||||
SIZE size;
|
SIZE size;
|
||||||
POINTER new_data; /* tmporarily used for relocation */
|
POINTER new_data; /* temporarily used for relocation */
|
||||||
struct heap *heap; /* Heap this bloc is in. */
|
struct heap *heap; /* Heap this bloc is in. */
|
||||||
} *bloc_ptr;
|
} *bloc_ptr;
|
||||||
|
|
||||||
|
|
@ -220,8 +220,8 @@ find_heap (address)
|
||||||
if we can get that many within one heap.
|
if we can get that many within one heap.
|
||||||
|
|
||||||
If enough space is not presently available in our reserve, this means
|
If enough space is not presently available in our reserve, this means
|
||||||
getting more page-aligned space from the system. If the retuned space
|
getting more page-aligned space from the system. If the returned space
|
||||||
is not contiguos to the last heap, allocate a new heap, and append it
|
is not contiguous to the last heap, allocate a new heap, and append it
|
||||||
|
|
||||||
obtain does not try to keep track of whether space is in use
|
obtain does not try to keep track of whether space is in use
|
||||||
or not in use. It just returns the address of SIZE bytes that
|
or not in use. It just returns the address of SIZE bytes that
|
||||||
|
|
@ -795,7 +795,7 @@ r_alloc_sbrk (size)
|
||||||
{
|
{
|
||||||
/* Allocate a page-aligned space. GNU malloc would reclaim an
|
/* Allocate a page-aligned space. GNU malloc would reclaim an
|
||||||
extra space if we passed an unaligned one. But we could
|
extra space if we passed an unaligned one. But we could
|
||||||
not always find a space which is contiguos to the previous. */
|
not always find a space which is contiguous to the previous. */
|
||||||
POINTER new_bloc_start;
|
POINTER new_bloc_start;
|
||||||
heap_ptr h = first_heap;
|
heap_ptr h = first_heap;
|
||||||
SIZE get = ROUNDUP (size);
|
SIZE get = ROUNDUP (size);
|
||||||
|
|
@ -978,7 +978,7 @@ r_alloc_free (ptr)
|
||||||
do nothing.
|
do nothing.
|
||||||
|
|
||||||
In case r_alloc_freeze is set, a new bloc is allocated, and the
|
In case r_alloc_freeze is set, a new bloc is allocated, and the
|
||||||
memory copied to it. Not very efficent. We could traverse the
|
memory copied to it. Not very efficient. We could traverse the
|
||||||
bloc_list for a best fit of free blocs first.
|
bloc_list for a best fit of free blocs first.
|
||||||
|
|
||||||
Change *PTR to reflect the new bloc, and return this value.
|
Change *PTR to reflect the new bloc, and return this value.
|
||||||
|
|
@ -1077,7 +1077,7 @@ r_alloc_thaw ()
|
||||||
if (--r_alloc_freeze_level < 0)
|
if (--r_alloc_freeze_level < 0)
|
||||||
abort ();
|
abort ();
|
||||||
|
|
||||||
/* This frees all unused blocs. It is not too inefficent, as the resize
|
/* This frees all unused blocs. It is not too inefficient, as the resize
|
||||||
and bcopy is done only once. Afterwards, all unreferenced blocs are
|
and bcopy is done only once. Afterwards, all unreferenced blocs are
|
||||||
already shrunk to zero size. */
|
already shrunk to zero size. */
|
||||||
if (!r_alloc_freeze_level)
|
if (!r_alloc_freeze_level)
|
||||||
|
|
|
||||||
|
|
@ -87,7 +87,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
INTERRUPT_INPUT to decide whether to use it by default.
|
INTERRUPT_INPUT to decide whether to use it by default.
|
||||||
|
|
||||||
SIGIO can be used only on systems that implement it (4.2 and 4.3).
|
SIGIO can be used only on systems that implement it (4.2 and 4.3).
|
||||||
CBREAK mode has two disadvatages
|
CBREAK mode has two disadvantages
|
||||||
1) At least in 4.2, it is impossible to handle the Meta key properly.
|
1) At least in 4.2, it is impossible to handle the Meta key properly.
|
||||||
I hear that in system V this problem does not exist.
|
I hear that in system V this problem does not exist.
|
||||||
2) Control-G causes output to be discarded.
|
2) Control-G causes output to be discarded.
|
||||||
|
|
@ -114,7 +114,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
* Define HAVE_TERMIO if the system provides sysV-style ioctls
|
* Define HAVE_TERMIO if the system provides sysV-style ioctls
|
||||||
* for terminal control.
|
* for terminal control.
|
||||||
*
|
*
|
||||||
* Do not define both. HAVE_TERMIOS is prefered, if it is
|
* Do not define both. HAVE_TERMIOS is preferred, if it is
|
||||||
* supported on your system.
|
* supported on your system.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -27,7 +27,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
#include "dgux5-4r2.h"
|
#include "dgux5-4r2.h"
|
||||||
|
|
||||||
/* DGUX 5.4R3.00 brought the definition of `struct inet_addr' into
|
/* DGUX 5.4R3.00 brought the definition of `struct inet_addr' into
|
||||||
compliance wiht the majority of Unix systems. The workaround
|
compliance with the majority of Unix systems. The workaround
|
||||||
introduced in 5.4R2 is no longer necessary. */
|
introduced in 5.4R2 is no longer necessary. */
|
||||||
|
|
||||||
#ifdef HAVE_BROKEN_INET_ADDR
|
#ifdef HAVE_BROKEN_INET_ADDR
|
||||||
|
|
|
||||||
|
|
@ -30,7 +30,7 @@
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
/* According to ngorelic@speclab.cr.usgs.gov,
|
/* According to ngorelic@speclab.cr.usgs.gov,
|
||||||
references to the X11R4 directoriess in these variables
|
references to the X11R4 directories in these variables
|
||||||
(inherited from hpux8.h)
|
(inherited from hpux8.h)
|
||||||
cause the wrong libraries to be found,
|
cause the wrong libraries to be found,
|
||||||
and the options to specify the X11R5 directories are unnecessary
|
and the options to specify the X11R5 directories are unnecessary
|
||||||
|
|
|
||||||
|
|
@ -73,7 +73,7 @@ You lose; /* Emacs for DOS must be compiled with DJGPP */
|
||||||
Define INTERRUPT_INPUT to make interrupt_input = 1 the default (use SIGIO)
|
Define INTERRUPT_INPUT to make interrupt_input = 1 the default (use SIGIO)
|
||||||
|
|
||||||
SIGIO can be used only on systems that implement it (4.2 and 4.3).
|
SIGIO can be used only on systems that implement it (4.2 and 4.3).
|
||||||
CBREAK mode has two disadvatages
|
CBREAK mode has two disadvantages
|
||||||
1) At least in 4.2, it is impossible to handle the Meta key properly.
|
1) At least in 4.2, it is impossible to handle the Meta key properly.
|
||||||
I hear that in system V this problem does not exist.
|
I hear that in system V this problem does not exist.
|
||||||
2) Control-G causes output to be discarded.
|
2) Control-G causes output to be discarded.
|
||||||
|
|
|
||||||
|
|
@ -73,7 +73,7 @@ static struct re_registers search_regs;
|
||||||
Qnil if no searching has been done yet. */
|
Qnil if no searching has been done yet. */
|
||||||
static Lisp_Object last_thing_searched;
|
static Lisp_Object last_thing_searched;
|
||||||
|
|
||||||
/* error condition signalled when regexp compile_pattern fails */
|
/* error condition signaled when regexp compile_pattern fails */
|
||||||
|
|
||||||
Lisp_Object Qinvalid_regexp;
|
Lisp_Object Qinvalid_regexp;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -156,7 +156,7 @@ void (*set_vertical_scroll_bar_hook)
|
||||||
away is a real pain - can you say set-window-configuration?
|
away is a real pain - can you say set-window-configuration?
|
||||||
Instead, we just assert at the beginning of redisplay that *all*
|
Instead, we just assert at the beginning of redisplay that *all*
|
||||||
scroll bars are to be removed, and then save scroll bars from the
|
scroll bars are to be removed, and then save scroll bars from the
|
||||||
firey pit when we actually redisplay their window. */
|
fiery pit when we actually redisplay their window. */
|
||||||
|
|
||||||
/* Arrange for all scroll bars on FRAME to be removed at the next call
|
/* Arrange for all scroll bars on FRAME to be removed at the next call
|
||||||
to `*judge_scroll_bars_hook'. A scroll bar may be spared if
|
to `*judge_scroll_bars_hook'. A scroll bar may be spared if
|
||||||
|
|
|
||||||
|
|
@ -1500,7 +1500,7 @@ verify_interval_modification (buf, start, end)
|
||||||
if (NILP (Vinhibit_read_only) || CONSP (Vinhibit_read_only))
|
if (NILP (Vinhibit_read_only) || CONSP (Vinhibit_read_only))
|
||||||
{
|
{
|
||||||
/* If I and PREV differ we need to check for the read-only
|
/* If I and PREV differ we need to check for the read-only
|
||||||
property together with its stickyness. If either I or
|
property together with its stickiness. If either I or
|
||||||
PREV are 0, this check is all we need.
|
PREV are 0, this check is all we need.
|
||||||
We have to take special care, since read-only may be
|
We have to take special care, since read-only may be
|
||||||
indirectly defined via the category property. */
|
indirectly defined via the category property. */
|
||||||
|
|
|
||||||
|
|
@ -915,8 +915,8 @@ copy_text_and_data (new, a_out)
|
||||||
* runs, it copies the table to where these parameters live during
|
* runs, it copies the table to where these parameters live during
|
||||||
* execution. This data is in text space, so it cannot be modified here
|
* execution. This data is in text space, so it cannot be modified here
|
||||||
* before saving the executable, so the data is written manually. In
|
* before saving the executable, so the data is written manually. In
|
||||||
* addition, the table does not have a label, and the nearest accessable
|
* addition, the table does not have a label, and the nearest accessible
|
||||||
* label (mcount) is not prefixed with a '_', thus making it inaccessable
|
* label (mcount) is not prefixed with a '_', thus making it inaccessible
|
||||||
* from within C programs. To overcome this, emacs's executable is passed
|
* from within C programs. To overcome this, emacs's executable is passed
|
||||||
* through the command 'nm %s | fgrep mcount' into a pipe, and the
|
* through the command 'nm %s | fgrep mcount' into a pipe, and the
|
||||||
* resultant output is then used to find the address of 'mcount'. As far as
|
* resultant output is then used to find the address of 'mcount'. As far as
|
||||||
|
|
|
||||||
|
|
@ -138,7 +138,7 @@ _start (void)
|
||||||
#endif /* HAVE_NTGUI */
|
#endif /* HAVE_NTGUI */
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Dump out .data and .bss sections into a new exectubale. */
|
/* Dump out .data and .bss sections into a new executable. */
|
||||||
void
|
void
|
||||||
unexec (char *new_name, char *old_name, void *start_data, void *start_bss,
|
unexec (char *new_name, char *old_name, void *start_data, void *start_bss,
|
||||||
void *entry_address)
|
void *entry_address)
|
||||||
|
|
|
||||||
|
|
@ -42,7 +42,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||||
* #define defined(XX) XX_val
|
* #define defined(XX) XX_val
|
||||||
* #if defined(foo)
|
* #if defined(foo)
|
||||||
*
|
*
|
||||||
* This last contruction only works on single line #if's and takes
|
* This last construction only works on single line #if's and takes
|
||||||
* advantage of a questionable C pre-processor trick. If there are
|
* advantage of a questionable C pre-processor trick. If there are
|
||||||
* comments within the #if, that contain "defined", then this will
|
* comments within the #if, that contain "defined", then this will
|
||||||
* bomb.
|
* bomb.
|
||||||
|
|
|
||||||
|
|
@ -1179,7 +1179,7 @@ VMS_present_buffer()
|
||||||
#endif /* defined(emacs) && defined(VMS) */
|
#endif /* defined(emacs) && defined(VMS) */
|
||||||
|
|
||||||
#ifdef VMS
|
#ifdef VMS
|
||||||
/* Unfortunatelly, the VAX C sbrk() is buggy. For example, it returns
|
/* Unfortunately, the VAX C sbrk() is buggy. For example, it returns
|
||||||
memory in 512 byte chunks (not a bug, but there's more), AND it
|
memory in 512 byte chunks (not a bug, but there's more), AND it
|
||||||
adds an extra 512 byte chunk if you ask for a multiple of 512
|
adds an extra 512 byte chunk if you ask for a multiple of 512
|
||||||
bytes (you ask for 512 bytes, you get 1024 bytes...). And also,
|
bytes (you ask for 512 bytes, you get 1024 bytes...). And also,
|
||||||
|
|
|
||||||
|
|
@ -719,7 +719,7 @@ create_process (process, new_argv)
|
||||||
|
|
||||||
Event flags returned start at 1 for the keyboard.
|
Event flags returned start at 1 for the keyboard.
|
||||||
Since Unix expects descriptor 0 for the keyboard,
|
Since Unix expects descriptor 0 for the keyboard,
|
||||||
we substract one from the event flag.
|
we subtract one from the event flag.
|
||||||
*/
|
*/
|
||||||
inchannel = vs->eventFlag-1;
|
inchannel = vs->eventFlag-1;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -69,7 +69,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
lisp manipulates to control what gets displayed. Elements 0 and 1
|
lisp manipulates to control what gets displayed. Elements 0 and 1
|
||||||
of FRAME->display.x->param_faces are special - they describe the
|
of FRAME->display.x->param_faces are special - they describe the
|
||||||
default and mode line faces. None of the faces in param_faces have
|
default and mode line faces. None of the faces in param_faces have
|
||||||
GC's. (See src/dispextern.h for the definiton of struct face.
|
GC's. (See src/dispextern.h for the definition of struct face.
|
||||||
lisp/faces.el maintains the isomorphism between face_alist and
|
lisp/faces.el maintains the isomorphism between face_alist and
|
||||||
param_faces.)
|
param_faces.)
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -586,7 +586,7 @@ single_keymap_panes (lpmm, keymap, pane_name, prefix, notreal)
|
||||||
return (hmenu);
|
return (hmenu);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Push all the panes and items of a menu decsribed by the
|
/* Push all the panes and items of a menu described by the
|
||||||
alist-of-alists MENU.
|
alist-of-alists MENU.
|
||||||
This handles old-fashioned calls to x-popup-menu. */
|
This handles old-fashioned calls to x-popup-menu. */
|
||||||
|
|
||||||
|
|
@ -1011,7 +1011,7 @@ get_list_of_items_event (pane, lpnum)
|
||||||
return (Qnil);
|
return (Qnil);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Push all the panes and items of a menu decsribed by the
|
/* Push all the panes and items of a menu described by the
|
||||||
alist-of-alists MENU.
|
alist-of-alists MENU.
|
||||||
This handles old-fashioned calls to x-popup-menu. */
|
This handles old-fashioned calls to x-popup-menu. */
|
||||||
|
|
||||||
|
|
@ -1444,7 +1444,7 @@ free_frame_menubar (f)
|
||||||
|
|
||||||
UNBLOCK_INPUT;
|
UNBLOCK_INPUT;
|
||||||
}
|
}
|
||||||
/* Called from Fwin32_create_frame to create the inital menubar of a frame
|
/* Called from Fwin32_create_frame to create the initial menubar of a frame
|
||||||
before it is mapped, so that the window is mapped with the menubar already
|
before it is mapped, so that the window is mapped with the menubar already
|
||||||
there instead of us tacking it on later and thrashing the window after it
|
there instead of us tacking it on later and thrashing the window after it
|
||||||
is visible. */
|
is visible. */
|
||||||
|
|
|
||||||
|
|
@ -408,7 +408,7 @@ win32_wait (int *status)
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Massage the exit code from the process to match the format expected
|
/* Massage the exit code from the process to match the format expected
|
||||||
by the WIFSTOPPED et al macros in syswait.h. Only WIFSIGNALLED and
|
by the WIFSTOPPED et al macros in syswait.h. Only WIFSIGNALED and
|
||||||
WIFEXITED are supported; WIFSTOPPED doesn't make sense under NT. */
|
WIFEXITED are supported; WIFSTOPPED doesn't make sense under NT. */
|
||||||
|
|
||||||
if (retval == STATUS_CONTROL_C_EXIT)
|
if (retval == STATUS_CONTROL_C_EXIT)
|
||||||
|
|
|
||||||
|
|
@ -311,7 +311,7 @@ set_frame_size (ew)
|
||||||
|
|
||||||
if (! XtIsSubclass (wmshell, shellWidgetClass)) abort ();
|
if (! XtIsSubclass (wmshell, shellWidgetClass)) abort ();
|
||||||
|
|
||||||
/* We don't need this for the momment. The geometry is computed in
|
/* We don't need this for the moment. The geometry is computed in
|
||||||
xfns.c. */
|
xfns.c. */
|
||||||
#if 0
|
#if 0
|
||||||
/* If the EmacsFrame doesn't have a geometry but the shell does,
|
/* If the EmacsFrame doesn't have a geometry but the shell does,
|
||||||
|
|
|
||||||
|
|
@ -2103,8 +2103,8 @@ try_window_id (window)
|
||||||
lines' charstarts in the case where the text of the
|
lines' charstarts in the case where the text of the
|
||||||
screen line at bp.vpos has changed.
|
screen line at bp.vpos has changed.
|
||||||
(This can happen in a deletion that ends in mid-line.)
|
(This can happen in a deletion that ends in mid-line.)
|
||||||
To adjust properly, we need to make things constent at
|
To adjust properly, we need to make things consistent
|
||||||
the position ep.
|
at the position ep.
|
||||||
So do a second adjust to make that happen.
|
So do a second adjust to make that happen.
|
||||||
Note that stop_vpos >= ep.vpos, so it is sufficient
|
Note that stop_vpos >= ep.vpos, so it is sufficient
|
||||||
to update the charstarts for lines at ep.vpos and below. */
|
to update the charstarts for lines at ep.vpos and below. */
|
||||||
|
|
|
||||||
|
|
@ -95,7 +95,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||||
lisp manipulates to control what gets displayed. Elements 0 and 1
|
lisp manipulates to control what gets displayed. Elements 0 and 1
|
||||||
of FRAME->output_data.x->param_faces are special - they describe the
|
of FRAME->output_data.x->param_faces are special - they describe the
|
||||||
default and mode line faces. None of the faces in param_faces have
|
default and mode line faces. None of the faces in param_faces have
|
||||||
GC's. (See src/dispextern.h for the definiton of struct face.
|
GC's. (See src/dispextern.h for the definition of struct face.
|
||||||
lisp/faces.el maintains the isomorphism between face_alist and
|
lisp/faces.el maintains the isomorphism between face_alist and
|
||||||
param_faces.)
|
param_faces.)
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -673,7 +673,7 @@ single_keymap_panes (keymap, pane_name, prefix, notreal)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Push all the panes and items of a menu decsribed by the
|
/* Push all the panes and items of a menu described by the
|
||||||
alist-of-alists MENU.
|
alist-of-alists MENU.
|
||||||
This handles old-fashioned calls to x-popup-menu. */
|
This handles old-fashioned calls to x-popup-menu. */
|
||||||
|
|
||||||
|
|
@ -1766,7 +1766,7 @@ set_frame_menubar (f, first_time, deep_p)
|
||||||
UNBLOCK_INPUT;
|
UNBLOCK_INPUT;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Called from Fx_create_frame to create the inital menubar of a frame
|
/* Called from Fx_create_frame to create the initial menubar of a frame
|
||||||
before it is mapped, so that the window is mapped with the menubar already
|
before it is mapped, so that the window is mapped with the menubar already
|
||||||
there instead of us tacking it on later and thrashing the window after it
|
there instead of us tacking it on later and thrashing the window after it
|
||||||
is visible. */
|
is visible. */
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue