From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 11 Feb 2003 21:23:00 +0000 (+0000)
Subject: (scheme-mode-syntax-table): Don't switch the current buffer's syntax-table.
X-Git-Tag: ttn-vms-21-2-B4~11236
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fce950d2888b3915d237d47a79654a477a67a70;p=emacs.git

(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 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 ())