From bf7fc7a8047752b6b1cff65dc8b8e2bc8173f626 Mon Sep 17 00:00:00 2001 From: Jorgen Schaefer Date: Sat, 7 May 2016 12:22:48 +0200 Subject: [PATCH] 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. --- lisp/progmodes/scheme.el | 6 +++--- 1 file 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 -- 2.39.2