Mercurial > emacs
changeset 81664:7ef84bc04072
(lisp-font-lock-keywords-2): Recognize the new \(?1:..\)
syntax as well. Reported by Juri Linkov <juri@jurta.org>.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 29 Jun 2007 04:29:43 +0000 |
| parents | 4eb4f7a7a490 |
| children | 17587ebad101 |
| files | lisp/ChangeLog lisp/font-lock.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)