Re: [kzeitler@lucent.com: font-lock of comments with an opening paren in column 1]

[Richard S. <rm...@gn...>]

I found a bug in my patch.  Please try this instead.

*** syntax.c.~1.165.~	Fri Apr 25 22:38:02 2003
--- syntax.c	Sun May 11 15:38:06 2003
***************
*** 337,343 ****
     It should be the last one before POS, or nearly the last.
  
     When open_paren_in_column_0_is_defun_start is nonzero,
!    the beginning of every line is treated as a defun-start.
  
     We record the information about where the scan started
     and what its result was, so that another call in the same area
--- 337,343 ----
     It should be the last one before POS, or nearly the last.
  
     When open_paren_in_column_0_is_defun_start is nonzero,
!    only the beginning of the buffer is treated as a defun-start.
  
     We record the information about where the scan started
     and what its result was, so that another call in the same area
***************
*** 353,358 ****
--- 353,364 ----
  {
    int opoint = PT, opoint_byte = PT_BYTE;
  
+   if (!open_paren_in_column_0_is_defun_start)
+     {
+       find_start_value_byte = BEGV_BYTE;
+       return BEGV;
+     }
+ 
    /* Use previous finding, if it's valid and applies to this inquiry.  */
    if (current_buffer == find_start_buffer
        /* Reuse the defun-start even if POS is a little farther on.
***************
*** 372,395 ****
       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
! 	     defun-start.  */
  	  if (SYNTAX (FETCH_CHAR (PT_BYTE)) == Sopen)
! 	    {
! 	      SETUP_SYNTAX_TABLE (PT + 1, -1);	/* Try again... */
! 	      if (SYNTAX (FETCH_CHAR (PT_BYTE)) == Sopen)
! 		break;
! 	      /* Now fallback to the default value.  */
! 	      gl_state.current_syntax_table = current_buffer->syntax_table;
! 	      gl_state.use_global = 0;
! 	    }
! 	  /* Move to beg of previous line.  */
! 	  scan_newline (PT, PT_BYTE, BEGV, BEGV_BYTE, -2, 1);
  	}
      }
  
    /* Record what we found, for the next try.  */
--- 378,398 ----
       syntax-tables.  */
    gl_state.current_syntax_table = current_buffer->syntax_table;
    gl_state.use_global = 0;
!   while (PT > BEGV)
      {
!       /* Open-paren at start of line means we may have found our
! 	 defun-start.  */
!       if (SYNTAX (FETCH_CHAR (PT_BYTE)) == Sopen)
  	{
! 	  SETUP_SYNTAX_TABLE (PT + 1, -1);	/* Try again... */
  	  if (SYNTAX (FETCH_CHAR (PT_BYTE)) == Sopen)
! 	    break;
! 	  /* Now fallback to the default value.  */
! 	  gl_state.current_syntax_table = current_buffer->syntax_table;
! 	  gl_state.use_global = 0;
  	}
+       /* Move to beg of previous line.  */
+       scan_newline (PT, PT_BYTE, BEGV, BEGV_BYTE, -2, 1);
      }
  
    /* Record what we found, for the next try.  */