diff options
| author | Alan Mackenzie | 2022-09-16 13:57:40 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2022-09-16 13:57:40 +0000 |
| commit | ec2dfd110c407038ab1abc7fd713d37ada91edd9 (patch) | |
| tree | 4b98d1b6a48761c1883e0386e2063f6b5b89cced | |
| parent | 4da0fbdc82577da0583c8858a52f456beb23fd0e (diff) | |
| download | emacs-ec2dfd110c407038ab1abc7fd713d37ada91edd9.tar.gz emacs-ec2dfd110c407038ab1abc7fd713d37ada91edd9.zip | |
cc-fonts.el: Eliminate an Emacs compiler warning introduced yesterday.
* lisp/progmodes/cc-fonts.el (top level): Introduce a cc-bytecomp-defvar for
font-lock-reference-face.
| -rw-r--r-- | lisp/progmodes/cc-fonts.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el index c52f4a8416b..5d80eb58e38 100644 --- a/lisp/progmodes/cc-fonts.el +++ b/lisp/progmodes/cc-fonts.el | |||
| @@ -99,6 +99,8 @@ | |||
| 99 | (cc-bytecomp-defun c-font-lock-invalid-string) | 99 | (cc-bytecomp-defun c-font-lock-invalid-string) |
| 100 | (cc-bytecomp-defun c-font-lock-fontify-region) | 100 | (cc-bytecomp-defun c-font-lock-fontify-region) |
| 101 | 101 | ||
| 102 | (cc-bytecomp-defvar font-lock-reference-face) ; For Emacs 29 | ||
| 103 | |||
| 102 | 104 | ||
| 103 | ;; Note that font-lock in XEmacs doesn't expand face names as | 105 | ;; Note that font-lock in XEmacs doesn't expand face names as |
| 104 | ;; variables, so we have to use the (eval . FORM) in the font lock | 106 | ;; variables, so we have to use the (eval . FORM) in the font lock |
| @@ -165,9 +167,8 @@ | |||
| 165 | 167 | ||
| 166 | (defconst c-doc-markup-face-name | 168 | (defconst c-doc-markup-face-name |
| 167 | (if (c-face-name-p 'font-lock-doc-markup-face) | 169 | (if (c-face-name-p 'font-lock-doc-markup-face) |
| 168 | ;; If it happens to occur in the future. (Well, the more | 170 | ;; Exists in Emacs 28+. (For other emacsen, the pragmatic |
| 169 | ;; pragmatic reason is to get unique faces for the test | 171 | ;; reason is to get unique faces for the test suite.) |
| 170 | ;; suite.) | ||
| 171 | 'font-lock-doc-markup-face | 172 | 'font-lock-doc-markup-face |
| 172 | c-label-face-name)) | 173 | c-label-face-name)) |
| 173 | 174 | ||