# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1044998580 0
# Node ID ada6655eb465986fac5d31fa526f533e2743d321
# Parent  36beaccb197a4edc136a9ed114a6fa9d4bff1d73
(scheme-mode-syntax-table): Don't switch the current buffer's syntax-table.

diff -r 36beaccb197a -r ada6655eb465 lisp/progmodes/scheme.el
--- a/lisp/progmodes/scheme.el	Tue Feb 11 21:19:36 2003 +0000
+++ b/lisp/progmodes/scheme.el	Tue Feb 11 21:23:00 2003 +0000
@@ -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 ())