From 9fce950d2888b3915d237d47a79654a477a67a70 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 11 Feb 2003 21:23:00 +0000 Subject: [PATCH] (scheme-mode-syntax-table): Don't switch the current buffer's syntax-table. --- lisp/progmodes/scheme.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index eb002b1905..7afdbf4cc0 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 ()) -- 2.20.1