(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 bdf31881cc47d392d9d1ff52795bd4713f992bbd..c17949c0c9706890b622123bcdbdc79f9edc8eb7 100644 (file)
--- 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)