diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-31 14:18:42 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-31 14:18:42 -0700 |
| commit | 17738e54ee7c90e14f632907de9f27cd9429c634 (patch) | |
| tree | 476d47dc5cb72f1f7c4a84a447e554b6fbd93ba4 | |
| parent | e26a3051e84146fc888ba6ce19ba34f5427366ab (diff) | |
| download | dotfiles-17738e54ee7c90e14f632907de9f27cd9429c634.tar.gz | |
Experimental syntax table additions for CL, inc. for CL-INTERPOL
| -rw-r--r-- | .emacs.d/init-spw.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index 571b62d2..72c5478b 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -2730,6 +2730,12 @@ mutt's review view, after exiting EDITOR." (define-key emacs-lisp-mode-map "\C-cx" #'eval-buffer) +(with-eval-after-load 'lisp-mode + ;; Experimental additions to syntax table for Common Lisp, inc. CL-INTERPOL. + (dolist (pair '((?P . "_ p") (?? . "_ p") (?R . "_ p") (?X . "_ p") + (?/ . "\""))) + (modify-syntax-entry (car pair) (cdr pair) lisp-mode-syntax-table))) + (with-eval-after-load 'xscheme (define-key scheme-mode-map "\eo" nil) (define-key scheme-mode-map "\C-c\C-l" #'xscheme-send-buffer) |