From: Jorgen Schaefer <contact@jorgenschaefer.de>
Date: Sat, 7 May 2016 10:22:48 +0000 (+0200)
Subject: scheme.el: Turn literal tabs into \t
X-Git-Tag: emacs-26.0.90~1987
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf7fc7a8047752b6b1cff65dc8b8e2bc8173f626;p=emacs.git

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.
---

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