diff options
| -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 |