diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-02-11 21:23:00 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-02-11 21:23:00 +0000 |
| commit | 9fce950d2888b3915d237d47a79654a477a67a70 (patch) | |
| tree | 2cbccd8ff3fdff3a8b3412a0de6a637a5edf330e | |
| parent | e284737dc542b777a6c8e8690ceb85c0bba630c8 (diff) | |
| download | emacs-9fce950d2888b3915d237d47a79654a477a67a70.tar.gz | |
(scheme-mode-syntax-table): Don't switch the current buffer's syntax-table.
| -rw-r--r-- | lisp/progmodes/scheme.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index eb002b1905c..7afdbf4cc03 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -53,11 +53,10 @@ (require 'lisp-mode) -(defvar scheme-mode-syntax-table nil) -(if (not scheme-mode-syntax-table) - (let ((i 0)) - (setq scheme-mode-syntax-table (make-syntax-table)) - (set-syntax-table scheme-mode-syntax-table) +(defvar scheme-mode-syntax-table + (let ((st (make-syntax-table)) + (i 0)) + (with-syntax-table st ;; Default is atom-constituent. (while (< i 256) @@ -105,7 +104,8 @@ (modify-syntax-entry ?, "_ p") (modify-syntax-entry ?@ "_ p") (modify-syntax-entry ?# "_ p14") - (modify-syntax-entry ?\\ "\\ "))) + (modify-syntax-entry ?\\ "\\ ")) + st)) (defvar scheme-mode-abbrev-table nil) (define-abbrev-table 'scheme-mode-abbrev-table ()) |