emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/bison-mode f52263f 18/29: Simplifying font-lock variables.


From: ELPA Syncer
Subject: [nongnu] elpa/bison-mode f52263f 18/29: Simplifying font-lock variables.
Date: Sun, 29 Aug 2021 10:58:43 -0400 (EDT)

branch: elpa/bison-mode
commit f52263fa394ef8288bc3659080aca46e818c0606
Author: Wilfred Hughes <me@wilfred.me.uk>
Commit: Wilfred Hughes <me@wilfred.me.uk>

    Simplifying font-lock variables.
---
 bison-mode.el | 17 +++--------------
 1 file changed, 3 insertions(+), 14 deletions(-)

diff --git a/bison-mode.el b/bison-mode.el
index 790ccbd..552a901 100644
--- a/bison-mode.el
+++ b/bison-mode.el
@@ -143,22 +143,15 @@ key's electric variable")
   "non-nil means use an electric greater-than")
 
 
-(defvar bison-font-lock-keywords-1 c-font-lock-keywords
-  "Basic highlighting for Bison mode.")
-
-(defvar bison-font-lock-keywords-2
+(defconst bison-font-lock-keywords
   (append
    (list
     (cons (concat "^\\(" (regexp-opt bison--declarers) "\\)")
          '(1 font-lock-keyword-face))
     )
-   bison-font-lock-keywords-1)
-  "Gaudy highlighting for Bison mode.")
-
-(defvar bison-font-lock-keywords bison-font-lock-keywords-2
+   c-font-lock-keywords)
   "Default expressions to highlight in Bison mode")
 
-
 ;; *************** utilities ***************
 
 (defun just-no-space ()
@@ -241,11 +234,7 @@ and \(point\)"
        comment-end "*/")
   (make-local-variable 'font-lock-keywords)
   (setq font-lock-keywords nil)
-  (make-local-variable 'font-lock-defaults)
-  (setq font-lock-defaults '((bison-font-lock-keywords
-                             bison-font-lock-keywords-1
-                             bison-font-lock-keywords-2)
-                            nil nil nil)))
+  (set (make-local-variable 'font-lock-defaults) '(bison-font-lock-keywords)))
 
 
 ;; *************** section parsers ***************



reply via email to

[Prev in Thread] Current Thread [Next in Thread]