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

[Thien-Thi Nguyen]

Index: emacs/lisp/progmodes/scheme.el
diff -c emacs/lisp/progmodes/scheme.el:1.42 emacs/lisp/progmodes/scheme.el:1.43
*** emacs/lisp/progmodes/scheme.el:1.42 Tue Feb 11 16:23:00 2003
--- emacs/lisp/progmodes/scheme.el      Mon Mar 10 06:31:20 2003
***************
*** 56,110 ****
  (defvar scheme-mode-syntax-table
    (let ((st (make-syntax-table))
        (i 0))
-     (with-syntax-table st
  
!       ;; Default is atom-constituent.
!       (while (< i 256)
!       (modify-syntax-entry i "_   ")
!       (setq i (1+ i)))
! 
!       ;; Word components.
!       (setq i ?0)
!       (while (<= i ?9)
!       (modify-syntax-entry i "w   ")
!       (setq i (1+ i)))
!       (setq i ?A)
!       (while (<= i ?Z)
!       (modify-syntax-entry i "w   ")
!       (setq i (1+ i)))
!       (setq i ?a)
!       (while (<= i ?z)
!       (modify-syntax-entry i "w   ")
!       (setq i (1+ i)))
! 
!       ;; Whitespace
!       (modify-syntax-entry ?\t "    ")
!       (modify-syntax-entry ?\n ">   ")
!       (modify-syntax-entry ?\f "    ")
!       (modify-syntax-entry ?\r "    ")
!       (modify-syntax-entry ?  "    ")
! 
!       ;; These characters are delimiters but otherwise undefined.
!       ;; Brackets and braces balance for editing convenience.
!       (modify-syntax-entry ?\[ "(]  ")
!       (modify-syntax-entry ?\] ")[  ")
!       (modify-syntax-entry ?{ "(}  ")
!       (modify-syntax-entry ?} "){  ")
!       (modify-syntax-entry ?\| "  23")
! 
!       ;; Other atom delimiters
!       (modify-syntax-entry ?\( "()  ")
!       (modify-syntax-entry ?\) ")(  ")
!       (modify-syntax-entry ?\; "<   ")
!       (modify-syntax-entry ?\" "\"    ")
!       (modify-syntax-entry ?' "  p")
!       (modify-syntax-entry ?` "  p")
! 
!       ;; Special characters
!       (modify-syntax-entry ?, "_ p")
!       (modify-syntax-entry ?@ "_ p")
!       (modify-syntax-entry ?# "_ p14")
!       (modify-syntax-entry ?\\ "\\   "))
      st))
  
  (defvar scheme-mode-abbrev-table nil)
--- 56,109 ----
  (defvar scheme-mode-syntax-table
    (let ((st (make-syntax-table))
        (i 0))
  
!     ;; Default is atom-constituent.
!     (while (< i 256)
!       (modify-syntax-entry i "_   " st)
!       (setq i (1+ i)))
! 
!     ;; Word components.
!     (setq i ?0)
!     (while (<= i ?9)
!       (modify-syntax-entry i "w   " st)
!       (setq i (1+ i)))
!     (setq i ?A)
!     (while (<= i ?Z)
!       (modify-syntax-entry i "w   " st)
!       (setq i (1+ i)))
!     (setq i ?a)
!     (while (<= i ?z)
!       (modify-syntax-entry i "w   " st)
!       (setq i (1+ i)))
! 
!     ;; Whitespace
!     (modify-syntax-entry ?\t "    " st)
!     (modify-syntax-entry ?\n ">   " st)
!     (modify-syntax-entry ?\f "    " st)
!     (modify-syntax-entry ?\r "    " st)
!     (modify-syntax-entry ?  "    " st)
! 
!     ;; These characters are delimiters but otherwise undefined.
!     ;; Brackets and braces balance for editing convenience.
!     (modify-syntax-entry ?\[ "(]  " st)
!     (modify-syntax-entry ?\] ")[  " st)
!     (modify-syntax-entry ?{ "(}  " st)
!     (modify-syntax-entry ?} "){  " st)
!     (modify-syntax-entry ?\| "  23" st)
! 
!     ;; Other atom delimiters
!     (modify-syntax-entry ?\( "()  " st)
!     (modify-syntax-entry ?\) ")(  " st)
!     (modify-syntax-entry ?\; "<   " st)
!     (modify-syntax-entry ?\" "\"    " st)
!     (modify-syntax-entry ?' "  p" st)
!     (modify-syntax-entry ?` "  p" st)
! 
!     ;; Special characters
!     (modify-syntax-entry ?, "_ p" st)
!     (modify-syntax-entry ?@ "_ p" st)
!     (modify-syntax-entry ?# "_ p14" st)
!     (modify-syntax-entry ?\\ "\\   " st)
      st))
  
  (defvar scheme-mode-abbrev-table nil)
***************
*** 167,173 ****
          '((scheme-font-lock-keywords
             scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)
            nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun
!           (font-lock-mark-block-function . mark-defun))))
  
  (defvar scheme-mode-line-process "")
  
--- 166,173 ----
          '((scheme-font-lock-keywords
             scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)
            nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun
!           (font-lock-mark-block-function . mark-defun)
!           (font-lock-syntactic-face-function . 
lisp-font-lock-syntactic-face-function))))
  
  (defvar scheme-mode-line-process "")