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

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

[nongnu] elpa/scad-mode 54c2105b40 3/3: Simplify


From: ELPA Syncer
Subject: [nongnu] elpa/scad-mode 54c2105b40 3/3: Simplify
Date: Sun, 13 Nov 2022 10:59:12 -0500 (EST)

branch: elpa/scad-mode
commit 54c2105b400ace851e5c86da360ac69f106e4dc2
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Simplify
---
 scad-mode.el | 22 +++-------------------
 1 file changed, 3 insertions(+), 19 deletions(-)

diff --git a/scad-mode.el b/scad-mode.el
index 5649047826..d5714271f7 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -139,29 +139,14 @@ Options are axes, crosshairs, edges, scales, wireframe."
 
 (defvar scad-mode-syntax-table
   (let ((st (make-syntax-table)))
-    ;; support comment style: // and /* ... */
-    (modify-syntax-entry ?\/ ". 124b" st)
-    (modify-syntax-entry ?\n "> b" st)
-    (modify-syntax-entry ?* ". 23" st)
-    ;; Extra punctuation
-    (modify-syntax-entry ?+  "." st)
-    (modify-syntax-entry ?-  "." st)
-    (modify-syntax-entry ?%  "." st)
-    (modify-syntax-entry ?<  "." st)
-    (modify-syntax-entry ?>  "." st)
-    (modify-syntax-entry ?&  "." st)
-    (modify-syntax-entry ?:  "." st)
-    (modify-syntax-entry ?|  "." st)
-    (modify-syntax-entry ?=  "." st)
-    (modify-syntax-entry ?\;  "." st)
+    (c-populate-syntax-table st)
     st)
   "Syntax table for `scad-mode'.")
 
 (defvar scad-font-lock-keywords
   `(("\\(module\\|function\\)[ \t]+\\(\\sw+\\)" (1 'font-lock-keyword-face 
nil) (2 'font-lock-function-name-face nil t))
     ("\\(use\\|include\\)[ \t]*<\\([^>]+\\)>" (1 'font-lock-preprocessor-face 
nil) (2 'font-lock-type-face nil t))
-    ("<\\(\\sw+\\)>" (0 'font-lock-builtin-face nil))
-    ("$\\(\\sw+\\)" (0 'font-lock-builtin-face nil))
+    ("<\\(\\sw+\\)>\\|$\\(\\sw+\\)" . font-lock-builtin-face)
     (,(regexp-opt scad-keywords 'words)   . font-lock-keyword-face)
     (,(regexp-opt scad-modules 'words)    . font-lock-builtin-face)
     (,(regexp-opt scad-functions 'words)  . font-lock-function-name-face)
@@ -203,9 +188,8 @@ Key bindings:
   (c-initialize-cc-mode t)
   (setq abbrev-mode t)
   (c-init-language-vars scad-mode)
-  (c-basic-common-init 'scad-mode c-default-style)
+  (c-common-init 'scad-mode)
   (c-set-offset 'cpp-macro 0 nil)
-  (c-font-lock-init)
   (c-run-mode-hooks 'c-mode-common-hook))
 
 (defun scad-completion-at-point ()



reply via email to

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