[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/scheme.el
From: |
Thien-Thi Nguyen |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/scheme.el |
Date: |
Mon, 10 Mar 2003 06:31:20 -0500 |
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 "")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/scheme.el,
Thien-Thi Nguyen <=