# HG changeset patch # User Richard M. Stallman <rms@gnu.org> # Date 1116167335 0 # Node ID ebcb47e6b3f3d0636e431469d7752ef12c03d97f # Parent b50e483e582a3b1016e200b6583860e01fe9b1b0 (font-lock-comment-start-skip): New variable. (font-lock-comment-end-skip): New variable. (font-lock-fontify-syntactically-region): Use them if non-nil. diff -r b50e483e582a -r ebcb47e6b3f3 lisp/font-lock.el --- a/lisp/font-lock.el Sun May 15 13:49:41 2005 +0000 +++ b/lisp/font-lock.el Sun May 15 14:28:55 2005 +0000 @@ -1311,12 +1311,19 @@ ;;; Syntactic fontification functions. +(defvar font-lock-comment-start-skip nil + "If non-nil, Font Lock mode uses this instead of `comment-start-skip'.") + +(defvar font-lock-comment-end-skip nil + "If non-nil, Font Lock mode uses this instead of `comment-end'.") + (defun font-lock-fontify-syntactically-region (start end &optional loudly ppss) "Put proper face on each string and comment between START and END. START should be at the beginning of a line." (let ((comment-end-regexp - (regexp-quote - (replace-regexp-in-string "^ *" "" comment-end))) + (or font-lock-comment-end-skip + (regexp-quote + (replace-regexp-in-string "^ *" "" comment-end)))) state face beg) (if loudly (message "Fontifying %s... (syntactically...)" (buffer-name))) (goto-char start) @@ -1334,12 +1341,14 @@ 'syntax-table)) (when face (put-text-property beg (point) 'face face)) (when (and (eq face 'font-lock-comment-face) - comment-start-skip) + (or font-lock-comment-start-skip + comment-start-skip)) ;; Find the comment delimiters ;; and use font-lock-comment-delimiter-face for them. (save-excursion (goto-char beg) - (if (looking-at comment-start-skip) + (if (looking-at (or font-lock-comment-start-skip + comment-start-skip)) (put-text-property beg (match-end 0) 'face font-lock-comment-delimiter-face))) (if (looking-back comment-end-regexp (point-at-bol))