Lines Matching defs:table
37 ;; Syntax table for CASL major mode
38 (defvar casl-mode-syntax-table nil
39 "Syntax table for CASL mode.")
41 (if casl-mode-syntax-table
43 (let ((table (make-syntax-table)))
45 (modify-syntax-entry ?_ "w" table)
46 (modify-syntax-entry ?\t " " table)
47 (modify-syntax-entry ?\" "\"" table)
48 (modify-syntax-entry ?\' "\'" table)
51 (modify-syntax-entry x "_" table))
57 (modify-syntax-entry ?( "()" table)
58 (modify-syntax-entry ?) ")(" table)
59 (modify-syntax-entry ?{ "(}2" table)
60 (modify-syntax-entry ?} "){3" table)
61 (modify-syntax-entry ?[ "(]2" table)
62 (modify-syntax-entry ?] ")[3" table)
63 (modify-syntax-entry ?% "_ 14" table))
66 (modify-syntax-entry ?\( "()" table)
67 (modify-syntax-entry ?\) ")(" table)
68 (modify-syntax-entry ?{ "(} 2n" table)
69 (modify-syntax-entry ?} "){ 3n" table)
70 (modify-syntax-entry ?% ". 14nb" table)
71 (modify-syntax-entry ?\[ "(] 2n" table)
72 (modify-syntax-entry ?\] ")[ 3n" table))
74 (setq casl-mode-syntax-table table))
503 ;; Load syntax table
504 (set-syntax-table casl-mode-syntax-table)
505 ;; (casl-create-syntax-table)