# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1183091383 0
# Node ID 7ef84bc04072c45fa4f69080346a2917604f068c
# Parent  4eb4f7a7a490b0bb692dd1ab52119313bd955a74
(lisp-font-lock-keywords-2): Recognize the new \(?1:..\)
syntax as well.  Reported by Juri Linkov <juri@jurta.org>.

diff -r 4eb4f7a7a490 -r 7ef84bc04072 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jun 28 20:21:13 2007 +0000
+++ b/lisp/ChangeLog	Fri Jun 29 04:29:43 2007 +0000
@@ -1,3 +1,8 @@
+2007-06-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* font-lock.el (lisp-font-lock-keywords-2): Recognize the new \(?1:..\)
+	syntax as well.  Reported by Juri Linkov <juri@jurta.org>.
+
 2007-06-28  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* dnd.el (dnd-get-local-file-name): Set fixcase to t in call to
diff -r 4eb4f7a7a490 -r 7ef84bc04072 lisp/font-lock.el
--- a/lisp/font-lock.el	Thu Jun 28 20:21:13 2007 +0000
+++ b/lisp/font-lock.el	Fri Jun 29 04:29:43 2007 +0000
@@ -2287,7 +2287,7 @@
             ;; that do not occur in strings.  The associated regexp matches one
             ;; of `\\\\' `\\(' `\\(?:' `\\|' `\\)'.  `\\\\' has been included to
             ;; avoid highlighting, for example, `\\(' in `\\\\('.
-            (while (re-search-forward "\\(\\\\\\\\\\)\\(?:\\(\\\\\\\\\\)\\|\\((\\(?:\\?:\\)?\\|[|)]\\)\\)" bound t)
+            (while (re-search-forward "\\(\\\\\\\\\\)\\(?:\\(\\\\\\\\\\)\\|\\((\\(?:\\?[0-9]*:\\)?\\|[|)]\\)\\)" bound t)
               (unless (match-beginning 2)
                 (let ((face (get-text-property (1- (point)) 'face)))
                   (when (or (and (listp face)