procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

scheme.el: Turn literal tabs into \t

Browse source 
* lisp/progmodes/scheme.el: The last change to turn tabs into spaces
also caught some literal tabs in character classes. Fix this by
adding \t to those classes.
This commit is contained in:
Jorgen Schaefer 2016-05-07 12:22:48 +02:00
parent 4a6d39b395
commit bf7fc7a804
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/scheme.el
View file

@ -425,7 +425,7 @@ that variable's value is a string."
(eval-when-compile (eval-when-compile
(list (list
;; Similar to Scheme ;; Similar to Scheme
(list "(\\(define\\(-\\w+\\)?\\)\\>[ ]*\\((?\\)\\(\\sw+\\)\\>" (list "(\\(define\\(-\\w+\\)?\\)\\>[ \t]*\\((?\\)\\(\\sw+\\)\\>"
'(1 font-lock-keyword-face) '(1 font-lock-keyword-face)
'(4 font-lock-function-name-face)) '(4 font-lock-function-name-face))
(cons (cons
@ -437,10 +437,10 @@ that variable's value is a string."
"\\)\\>") "\\)\\>")
1) 1)
;; DSSSL syntax ;; DSSSL syntax
'("(\\(element\\|mode\\|declare-\\w+\\)\\>[ ]*\\(\\sw+\\)" '("(\\(element\\|mode\\|declare-\\w+\\)\\>[ \t]*\\(\\sw+\\)"
(1 font-lock-keyword-face) (1 font-lock-keyword-face)
(2 font-lock-type-face)) (2 font-lock-type-face))
'("(\\(element\\)\\>[ ]*(\\(\\S)+\\))" '("(\\(element\\)\\>[ \t]*(\\(\\S)+\\))"
(1 font-lock-keyword-face) (1 font-lock-keyword-face)
(2 font-lock-type-face)) (2 font-lock-type-face))
'("\\<\\sw+:\\>" . font-lock-constant-face) ; trailing `:' c.f. scheme '("\\<\\sw+:\\>" . font-lock-constant-face) ; trailing `:' c.f. scheme