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

[Miles Bader]

Index: emacs/lisp/progmodes/scheme.el
diff -c emacs/lisp/progmodes/scheme.el:1.39.8.1 
emacs/lisp/progmodes/scheme.el:1.39.8.2
*** emacs/lisp/progmodes/scheme.el:1.39.8.1     Fri Apr  4 01:20:36 2003
--- emacs/lisp/progmodes/scheme.el      Tue Oct 14 19:30:18 2003
***************
*** 96,108 ****
      (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))
  
--- 96,108 ----
      (modify-syntax-entry ?\) ")(  " st)
      (modify-syntax-entry ?\; "<   " st)
      (modify-syntax-entry ?\" "\"    " st)
!     (modify-syntax-entry ?' "'   " st)
!     (modify-syntax-entry ?` "'   " st)
  
      ;; Special characters
!     (modify-syntax-entry ?, "'   " st)
!     (modify-syntax-entry ?@ "'   " st)
!     (modify-syntax-entry ?# "'  14" st)
      (modify-syntax-entry ?\\ "\\   " st)
      st))
  
***************
*** 165,171 ****
    (setq font-lock-defaults
          '((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))))
  
--- 165,171 ----
    (setq font-lock-defaults
          '((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))))
  
***************
*** 337,344 ****
        ;; David Fox <address@hidden> for SOS/STklos class specifiers.
        '("\\<<\\sw+>\\>" . font-lock-type-face)
        ;;
!       ;; Scheme `:' keywords as builtins.
!       '("\\<:\\sw+\\>" . font-lock-builtin-face)
        )))
    "Gaudy expressions to highlight in Scheme modes.")
  
--- 337,344 ----
        ;; David Fox <address@hidden> for SOS/STklos class specifiers.
        '("\\<<\\sw+>\\>" . font-lock-type-face)
        ;;
!       ;; Scheme `:' and `#:' keywords as builtins.
!       '("\\<#?:\\sw+\\>" . font-lock-builtin-face)
        )))
    "Gaudy expressions to highlight in Scheme modes.")
  
***************
*** 558,561 ****
--- 558,562 ----
  
  (provide 'scheme)
  
+ ;;; arch-tag: a8f06bc1-ad11-42d2-9e36-ce651df37a90
  ;;; scheme.el ends here