[Emacs-diffs] Changes to emacs/lisp/font-lock.el

[Andreas Schwab]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.206 emacs/lisp/font-lock.el:1.207
*** emacs/lisp/font-lock.el:1.206       Wed Jan 29 16:45:07 2003
--- emacs/lisp/font-lock.el     Sun Feb  2 12:31:49 2003
***************
*** 1740,1746 ****
  The expected syntax of a declaration/definition item is `word' (preceded by
  optional whitespace and `*' characters and proceeded by optional whitespace)
  optionally followed by a `('.  Everything following the item (but belonging to
! it) is expected to by skip-able by `scan-sexps', and items are expected to be
  separated with a `,' and to be terminated with a `;'.
  
  Thus the regexp matches after point:  word (
--- 1740,1746 ----
  The expected syntax of a declaration/definition item is `word' (preceded by
  optional whitespace and `*' characters and proceeded by optional whitespace)
  optionally followed by a `('.  Everything following the item (but belonging to
! it) is expected to be skip-able by `scan-sexps', and items are expected to be
  separated with a `,' and to be terminated with a `;'.
  
  Thus the regexp matches after point:  word (
***************
*** 1759,1765 ****
        (let ((pos (point)))
        (skip-chars-backward " \t\n")
        (skip-syntax-backward "w")
!       (unless (looking-at "\\(\\sw+\\)[ \t\n]*\\sw*_\\sw*[ \t\n]*\\((\\)?")
          ;; Looks like it was something else, so go back to where we
          ;; were and reset the match data by rematching.
          (goto-char pos)
--- 1759,1765 ----
        (let ((pos (point)))
        (skip-chars-backward " \t\n")
        (skip-syntax-backward "w")
!       (unless (looking-at "\\(\\sw+\\)[ \t\n]*\\sw+[ \t\n]*\\(((?\\)?")
          ;; Looks like it was something else, so go back to where we
          ;; were and reset the match data by rematching.
          (goto-char pos)