Commit 7d0393cf authored by Juanma Barranquero's avatar Juanma Barranquero

Fix typo in comment.

parent d49e7392
...@@ -6313,7 +6313,7 @@ highest priority. */) ...@@ -6313,7 +6313,7 @@ highest priority. */)
the detecting source. Then code detectors can handle the tailing the detecting source. Then code detectors can handle the tailing
byte sequence more accurately. byte sequence more accurately.
Fix me: This is not an perfect solution. It is better that we Fix me: This is not a perfect solution. It is better that we
add one more argument, say LAST_BLOCK, to all detect_coding_XXX. add one more argument, say LAST_BLOCK, to all detect_coding_XXX.
*/ */
if (to == Z || (to == GPT && GAP_SIZE > 0)) if (to == Z || (to == GPT && GAP_SIZE > 0))
...@@ -6538,7 +6538,7 @@ unencodable_char_position (safe_chars, pos, p, pend, n) ...@@ -6538,7 +6538,7 @@ unencodable_char_position (safe_chars, pos, p, pend, n)
{ {
int len; int len;
int c = STRING_CHAR_AND_LENGTH (p, MAX_MULTIBYTE_LENGTH, len); int c = STRING_CHAR_AND_LENGTH (p, MAX_MULTIBYTE_LENGTH, len);
if (c >= 128 if (c >= 128
&& (CHAR_TABLE_P (safe_chars) && (CHAR_TABLE_P (safe_chars)
? NILP (CHAR_TABLE_REF (safe_chars, c)) ? NILP (CHAR_TABLE_REF (safe_chars, c))
......
...@@ -158,7 +158,7 @@ Lisp_Object Vprevious_system_messages_locale; ...@@ -158,7 +158,7 @@ Lisp_Object Vprevious_system_messages_locale;
Lisp_Object Vsystem_time_locale; Lisp_Object Vsystem_time_locale;
Lisp_Object Vprevious_system_time_locale; Lisp_Object Vprevious_system_time_locale;
/* If non-zero, emacs should not attempt to use an window-specific code, /* If non-zero, emacs should not attempt to use a window-specific code,
but instead should use the virtual terminal under which it was started. */ but instead should use the virtual terminal under which it was started. */
int inhibit_window_system; int inhibit_window_system;
......
...@@ -347,10 +347,10 @@ rotate_right (interval) ...@@ -347,10 +347,10 @@ rotate_right (interval)
/* Assuming that a right child exists, perform the following operation: /* Assuming that a right child exists, perform the following operation:
A B A B
/ \ / \ / \ / \
B => A B => A
/ \ / \ / \ / \
c c c c
*/ */
...@@ -524,7 +524,7 @@ split_interval_right (interval, offset) ...@@ -524,7 +524,7 @@ split_interval_right (interval, offset)
new->total_length = new_length + new->right->total_length; new->total_length = new_length + new->right->total_length;
balance_an_interval (new); balance_an_interval (new);
} }
balance_possible_root_interval (interval); balance_possible_root_interval (interval);
return new; return new;
...@@ -569,7 +569,7 @@ split_interval_left (interval, offset) ...@@ -569,7 +569,7 @@ split_interval_left (interval, offset)
new->total_length = new_length + new->left->total_length; new->total_length = new_length + new->left->total_length;
balance_an_interval (new); balance_an_interval (new);
} }
balance_possible_root_interval (interval); balance_possible_root_interval (interval);
return new; return new;
...@@ -754,39 +754,39 @@ update_interval (i, pos) ...@@ -754,39 +754,39 @@ update_interval (i, pos)
if (NULL_INTERVAL_P (i)) if (NULL_INTERVAL_P (i))
return NULL_INTERVAL; return NULL_INTERVAL;
while (1) while (1)
{ {
if (pos < i->position) if (pos < i->position)
{ {
/* Move left. */ /* Move left. */
if (pos >= i->position - TOTAL_LENGTH (i->left)) if (pos >= i->position - TOTAL_LENGTH (i->left))
{ {
i->left->position = i->position - TOTAL_LENGTH (i->left) i->left->position = i->position - TOTAL_LENGTH (i->left)
+ LEFT_TOTAL_LENGTH (i->left); + LEFT_TOTAL_LENGTH (i->left);
i = i->left; /* Move to the left child */ i = i->left; /* Move to the left child */
} }
else if (NULL_PARENT (i)) else if (NULL_PARENT (i))
error ("Point before start of properties"); error ("Point before start of properties");
else else
i = INTERVAL_PARENT (i); i = INTERVAL_PARENT (i);
continue; continue;
} }
else if (pos >= INTERVAL_LAST_POS (i)) else if (pos >= INTERVAL_LAST_POS (i))
{ {
/* Move right. */ /* Move right. */
if (pos < INTERVAL_LAST_POS (i) + TOTAL_LENGTH (i->right)) if (pos < INTERVAL_LAST_POS (i) + TOTAL_LENGTH (i->right))
{ {
i->right->position = INTERVAL_LAST_POS (i) + i->right->position = INTERVAL_LAST_POS (i) +
LEFT_TOTAL_LENGTH (i->right); LEFT_TOTAL_LENGTH (i->right);
i = i->right; /* Move to the right child */ i = i->right; /* Move to the right child */
} }
else if (NULL_PARENT (i)) else if (NULL_PARENT (i))
error ("Point after end of properties"); error ("Point after end of properties");
else else
i = INTERVAL_PARENT (i); i = INTERVAL_PARENT (i);
continue; continue;
} }
else else
return i; return i;
} }
} }
...@@ -874,7 +874,7 @@ adjust_intervals_for_insertion (tree, position, length) ...@@ -874,7 +874,7 @@ adjust_intervals_for_insertion (tree, position, length)
int eobp = 0; int eobp = 0;
Lisp_Object parent; Lisp_Object parent;
int offset; int offset;
if (TOTAL_LENGTH (tree) == 0) /* Paranoia */ if (TOTAL_LENGTH (tree) == 0) /* Paranoia */
abort (); abort ();
...@@ -989,7 +989,7 @@ adjust_intervals_for_insertion (tree, position, length) ...@@ -989,7 +989,7 @@ adjust_intervals_for_insertion (tree, position, length)
temp->total_length += length; temp->total_length += length;
temp = balance_possible_root_interval (temp); temp = balance_possible_root_interval (temp);
} }
/* If at least one interval has sticky properties, /* If at least one interval has sticky properties,
we check the stickiness property by property. we check the stickiness property by property.
...@@ -1046,7 +1046,7 @@ adjust_intervals_for_insertion (tree, position, length) ...@@ -1046,7 +1046,7 @@ adjust_intervals_for_insertion (tree, position, length)
temp = balance_possible_root_interval (temp); temp = balance_possible_root_interval (temp);
} }
} }
return tree; return tree;
} }
...@@ -1212,7 +1212,7 @@ merge_properties_sticky (pleft, pright) ...@@ -1212,7 +1212,7 @@ merge_properties_sticky (pleft, pright)
cat = textget (props, Qcategory); cat = textget (props, Qcategory);
if (! NILP (front) if (! NILP (front)
&& &&
/* If we have inherited a front-stick category property that is t, /* If we have inherited a front-stick category property that is t,
we don't need to set up a detailed one. */ we don't need to set up a detailed one. */
! (! NILP (cat) && SYMBOLP (cat) ! (! NILP (cat) && SYMBOLP (cat)
...@@ -1222,7 +1222,7 @@ merge_properties_sticky (pleft, pright) ...@@ -1222,7 +1222,7 @@ merge_properties_sticky (pleft, pright)
} }
/* Delete an node I from its interval tree by merging its subtrees /* Delete a node I from its interval tree by merging its subtrees
into one subtree which is then returned. Caller is responsible for into one subtree which is then returned. Caller is responsible for
storing the resulting subtree into its parent. */ storing the resulting subtree into its parent. */
...@@ -1351,7 +1351,7 @@ interval_deletion_adjustment (tree, from, amount) ...@@ -1351,7 +1351,7 @@ interval_deletion_adjustment (tree, from, amount)
else else
{ {
/* How much can we delete from this interval? */ /* How much can we delete from this interval? */
int my_amount = ((tree->total_length int my_amount = ((tree->total_length
- RIGHT_TOTAL_LENGTH (tree)) - RIGHT_TOTAL_LENGTH (tree))
- relative_position); - relative_position);
...@@ -1361,7 +1361,7 @@ interval_deletion_adjustment (tree, from, amount) ...@@ -1361,7 +1361,7 @@ interval_deletion_adjustment (tree, from, amount)
tree->total_length -= amount; tree->total_length -= amount;
if (LENGTH (tree) == 0) if (LENGTH (tree) == 0)
delete_interval (tree); delete_interval (tree);
return amount; return amount;
} }
...@@ -1780,7 +1780,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit) ...@@ -1780,7 +1780,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit)
The properties of under are the result of The properties of under are the result of
adjust_intervals_for_insertion, so stickiness 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))
{ {
if (LENGTH (over) < LENGTH (under)) if (LENGTH (over) < LENGTH (under))
...@@ -1805,7 +1805,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit) ...@@ -1805,7 +1805,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit)
/* Get the value of property PROP from PLIST, /* Get the value of property PROP from PLIST,
which is the plist of an interval. which is the plist of an interval.
We check for direct properties, for categories with property PROP, We check for direct properties, for categories with property PROP,
and for PROP appearing on the default-text-properties list. */ and for PROP appearing on the default-text-properties list. */
Lisp_Object Lisp_Object
...@@ -1887,7 +1887,7 @@ temp_set_point_both (buffer, charpos, bytepos) ...@@ -1887,7 +1887,7 @@ temp_set_point_both (buffer, charpos, bytepos)
BUF_PT (buffer) = charpos; BUF_PT (buffer) = charpos;
} }
/* Set point in BUFFER to CHARPOS. If the target position is /* Set point in BUFFER to CHARPOS. If the target position is
before an intangible character, move to an ok place. */ before an intangible character, move to an ok place. */
void void
...@@ -1907,7 +1907,7 @@ set_point (buffer, charpos) ...@@ -1907,7 +1907,7 @@ set_point (buffer, charpos)
TEST_OFFS should be either 0 or -1, and ADJ should be either 1 or -1. TEST_OFFS should be either 0 or -1, and ADJ should be either 1 or -1.
Note that `stickiness' is determined by overlay marker insertion types, Note that `stickiness' is determined by overlay marker insertion types,
if the invisible property comes from an overlay. */ if the invisible property comes from an overlay. */
static int static int
adjust_for_invis_intang (pos, test_offs, adj, test_intang) adjust_for_invis_intang (pos, test_offs, adj, test_intang)
...@@ -1945,7 +1945,7 @@ adjust_for_invis_intang (pos, test_offs, adj, test_intang) ...@@ -1945,7 +1945,7 @@ adjust_for_invis_intang (pos, test_offs, adj, test_intang)
} }
/* Set point in BUFFER to CHARPOS, which corresponds to byte /* Set point in BUFFER to CHARPOS, which corresponds to byte
position BYTEPOS. If the target position is position BYTEPOS. If the target position is
before an intangible character, move to an ok place. */ before an intangible character, move to an ok place. */
void void
...@@ -2218,7 +2218,7 @@ move_if_not_intangible (position) ...@@ -2218,7 +2218,7 @@ move_if_not_intangible (position)
} }
/* If the whole stretch between PT and POSITION isn't intangible, /* If the whole stretch between PT and POSITION isn't intangible,
try moving to POSITION (which means we actually move farther try moving to POSITION (which means we actually move farther
if POSITION is inside of intangible text). */ if POSITION is inside of intangible text). */
...@@ -2265,7 +2265,7 @@ get_property_and_range (pos, prop, val, start, end, object) ...@@ -2265,7 +2265,7 @@ get_property_and_range (pos, prop, val, start, end, object)
*start = i->position; *start = i->position;
next = next_interval (i); next = next_interval (i);
while (! NULL_INTERVAL_P (next) while (! NULL_INTERVAL_P (next)
&& EQ (*val, textget (next->plist, prop))) && EQ (*val, textget (next->plist, prop)))
i = next, next = next_interval (next); i = next, next = next_interval (next);
*end = i->position + LENGTH (i); *end = i->position + LENGTH (i);
......
This diff is collapsed.
...@@ -326,7 +326,7 @@ check_x_frame (frame) ...@@ -326,7 +326,7 @@ check_x_frame (frame)
return f; return f;
} }
/* Let the user specify an display with a frame. /* Let the user specify a display with a frame.
nil stands for the selected frame--or, if that is not a mac frame, nil stands for the selected frame--or, if that is not a mac frame,
the first display on the list. */ the first display on the list. */
...@@ -363,7 +363,7 @@ check_x_display_info (frame) ...@@ -363,7 +363,7 @@ check_x_display_info (frame)
} }
} }
/* Return the Emacs frame-object corresponding to an mac window. /* Return the Emacs frame-object corresponding to a mac window.
It could be the frame's main window or an icon window. */ It could be the frame's main window or an icon window. */
/* This function can be called during GC, so use GC_xxx type test macros. */ /* This function can be called during GC, so use GC_xxx type test macros. */
...@@ -1969,7 +1969,7 @@ x_to_mac_color (colorname) ...@@ -1969,7 +1969,7 @@ x_to_mac_color (colorname)
if (value < 0.0 || value > 1.0) if (value < 0.0 || value > 1.0)
break; break;
val = (unsigned long)(0x100 * value); val = (unsigned long)(0x100 * value);
/* We used 0x100 instead of 0xFF to give an continuous /* We used 0x100 instead of 0xFF to give a continuous
range between 0.0 and 1.0 inclusive. The next statement range between 0.0 and 1.0 inclusive. The next statement
fixes the 1.0 case. */ fixes the 1.0 case. */
if (val == 0x100) if (val == 0x100)
...@@ -2355,7 +2355,7 @@ x_set_cursor_color (f, arg, oldval) ...@@ -2355,7 +2355,7 @@ x_set_cursor_color (f, arg, oldval)
/* Set the border-color of frame F to pixel value PIX. /* Set the border-color of frame F to pixel value PIX.
Note that this does not fully take effect if done before Note that this does not fully take effect if done before
F has an window. */ F has a window. */
void void
x_set_border_pixel (f, pix) x_set_border_pixel (f, pix)
struct frame *f; struct frame *f;
...@@ -3011,7 +3011,7 @@ x_set_scroll_bar_width (f, arg, oldval) ...@@ -3011,7 +3011,7 @@ x_set_scroll_bar_width (f, arg, oldval)
XWINDOW (FRAME_SELECTED_WINDOW (f))->cursor.x = 0; XWINDOW (FRAME_SELECTED_WINDOW (f))->cursor.x = 0;
} }
/* Subroutines of creating an frame. */ /* Subroutines of creating a frame. */
/* Make sure that Vx_resource_name is set to a reasonable value. /* Make sure that Vx_resource_name is set to a reasonable value.
Fix it up, or set it to `emacs' if it is too hopeless. */ Fix it up, or set it to `emacs' if it is too hopeless. */
...@@ -9471,7 +9471,7 @@ x_create_tip_frame (dpyinfo, parms) ...@@ -9471,7 +9471,7 @@ x_create_tip_frame (dpyinfo, parms)
f->height = 0; f->height = 0;
SET_FRAME_WIDTH (f, 0); SET_FRAME_WIDTH (f, 0);
change_frame_size (f, height, width, 1, 0, 0); change_frame_size (f, height, width, 1, 0, 0);
/* Add `tooltip' frame parameter's default value. */ /* Add `tooltip' frame parameter's default value. */
if (NILP (Fframe_parameter (frame, intern ("tooltip")))) if (NILP (Fframe_parameter (frame, intern ("tooltip"))))
Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt), Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt),
......
...@@ -199,7 +199,7 @@ update_syntax_table (charpos, count, init, object) ...@@ -199,7 +199,7 @@ update_syntax_table (charpos, count, init, object)
if (invalidate) if (invalidate)
invalidate = !EQ (tmp_table, gl_state.old_prop); /* Need to invalidate? */ invalidate = !EQ (tmp_table, gl_state.old_prop); /* Need to invalidate? */
if (invalidate) /* Did not get to adjacent interval. */ if (invalidate) /* Did not get to adjacent interval. */
{ /* with the same table => */ { /* with the same table => */
/* invalidate the old range. */ /* invalidate the old range. */
...@@ -222,13 +222,13 @@ update_syntax_table (charpos, count, init, object) ...@@ -222,13 +222,13 @@ update_syntax_table (charpos, count, init, object)
if (EQ (Fsyntax_table_p (tmp_table), Qt)) if (EQ (Fsyntax_table_p (tmp_table), Qt))
{ {
gl_state.use_global = 0; gl_state.use_global = 0;
} }
else if (CONSP (tmp_table)) else if (CONSP (tmp_table))
{ {
gl_state.use_global = 1; gl_state.use_global = 1;
gl_state.global_code = tmp_table; gl_state.global_code = tmp_table;
} }
else else
{ {
gl_state.use_global = 0; gl_state.use_global = 0;
gl_state.current_syntax_table = current_buffer->syntax_table; gl_state.current_syntax_table = current_buffer->syntax_table;
...@@ -251,7 +251,7 @@ update_syntax_table (charpos, count, init, object) ...@@ -251,7 +251,7 @@ update_syntax_table (charpos, count, init, object)
} }
return; return;
} }
else if (cnt == INTERVALS_AT_ONCE) else if (cnt == INTERVALS_AT_ONCE)
{ {
if (count > 0) if (count > 0)
{ {
...@@ -428,7 +428,7 @@ prev_char_comend_first (pos, pos_byte) ...@@ -428,7 +428,7 @@ prev_char_comend_first (pos, pos_byte)
* int pos, pos_byte; * int pos, pos_byte;
* { * {
* int c, val; * int c, val;
* *
* DEC_BOTH (pos, pos_byte); * DEC_BOTH (pos, pos_byte);
* UPDATE_SYNTAX_TABLE_BACKWARD (pos); * UPDATE_SYNTAX_TABLE_BACKWARD (pos);
* c = FETCH_CHAR (pos_byte); * c = FETCH_CHAR (pos_byte);
...@@ -468,7 +468,7 @@ back_comment (from, from_byte, stop, comnested, comstyle, charpos_ptr, bytepos_p ...@@ -468,7 +468,7 @@ back_comment (from, from_byte, stop, comnested, comstyle, charpos_ptr, bytepos_p
int string_style = -1; /* Presumed outside of any string. */ int string_style = -1; /* Presumed outside of any string. */
int string_lossage = 0; int string_lossage = 0;
/* Not a real lossage: indicates that we have passed a matching comment /* Not a real lossage: indicates that we have passed a matching comment
starter plus an non-matching comment-ender, meaning that any matching starter plus a non-matching comment-ender, meaning that any matching
comment-starter we might see later could be a false positive (hidden comment-starter we might see later could be a false positive (hidden
inside another comment). inside another comment).
Test case: { a (* b } c (* d *) */ Test case: { a (* b } c (* d *) */
...@@ -584,7 +584,7 @@ back_comment (from, from_byte, stop, comnested, comstyle, charpos_ptr, bytepos_p ...@@ -584,7 +584,7 @@ back_comment (from, from_byte, stop, comnested, comstyle, charpos_ptr, bytepos_p
There's no way to grok this scanning backwards. */ There's no way to grok this scanning backwards. */
string_lossage = 1; string_lossage = 1;
break; break;
case Scomment: case Scomment:
/* We've already checked that it is the relevant comstyle. */ /* We've already checked that it is the relevant comstyle. */
if (string_style != -1 || comment_lossage || string_lossage) if (string_style != -1 || comment_lossage || string_lossage)
...@@ -705,7 +705,7 @@ back_comment (from, from_byte, stop, comnested, comstyle, charpos_ptr, bytepos_p ...@@ -705,7 +705,7 @@ back_comment (from, from_byte, stop, comnested, comstyle, charpos_ptr, bytepos_p
from_byte = CHAR_TO_BYTE (from); from_byte = CHAR_TO_BYTE (from);
UPDATE_SYNTAX_TABLE_FORWARD (from - 1); UPDATE_SYNTAX_TABLE_FORWARD (from - 1);
} }
done: done:
*charpos_ptr = from; *charpos_ptr = from;
*bytepos_ptr = from_byte; *bytepos_ptr = from_byte;
...@@ -732,7 +732,7 @@ check_syntax_table (obj) ...@@ -732,7 +732,7 @@ check_syntax_table (obj)
if (!(CHAR_TABLE_P (obj) if (!(CHAR_TABLE_P (obj)
&& EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table))) && EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table)))
wrong_type_argument (Qsyntax_table_p, obj); wrong_type_argument (Qsyntax_table_p, obj);
} }
DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0, DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0,
doc: /* Return the current syntax table. doc: /* Return the current syntax table.
...@@ -961,7 +961,7 @@ text property. */) ...@@ -961,7 +961,7 @@ text property. */)
val |= 1 << 22; val |= 1 << 22;
break; break;
} }
if (val < XVECTOR (Vsyntax_code_object)->size && NILP (match)) if (val < XVECTOR (Vsyntax_code_object)->size && NILP (match))
return XVECTOR (Vsyntax_code_object)->contents[val]; return XVECTOR (Vsyntax_code_object)->contents[val];
else else
...@@ -971,7 +971,7 @@ text property. */) ...@@ -971,7 +971,7 @@ text property. */)
/* I really don't know why this is interactive /* I really don't know why this is interactive
help-form should at least be made useful whilst reading the second arg. */ help-form should at least be made useful whilst reading the second arg. */
DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3, DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3,
"cSet syntax for character: \nsSet syntax for %s to: ", "cSet syntax for character: \nsSet syntax for %s to: ",
doc: /* Set syntax for character CHAR according to string NEWENTRY. doc: /* Set syntax for character CHAR according to string NEWENTRY.
The syntax is changed only for table SYNTAX_TABLE, which defaults to The syntax is changed only for table SYNTAX_TABLE, which defaults to
...@@ -1293,7 +1293,7 @@ and the function returns nil. Field boundaries are not noticed if ...@@ -1293,7 +1293,7 @@ and the function returns nil. Field boundaries are not noticed if
/* Avoid jumping out of an input field. */ /* Avoid jumping out of an input field. */
val = XFASTINT (Fconstrain_to_field (make_number (val), make_number (PT), val = XFASTINT (Fconstrain_to_field (make_number (val), make_number (PT),
Qt, Qnil, Qnil)); Qt, Qnil, Qnil));
SET_PT (val); SET_PT (val);
return val == orig_val ? Qt : Qnil; return val == orig_val ? Qt : Qnil;
} }
...@@ -1729,7 +1729,7 @@ forw_comment (from, from_byte, stop, nesting, style, prev_syntax, ...@@ -1729,7 +1729,7 @@ forw_comment (from, from_byte, stop, nesting, style, prev_syntax,
nesting++; nesting++;
INC_BOTH (from, from_byte); INC_BOTH (from, from_byte);
UPDATE_SYNTAX_TABLE_FORWARD (from); UPDATE_SYNTAX_TABLE_FORWARD (from);
forw_incomment: forw_incomment:
if (from < stop && SYNTAX_FLAGS_COMEND_FIRST (syntax) if (from < stop && SYNTAX_FLAGS_COMEND_FIRST (syntax)
&& SYNTAX_FLAGS_COMMENT_STYLE (syntax) == style && SYNTAX_FLAGS_COMMENT_STYLE (syntax) == style
...@@ -1826,7 +1826,7 @@ between them, return t; otherwise return nil. */) ...@@ -1826,7 +1826,7 @@ between them, return t; otherwise return nil. */)
&& (c1 = FETCH_CHAR (from_byte), && (c1 = FETCH_CHAR (from_byte),
SYNTAX_COMSTART_SECOND (c1))) SYNTAX_COMSTART_SECOND (c1)))
{ {
/* We have encountered a comment start sequence and we /* We have encountered a comment start sequence and we
are ignoring all text inside comments. We must record are ignoring all text inside comments. We must record
the comment style this sequence begins so that later, the comment style this sequence begins so that later,
only a comment end of the same style actually ends only a comment end of the same style actually ends
...@@ -1907,7 +1907,7 @@ between them, return t; otherwise return nil. */) ...@@ -1907,7 +1907,7 @@ between them, return t; otherwise return nil. */)
{ {
/* Skip until first preceding unquoted comment_fence. */ /* Skip until first preceding unquoted comment_fence. */
int found = 0, ini = from, ini_byte = from_byte; int found = 0, ini = from, ini_byte = from_byte;
while (1) while (1)
{ {
DEC_BOTH (from, from_byte); DEC_BOTH (from, from_byte);
...@@ -1916,9 +1916,9 @@ between them, return t; otherwise return nil. */) ...@@ -1916,9 +1916,9 @@ between them, return t; otherwise return nil. */)
UPDATE_SYNTAX_TABLE_BACKWARD (from); UPDATE_SYNTAX_TABLE_BACKWARD (from);
c = FETCH_CHAR (from_byte); c = FETCH_CHAR (from_byte);
if (SYNTAX (c) == Scomment_fence if (SYNTAX (c) == Scomment_fence
&& !char_quoted (from, from_byte)) && !char_quoted (from, from_byte))
{ {
found = 1; found = 1;
break; break;
} }
} }
...@@ -2036,7 +2036,7 @@ scan_lists (from, count, depth, sexpflag) ...@@ -2036,7 +2036,7 @@ scan_lists (from, count, depth, sexpflag)
&& SYNTAX_COMSTART_SECOND (FETCH_CHAR (from_byte)) && SYNTAX_COMSTART_SECOND (FETCH_CHAR (from_byte))
&& parse_sexp_ignore_comments) && parse_sexp_ignore_comments)
{ {
/* we have encountered a comment start sequence and we /* we have encountered a comment start sequence and we
are ignoring all text inside comments. We must record ar