[Emacs-diffs] master bf7fc7a: scheme.el: Turn literal tabs into \t

[Jorgen Schäfer]

branch: master
commit bf7fc7a8047752b6b1cff65dc8b8e2bc8173f626
Author: Jorgen Schaefer <address@hidden>
Commit: Jorgen Schaefer <address@hidden>

    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 1cb71fa..66d9ed6 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