diff options
| author | Jorgen Schaefer <contact@jorgenschaefer.de> | 2016-05-07 12:22:48 +0200 |
|---|---|---|
| committer | Jorgen Schaefer <contact@jorgenschaefer.de> | 2016-05-07 12:24:27 +0200 |
| commit | bf7fc7a8047752b6b1cff65dc8b8e2bc8173f626 (patch) | |
| tree | 7475508cdaf2b3a3b8b3085de36e250a98f1dc25 | |
| parent | 4a6d39b395bda91a497f8e81afec4339ecf5b49f (diff) | |
| download | emacs-bf7fc7a8047752b6b1cff65dc8b8e2bc8173f626.tar.gz | |
scheme.el: Turn literal tabs into \t
* 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.
| -rw-r--r-- | lisp/progmodes/scheme.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 1cb71fa773a..66d9ed6fae6 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -425,7 +425,7 @@ that variable's value is a string." (eval-when-compile (list ;; Similar to Scheme - (list "(\\(define\\(-\\w+\\)?\\)\\>[ ]*\\((?\\)\\(\\sw+\\)\\>" + (list "(\\(define\\(-\\w+\\)?\\)\\>[ \t]*\\((?\\)\\(\\sw+\\)\\>" '(1 font-lock-keyword-face) '(4 font-lock-function-name-face)) (cons @@ -437,10 +437,10 @@ that variable's value is a string." "\\)\\>") 1) ;; DSSSL syntax - '("(\\(element\\|mode\\|declare-\\w+\\)\\>[ ]*\\(\\sw+\\)" + '("(\\(element\\|mode\\|declare-\\w+\\)\\>[ \t]*\\(\\sw+\\)" (1 font-lock-keyword-face) (2 font-lock-type-face)) - '("(\\(element\\)\\>[ ]*(\\(\\S)+\\))" + '("(\\(element\\)\\>[ \t]*(\\(\\S)+\\))" (1 font-lock-keyword-face) (2 font-lock-type-face)) '("\\<\\sw+:\\>" . font-lock-constant-face) ; trailing `:' c.f. scheme |