(scheme-mode-syntax-table): Don't switch the current buffer's syntax-table.

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index eb002b1..7afdbf4 100644 (file)
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -53,11 +53,10 @@
 \f
 (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))
 \f
 (defvar scheme-mode-abbrev-table nil)
 (define-abbrev-table 'scheme-mode-abbrev-table ())