[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 ()