# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1101514642 0
# Node ID eea39a81fd8907bfec8e59e59e9c09ec163eaf29
# Parent  72c3587cd01bfe14fd8d84e09e4ce24b95c27b1f
(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 -r 72c3587cd01b -r eea39a81fd89 lisp/font-lock.el
--- a/lisp/font-lock.el	Sat Nov 27 00:07:14 2004 +0000
+++ b/lisp/font-lock.el	Sat Nov 27 00:17:22 2004 +0000
@@ -1456,7 +1456,7 @@
 		       (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)