Mercurial > emacs

changeset 49732:ada6655eb465

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scheme-mode-syntax-table): Don't switch the current buffer's syntax-table.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 11 Feb 2003 21:23:00 +0000
parents 36beaccb197a
children 8c39780e4fdf
files lisp/progmodes/scheme.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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 ())