diff options
| -rw-r--r-- | lisp/whitespace.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/lisp/whitespace.el b/lisp/whitespace.el index 1986b525d42..2cf014cc53e 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -737,8 +737,8 @@ Used when `whitespace-style' includes `empty'." (defcustom whitespace-space-after-tab-regexp - '("\t+\\(\\( \\{%d\\}\\)+\\)" - . "\\(\t+\\) +") + '("\t+\\(\\( \\{%d,\\}\\)+\\)" + . "\\(\t+\\) \\{%d,\\}") "Specify regexp for 8 or more SPACEs after TAB. It is a cons where the cons car is used for SPACEs visualization @@ -1566,13 +1566,15 @@ See also `tab-width'." (defun whitespace-regexp (regexp &optional kind) "Return REGEXP depending on `whitespace-indent-tabs-mode'." - (cond - ((or (eq kind 'tab) - whitespace-indent-tabs-mode) - (format (car regexp) whitespace-tab-width)) - ((or (eq kind 'space) - (not whitespace-indent-tabs-mode)) - (cdr regexp)))) + (format + (cond + ((or (eq kind 'tab) + whitespace-indent-tabs-mode) + (car regexp)) + ((or (eq kind 'space) + (not whitespace-indent-tabs-mode)) + (cdr regexp))) + whitespace-tab-width)) (defun whitespace-indentation-regexp (&optional kind) |