Mercurial > emacs
changeset 62235:cd487105a05a
(font-lock-fontify-syntactically-region):
Use font-lock-comment-delimiter-face for comment delimiters.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 11 May 2005 16:27:25 +0000 |
| parents | b484427cfa6b |
| children | 8cffa2d0ef26 |
| files | lisp/font-lock.el |
| diffstat | 1 files changed, 17 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/font-lock.el Wed May 11 16:24:55 2005 +0000 +++ b/lisp/font-lock.el Wed May 11 16:27:25 2005 +0000 @@ -1314,7 +1314,10 @@ (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 (state face beg) + (let (state face beg + (comment-end-regexp + (regexp-quote + (replace-regexp-in-string "^ *" "" comment-end)))) (if loudly (message "Fontifying %s... (syntactically...)" (buffer-name))) (goto-char start) ;; @@ -1329,7 +1332,19 @@ (setq beg (max (nth 8 state) start)) (setq state (parse-partial-sexp (point) end nil nil state 'syntax-table)) - (when face (put-text-property beg (point) 'face face))) + (when face (put-text-property beg (point) 'face face)) + (when (eq face 'font-lock-comment-face) + ;; Find the comment delimiters + ;; and use font-lock-comment-delimiter-face for them. + (save-excursion + (goto-char beg) + (if (and comment-start-skip (looking-at comment-start-skip)) + (put-text-property beg (match-end 0) 'face + 'font-lock-comment-delimiter-face))) + (if (and comment-end + (looking-back comment-end-regexp (point-at-bol))) + (put-text-property (match-beginning 0) (point) 'face + 'font-lock-comment-delimiter-face)))) (< (point) end)) (setq state (parse-partial-sexp (point) end nil nil state 'syntax-table)))))