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)))))