Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4467eb94
Commit
4467eb94
authored
May 29, 2000
by
Gerd Moellmann
Browse files
(find_defun_start): Move test for
open_paren_in_column_0_is_defun_start outside of the loop.
parent
49e70dec
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
13 deletions
+15
-13
src/syntax.c
src/syntax.c
+15
-13
No files found.
src/syntax.c
View file @
4467eb94
...
...
@@ -374,6 +374,8 @@ find_defun_start (pos, pos_byte)
syntax-tables. */
gl_state.current_syntax_table = current_buffer->syntax_table;
gl_state.use_global = 0;
if (open_paren_in_column_0_is_defun_start)
{
while (PT > BEGV)
{
/* Open-paren at start of line means we may have found our
...
...
@@ -381,8 +383,7 @@ find_defun_start (pos, pos_byte)
if (SYNTAX (FETCH_CHAR (PT_BYTE)) == Sopen)
{
SETUP_SYNTAX_TABLE (PT + 1, -1); /* Try again... */
if
(
SYNTAX
(
FETCH_CHAR
(
PT_BYTE
))
==
Sopen
&&
open_paren_in_column_0_is_defun_start
)
if (SYNTAX (FETCH_CHAR (PT_BYTE)) == Sopen)
break;
/* Now fallback to the default value. */
gl_state.current_syntax_table = current_buffer->syntax_table;
...
...
@@ -391,6 +392,7 @@ find_defun_start (pos, pos_byte)
/* Move to beg of previous line. */
scan_newline (PT, PT_BYTE, BEGV, BEGV_BYTE, -2, 1);
}
}
/* Record what we found, for the next try. */
find_start_value = PT;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment