diff options
| author | Alan Mackenzie <acm@muc.de> | 2018-12-30 18:38:36 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2018-12-30 18:38:36 +0000 |
| commit | 83bbb48142e5f9714408dd628d244678eff2dc11 (patch) | |
| tree | 6c7fe0041c15aa0f043a068eb0e037ed18f8a120 | |
| parent | d82e73f08f8c12cfa144ff2e404a65e8bff1ab2e (diff) | |
| download | emacs-83bbb48142e5f9714408dd628d244678eff2dc11.tar.gz emacs-83bbb48142e5f9714408dd628d244678eff2dc11.tar.bz2 emacs-83bbb48142e5f9714408dd628d244678eff2dc11.zip | |
CC Mode - use font-lock-comment-delimiter-face on block comment end delimiters
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.
| -rw-r--r-- | lisp/progmodes/cc-langs.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index 8c148e5e53d..4bd4f6d6340 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el @@ -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 |