]> git.eshelyaron.com Git - emacs.git/commitdiff
CC Mode - use font-lock-comment-delimiter-face on block comment end delimiters
authorAlan Mackenzie <acm@muc.de>
Sun, 30 Dec 2018 18:38:36 +0000 (18:38 +0000)
committerAlan Mackenzie <acm@muc.de>
Sun, 30 Dec 2018 18:38:36 +0000 (18:38 +0000)
In particular when the default comment type is currently line comments.  Do
this by setting font-lock-comment-end-skip.

* lisp/progmodes/cc-cmds.el (c-font-lock-comment-end-skip): New lang const.
(font-lock-comment-end-skip): New c-lang-setvar.

lisp/progmodes/cc-langs.el

index 8c148e5e53d91b892457bcdfd8d9975527de8a60..4bd4f6d63401b1fc0cff475029861c5455dfa476 100644 (file)
@@ -1529,6 +1529,17 @@ properly."
 (c-lang-defvar c-block-comment-ender-regexp
               (c-lang-const c-block-comment-ender-regexp))
 
+(c-lang-defconst c-font-lock-comment-end-skip
+  ;; Regexp which matches whitespace followed by the end of a block comment
+  ;; (if such exists in the language).  This is used by font lock to determine
+  ;; the portion of the end of a comment to fontify with
+  ;; `font-lock-comment-delimiter-face'.
+  t (if (c-lang-const c-block-comment-ender)
+       (concat "[ \t]*" (c-lang-const c-block-comment-ender-regexp))
+      "a\\`"))                         ; Doesn't match anything.
+(c-lang-setvar font-lock-comment-end-skip
+              (c-lang-const c-font-lock-comment-end-skip))
+
 (c-lang-defconst c-comment-start-regexp
   ;; Regexp to match the start of any type of comment.
   t (let ((re (c-make-keywords-re nil