53 |
|
|
54 |
(require 'lisp-mode) |
(require 'lisp-mode) |
55 |
|
|
56 |
(defvar scheme-mode-syntax-table nil) |
(defvar scheme-mode-syntax-table |
57 |
(if (not scheme-mode-syntax-table) |
(let ((st (make-syntax-table)) |
58 |
(let ((i 0)) |
(i 0)) |
59 |
(setq scheme-mode-syntax-table (make-syntax-table)) |
(with-syntax-table st |
|
(set-syntax-table scheme-mode-syntax-table) |
|
60 |
|
|
61 |
;; Default is atom-constituent. |
;; Default is atom-constituent. |
62 |
(while (< i 256) |
(while (< i 256) |
104 |
(modify-syntax-entry ?, "_ p") |
(modify-syntax-entry ?, "_ p") |
105 |
(modify-syntax-entry ?@ "_ p") |
(modify-syntax-entry ?@ "_ p") |
106 |
(modify-syntax-entry ?# "_ p14") |
(modify-syntax-entry ?# "_ p14") |
107 |
(modify-syntax-entry ?\\ "\\ "))) |
(modify-syntax-entry ?\\ "\\ ")) |
108 |
|
st)) |
109 |
|
|
110 |
(defvar scheme-mode-abbrev-table nil) |
(defvar scheme-mode-abbrev-table nil) |
111 |
(define-abbrev-table 'scheme-mode-abbrev-table ()) |
(define-abbrev-table 'scheme-mode-abbrev-table ()) |