Commit f13f86fb authored by Chong Yidong's avatar Chong Yidong
Browse files

Fix some word/symbol classifications in scheme-mode's syntax table.

* lisp/progmodes/scheme.el (scheme-mode-syntax-table): Don't use
symbol-constituent as the default, as that stops font-lock from
working properly.

Fixes: debbugs:8843
parent e013fb34
2011-08-22 Chong Yidong <cyd@stupidchicken.com>
* progmodes/scheme.el (scheme-mode-syntax-table): Don't use
symbol-constituent as the default, as that stops font-lock from
working properly (Bug#8843).
2011-08-21 Lars Magne Ingebrigtsen <larsi@gnus.org> 2011-08-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/smtpmail.el (smtpmail-via-smtp): Only bind * mail/smtpmail.el (smtpmail-via-smtp): Only bind
......
...@@ -55,24 +55,24 @@ ...@@ -55,24 +55,24 @@
(defvar scheme-mode-syntax-table (defvar scheme-mode-syntax-table
(let ((st (make-syntax-table)) (let ((st (make-syntax-table))
(i 0)) (i 0))
;; Symbol constituents
;; Default is atom-constituent. ;; We used to treat chars 128-256 as symbol-constituent, but they
(while (< i 256) ;; should be valid word constituents (Bug#8843). Note that valid
;; identifier characters are Scheme-implementation dependent.
(while (< i ?0)
(modify-syntax-entry i "_ " st) (modify-syntax-entry i "_ " st)
(setq i (1+ i))) (setq i (1+ i)))
(setq i (1+ ?9))
;; Word components. (while (< i ?A)
(setq i ?0) (modify-syntax-entry i "_ " st)
(while (<= i ?9)
(modify-syntax-entry i "w " st)
(setq i (1+ i))) (setq i (1+ i)))
(setq i ?A) (setq i (1+ ?Z))
(while (<= i ?Z) (while (< i ?a)
(modify-syntax-entry i "w " st) (modify-syntax-entry i "_ " st)
(setq i (1+ i))) (setq i (1+ i)))
(setq i ?a) (setq i (1+ ?z))
(while (<= i ?z) (while (< i 128)
(modify-syntax-entry i "w " st) (modify-syntax-entry i "_ " st)
(setq i (1+ i))) (setq i (1+ i)))
;; Whitespace ;; Whitespace
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment