aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorKenichi Handa2003-06-05 12:58:44 +0000
committerKenichi Handa2003-06-05 12:58:44 +0000
commitc1ebafd6b3845a2919ea214b5fe0f7afcc072207 (patch)
treed94e35f3cc543cac82b2ad1c910c1cc8821ade21 /lisp
parent89934f556ee3f9b1ff98e3ab405c8abaeb51070c (diff)
downloademacs-c1ebafd6b3845a2919ea214b5fe0f7afcc072207.tar.gz
emacs-c1ebafd6b3845a2919ea214b5fe0f7afcc072207.zip
(font-lock-match-c-style-declaration-item-and-skip-to-next):
Check (match-end 2) before goto there.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/font-lock.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 0883a086685..f877c12da1b 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -2048,7 +2048,8 @@ This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item."
2048 ;; Move over any item value, etc., to the next item. 2048 ;; Move over any item value, etc., to the next item.
2049 (while (not (looking-at "[ \t\n]*\\(\\(,\\)\\|;\\|\\'\\)")) 2049 (while (not (looking-at "[ \t\n]*\\(\\(,\\)\\|;\\|\\'\\)"))
2050 (goto-char (or (scan-sexps (point) 1) (point-max)))) 2050 (goto-char (or (scan-sexps (point) 1) (point-max))))
2051 (goto-char (match-end 2))) 2051 (if (match-end 2)
2052 (goto-char (match-end 2))))
2052 (error t))))) 2053 (error t)))))
2053 2054
2054;; Lisp. 2055;; Lisp.