diff options
| author | Alan Mackenzie | 2018-12-30 18:38:36 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2018-12-30 18:38:36 +0000 |
| commit | 83bbb48142e5f9714408dd628d244678eff2dc11 (patch) | |
| tree | 6c7fe0041c15aa0f043a068eb0e037ed18f8a120 | |
| parent | d82e73f08f8c12cfa144ff2e404a65e8bff1ab2e (diff) | |
| download | emacs-83bbb48142e5f9714408dd628d244678eff2dc11.tar.gz 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." | |||
| 1529 | (c-lang-defvar c-block-comment-ender-regexp | 1529 | (c-lang-defvar c-block-comment-ender-regexp |
| 1530 | (c-lang-const c-block-comment-ender-regexp)) | 1530 | (c-lang-const c-block-comment-ender-regexp)) |
| 1531 | 1531 | ||
| 1532 | (c-lang-defconst c-font-lock-comment-end-skip | ||
| 1533 | ;; Regexp which matches whitespace followed by the end of a block comment | ||
| 1534 | ;; (if such exists in the language). This is used by font lock to determine | ||
| 1535 | ;; the portion of the end of a comment to fontify with | ||
| 1536 | ;; `font-lock-comment-delimiter-face'. | ||
| 1537 | t (if (c-lang-const c-block-comment-ender) | ||
| 1538 | (concat "[ \t]*" (c-lang-const c-block-comment-ender-regexp)) | ||
| 1539 | "a\\`")) ; Doesn't match anything. | ||
| 1540 | (c-lang-setvar font-lock-comment-end-skip | ||
| 1541 | (c-lang-const c-font-lock-comment-end-skip)) | ||
| 1542 | |||
| 1532 | (c-lang-defconst c-comment-start-regexp | 1543 | (c-lang-defconst c-comment-start-regexp |
| 1533 | ;; Regexp to match the start of any type of comment. | 1544 | ;; Regexp to match the start of any type of comment. |
| 1534 | t (let ((re (c-make-keywords-re nil | 1545 | t (let ((re (c-make-keywords-re nil |