procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix more obsoletion warnings

Browse source 
* lisp/progmodes/cc-awk.el (awk-font-lock-keywords):
* lisp/progmodes/cc-fonts.el (c-basic-matchers-before):
* lisp/progmodes/csharp-mode.el (c-basic-matchers-before): Use faces
instead of variables to silence an obsoletion warning.  (Bug#71469)
This commit is contained in:
Stefan Kangas 2024-12-19 01:33:56 +01:00
parent 807b617252
commit cd7e462ea3
3 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/cc-awk.el
View file

@ -966,11 +966,11 @@
;; Function declarations.
`(,(c-make-font-lock-search-function
"^\\s *\\(func\\(tion\\)?\\)\\s +\\(\\(\\sw+\\(::\\sw+\\)?\\)\\s *\\)?\\(([^()]*)\\)?"
'(1 font-lock-keyword-face t)
'(1 'font-lock-keyword-face t)
;; We can't use LAXMATCH in `c-make-font-lock-search-function', so....
'((when (match-beginning 4)
(c-put-font-lock-face
(match-beginning 4) (match-end 4) font-lock-function-name-face)
(match-beginning 4) (match-end 4) 'font-lock-function-name-face)
nil))
;; Put warning face on any use of :: inside the parens.
'((when (match-beginning 6)

2
lisp/progmodes/cc-fonts.el
View file

@ -898,7 +898,7 @@ casts and declarations are fontified. Used on level 2 and higher."
(c-lang-const c-simple-ws) "*"
"=\\(?:[^=]\\|$\\)")
`((,(+ 1 (c-lang-const c-simple-ws-depth))
font-lock-type-face t)))))))))
'font-lock-type-face t)))))))))
;; Fontify the special declarations in Objective-C.
,@(when (c-major-mode-is 'objc-mode)

6
lisp/progmodes/csharp-mode.el
View file

@ -335,7 +335,7 @@
;; Chained identifiers in using/namespace statements
,`(,(c-make-font-lock-search-function
csharp--regex-using-or-namespace
`((csharp--color-forwards font-lock-variable-name-face)
`((csharp--color-forwards 'font-lock-variable-name-face)
nil
(goto-char (match-end 0)))))
@ -348,7 +348,7 @@
;; Single identifier in attribute
(eval . (list (concat "\\[" csharp--regex-type-name-matcher "\\][^;]")
1 font-lock-variable-name-face t))
1 'font-lock-variable-name-face t))
;; Function names
(eval . (list "\\([A-Za-z0-9_]+\\)\\(<[a-zA-Z0-9, ]+>\\)?("
@ -361,7 +361,7 @@
(eval . (list (concat "\\<nameof\\> *( *"
csharp--regex-identifier-matcher
" *) *")
1 font-lock-variable-name-face))
1 'font-lock-variable-name-face))
;; Catch statements with type only
(eval . (list (concat "\\<catch\\> *( *"