From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 9 Feb 2024 19:22:14 +0000 (-0500)
Subject: modula2.el: Avoid font-lock-*-face variables
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ec5cb9890e4d7ed0b0c720d11ed552e4505c2b9;p=emacs.git

modula2.el: Avoid font-lock-*-face variables

* lisp/progmodes/modula2.el (m3-font-lock-keywords-1)
(m3-font-lock-keywords-2): Refer to the font-lock faces directly

(cherry picked from commit efedb8f479f1f2cf4d7ce703c6411dd756d2843d)
---

diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index 09cb848fd52..2bb31988290 100644
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -325,20 +325,20 @@ followed by the first character of the construct.
     ;;
     ;; Module definitions.
     ("\\<\\(INTERFACE\\|MODULE\\|PROCEDURE\\)\\>[ \t]*\\(\\sw+\\)?"
-     (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
+     (1 'font-lock-keyword-face) (2 'font-lock-function-name-face nil t))
     ;;
     ;; Import directives.
     ("\\<\\(EXPORTS\\|FROM\\|IMPORT\\)\\>"
-     (1 font-lock-keyword-face)
+     (1 'font-lock-keyword-face)
      (font-lock-match-c-style-declaration-item-and-skip-to-next
       nil (goto-char (match-end 0))
-      (1 font-lock-constant-face)))
+      (1 'font-lock-constant-face)))
     ;;
     ;; Pragmas as warnings.
     ;; Spencer Allain <sallain@teknowledge.com> says do them as comments...
     ;; ("<\\*.*\\*>" . font-lock-warning-face)
     ;; ... but instead we fontify the first word.
-    ("<\\*[ \t]*\\(\\sw+\\)" 1 font-lock-warning-face prepend)
+    ("<\\*[ \t]*\\(\\sw+\\)" 1 'font-lock-warning-face prepend)
     )
   "Subdued level highlighting for Modula-3 modes.")
 
@@ -366,26 +366,29 @@ followed by the first character of the construct.
 	       "LOOPHOLE" "MAX" "MIN" "NARROW" "NEW" "NUMBER" "ORD"
 	       "ROUND" "SUBARRAY" "TRUNC" "TYPECODE" "VAL")))
 	   )
-       (list
-	;;
-	;; Keywords except those fontified elsewhere.
-	(concat "\\<\\(" m3-keywords "\\)\\>")
-	;;
-	;; Builtins.
-	(cons (concat "\\<\\(" m3-builtins "\\)\\>") 'font-lock-builtin-face)
-	;;
-	;; Type names.
-	(cons (concat "\\<\\(" m3-types "\\)\\>") 'font-lock-type-face)
-	;;
-	;; Fontify tokens as function names.
-	'("\\<\\(END\\|EXCEPTION\\|RAISES?\\)\\>[ \t{]*"
-	  (1 font-lock-keyword-face)
+       `(
+	 ;;
+	 ;; Keywords except those fontified elsewhere.
+	 ,(concat "\\<\\(" m3-keywords "\\)\\>")
+	 ;;
+	 ;; Builtins.
+	 (,(concat "\\<\\(" m3-builtins "\\)\\>")
+	  (0 'font-lock-builtin-face))
+	 ;;
+	 ;; Type names.
+	 (,(concat "\\<\\(" m3-types "\\)\\>")
+	  (0 'font-lock-type-face))
+	 ;;
+	 ;; Fontify tokens as function names.
+	 ("\\<\\(END\\|EXCEPTION\\|RAISES?\\)\\>[ \t{]*"
+	  (1 'font-lock-keyword-face)
 	  (font-lock-match-c-style-declaration-item-and-skip-to-next
 	   nil (goto-char (match-end 0))
-	   (1 font-lock-function-name-face)))
-	;;
-	;; Fontify constants as references.
-	'("\\<\\(FALSE\\|NIL\\|NULL\\|TRUE\\)\\>" . font-lock-constant-face)
+	   (1 'font-lock-function-name-face)))
+	 ;;
+	 ;; Fontify constants as references.
+	 ("\\<\\(FALSE\\|NIL\\|NULL\\|TRUE\\)\\>"
+	  (0 'font-lock-constant-face))
 	))))
   "Gaudy level highlighting for Modula-3 modes.")