215 |
`(let ((parent (char-table-parent ,syntax))) |
`(let ((parent (char-table-parent ,syntax))) |
216 |
(unless (and parent |
(unless (and parent |
217 |
(not (eq parent (standard-syntax-table)))) |
(not (eq parent (standard-syntax-table)))) |
218 |
(set-char-table-parent ,syntax (syntax-table))))) |
(set-char-table-parent ,syntax (syntax-table))))))) |
|
,(when declare-abbrev |
|
|
`(when local-abbrev-table |
|
|
(mapatoms |
|
|
(lambda (symbol) |
|
|
(or (intern-soft (symbol-name symbol) ,abbrev) |
|
|
(define-abbrev ,abbrev |
|
|
(symbol-name symbol) |
|
|
(symbol-value symbol) |
|
|
(symbol-function symbol)))) |
|
|
local-abbrev-table))))) |
|
219 |
|
|
220 |
(use-local-map ,map) |
(use-local-map ,map) |
221 |
,(when syntax `(set-syntax-table ,syntax)) |
,(when syntax `(set-syntax-table ,syntax)) |