From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 27 Nov 2004 00:17:22 +0000 (+0000)
Subject: (font-lock-compile-keywords): Don't complain if the end
X-Git-Tag: ttn-vms-21-2-B4~3619
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=048aac39388861b0117ad22d51ca8b7dba16d2bf;p=emacs.git

(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.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index bdf31881cc4..c17949c0c97 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1456,7 +1456,7 @@ If REGEXP is non-nil, it means these keywords are used for
 		       (concat "^\\(?:" defun-prompt-regexp "\\)?\\s(")
 		     "^\\s(")
 		  (0
-		   (if (memq (get-text-property (1- (point)) 'face)
+		   (if (memq (get-text-property (match-beginning 0) 'face)
 			     '(font-lock-string-face font-lock-doc-face
 			       font-lock-comment-face))
 		       font-lock-warning-face)