Mercurial > emacs
comparison lisp/font-lock.el @ 58564:eea39a81fd89
(font-lock-compile-keywords): Don't complain if the end
of defun-prompt-regexp matches inside a comment/string but the
beginning is correctly outside everything.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 27 Nov 2004 00:17:22 +0000 |
| parents | cd5849662239 |
| children | 8d1a39cde5e3 |
comparison
equal
deleted
inserted
replaced
| 58563:72c3587cd01b | 58564:eea39a81fd89 |
|---|---|
| 1454 (nconc keywords | 1454 (nconc keywords |
| 1455 `((,(if defun-prompt-regexp | 1455 `((,(if defun-prompt-regexp |
| 1456 (concat "^\\(?:" defun-prompt-regexp "\\)?\\s(") | 1456 (concat "^\\(?:" defun-prompt-regexp "\\)?\\s(") |
| 1457 "^\\s(") | 1457 "^\\s(") |
| 1458 (0 | 1458 (0 |
| 1459 (if (memq (get-text-property (1- (point)) 'face) | 1459 (if (memq (get-text-property (match-beginning 0) 'face) |
| 1460 '(font-lock-string-face font-lock-doc-face | 1460 '(font-lock-string-face font-lock-doc-face |
| 1461 font-lock-comment-face)) | 1461 font-lock-comment-face)) |
| 1462 font-lock-warning-face) | 1462 font-lock-warning-face) |
| 1463 prepend))))) | 1463 prepend))))) |
| 1464 keywords)) | 1464 keywords)) |