/[emacs]/emacs/lisp/progmodes/scheme.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/scheme.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41 by fx, Tue Oct 29 18:48:30 2002 UTC revision 1.42 by monnier, Tue Feb 11 21:23:00 2003 UTC
# Line 53  Line 53 
53    
54  (require 'lisp-mode)  (require 'lisp-mode)
55    
56  (defvar scheme-mode-syntax-table nil)  (defvar scheme-mode-syntax-table
57  (if (not scheme-mode-syntax-table)    (let ((st (make-syntax-table))
58      (let ((i 0))          (i 0))
59        (setq scheme-mode-syntax-table (make-syntax-table))      (with-syntax-table st
       (set-syntax-table scheme-mode-syntax-table)  
60    
61        ;; Default is atom-constituent.        ;; Default is atom-constituent.
62        (while (< i 256)        (while (< i 256)
# Line 105  Line 104 
104        (modify-syntax-entry ?, "_ p")        (modify-syntax-entry ?, "_ p")
105        (modify-syntax-entry ?@ "_ p")        (modify-syntax-entry ?@ "_ p")
106        (modify-syntax-entry ?# "_ p14")        (modify-syntax-entry ?# "_ p14")
107        (modify-syntax-entry ?\\ "\\   ")))        (modify-syntax-entry ?\\ "\\   "))
108        st))
109    
110  (defvar scheme-mode-abbrev-table nil)  (defvar scheme-mode-abbrev-table nil)
111  (define-abbrev-table 'scheme-mode-abbrev-table ())  (define-abbrev-table 'scheme-mode-abbrev-table ())

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26