branch: elpa/adoc-mode
commit 893daa395c8dc8b5f51d7545004e39b15a68db56
Author: Bozhidar Batsov <bozhi...@batsov.dev>
Commit: Bozhidar Batsov <bozhi...@batsov.dev>
Move the syntax-table out of the mode definition
---
adoc-mode.el | 41 +++++++++++++++++++++--------------------
1 file changed, 21 insertions(+), 20 deletions(-)
diff --git a/adoc-mode.el b/adoc-mode.el
index dbf1e9baeb..73b8fed5e3 100644
--- a/adoc-mode.el
+++ b/adoc-mode.el
@@ -2834,31 +2834,32 @@ LOCAL-ATTRIBUTE-FACE-ALIST before it is looked up in
(cons (cons title-text title-pos) index-alist)))))
(nreverse index-alist)))
+(defvar adoc-mode-syntax-table
+ (let ((table (make-syntax-table)))
+ (modify-syntax-entry ?$ "." table)
+ (modify-syntax-entry ?% "." table)
+ (modify-syntax-entry ?& "." table)
+ (modify-syntax-entry ?' "." table)
+ (modify-syntax-entry ?` "." table)
+ (modify-syntax-entry ?\" "." table)
+ (modify-syntax-entry ?* "." table)
+ (modify-syntax-entry ?+ "." table)
+ (modify-syntax-entry ?. "." table)
+ (modify-syntax-entry ?/ "." table)
+ (modify-syntax-entry ?< "." table)
+ (modify-syntax-entry ?= "." table)
+ (modify-syntax-entry ?> "." table)
+ (modify-syntax-entry ?\\ "." table)
+ (modify-syntax-entry ?| "." table)
+ (modify-syntax-entry ?_ "." table)
+ table)
+ "Syntax table to use in adoc-mode.")
+
;;;###autoload
(define-derived-mode adoc-mode text-mode "adoc"
"Major mode for editing AsciiDoc text files.
Turning on Adoc mode runs the normal hook `adoc-mode-hook'."
-
- ;; syntax table
- ;; TODO: do it as other modes do it, eg rst-mode?
- (modify-syntax-entry ?$ ".")
- (modify-syntax-entry ?% ".")
- (modify-syntax-entry ?& ".")
- (modify-syntax-entry ?' ".")
- (modify-syntax-entry ?` ".")
- (modify-syntax-entry ?\" ".")
- (modify-syntax-entry ?* ".")
- (modify-syntax-entry ?+ ".")
- (modify-syntax-entry ?. ".")
- (modify-syntax-entry ?/ ".")
- (modify-syntax-entry ?< ".")
- (modify-syntax-entry ?= ".")
- (modify-syntax-entry ?> ".")
- (modify-syntax-entry ?\\ ".")
- (modify-syntax-entry ?| ".")
- (modify-syntax-entry ?_ ".")
-
;; comments
(set (make-local-variable 'comment-column) 0)
(set (make-local-variable 'comment-start) "// ")
