diff options
| author | Stefan Monnier | 2003-02-11 21:23:00 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-02-11 21:23:00 +0000 |
| commit | 9fce950d2888b3915d237d47a79654a477a67a70 (patch) | |
| tree | 2cbccd8ff3fdff3a8b3412a0de6a637a5edf330e | |
| parent | e284737dc542b777a6c8e8690ceb85c0bba630c8 (diff) | |
| download | emacs-9fce950d2888b3915d237d47a79654a477a67a70.tar.gz emacs-9fce950d2888b3915d237d47a79654a477a67a70.zip | |
(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 @@ | |||
| 53 | 53 | ||
| 54 | (require 'lisp-mode) | 54 | (require 'lisp-mode) |
| 55 | 55 | ||
| 56 | (defvar scheme-mode-syntax-table nil) | 56 | (defvar scheme-mode-syntax-table |
| 57 | (if (not scheme-mode-syntax-table) | 57 | (let ((st (make-syntax-table)) |
| 58 | (let ((i 0)) | 58 | (i 0)) |
| 59 | (setq scheme-mode-syntax-table (make-syntax-table)) | 59 | (with-syntax-table st |
| 60 | (set-syntax-table scheme-mode-syntax-table) | ||
| 61 | 60 | ||
| 62 | ;; Default is atom-constituent. | 61 | ;; Default is atom-constituent. |
| 63 | (while (< i 256) | 62 | (while (< i 256) |
| @@ -105,7 +104,8 @@ | |||
| 105 | (modify-syntax-entry ?, "_ p") | 104 | (modify-syntax-entry ?, "_ p") |
| 106 | (modify-syntax-entry ?@ "_ p") | 105 | (modify-syntax-entry ?@ "_ p") |
| 107 | (modify-syntax-entry ?# "_ p14") | 106 | (modify-syntax-entry ?# "_ p14") |
| 108 | (modify-syntax-entry ?\\ "\\ "))) | 107 | (modify-syntax-entry ?\\ "\\ ")) |
| 108 | st)) | ||
| 109 | 109 | ||
| 110 | (defvar scheme-mode-abbrev-table nil) | 110 | (defvar scheme-mode-abbrev-table nil) |
| 111 | (define-abbrev-table 'scheme-mode-abbrev-table ()) | 111 | (define-abbrev-table 'scheme-mode-abbrev-table ()) |