[Emacs-diffs] Changes to emacs/lisp/progmodes/scheme.el

[Stefan Monnier]

Index: emacs/lisp/progmodes/scheme.el
diff -c emacs/lisp/progmodes/scheme.el:1.41 emacs/lisp/progmodes/scheme.el:1.42
*** emacs/lisp/progmodes/scheme.el:1.41 Tue Oct 29 13:48:30 2002
--- emacs/lisp/progmodes/scheme.el      Tue Feb 11 16:23:00 2003
***************
*** 53,63 ****
  
  (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)
  
        ;; Default is atom-constituent.
        (while (< i 256)
--- 53,62 ----
  
  (require 'lisp-mode)
  
! (defvar scheme-mode-syntax-table
!   (let ((st (make-syntax-table))
!       (i 0))
!     (with-syntax-table st
  
        ;; Default is atom-constituent.
        (while (< i 256)
***************
*** 105,111 ****
        (modify-syntax-entry ?, "_ p")
        (modify-syntax-entry ?@ "_ p")
        (modify-syntax-entry ?# "_ p14")
!       (modify-syntax-entry ?\\ "\\   ")))
  
  (defvar scheme-mode-abbrev-table nil)
  (define-abbrev-table 'scheme-mode-abbrev-table ())
--- 104,111 ----
        (modify-syntax-entry ?, "_ p")
        (modify-syntax-entry ?@ "_ p")
        (modify-syntax-entry ?# "_ p14")
!       (modify-syntax-entry ?\\ "\\   "))
!     st))
  
  (defvar scheme-mode-abbrev-table nil)
  (define-abbrev-table 'scheme-mode-abbrev-table ())