branch: elpa/ws-butler
commit 7d0ffb7a8b47e5c188d9fdfac77c711379304736
Author: Sean Whitton <spwhit...@spwhitton.name>
Commit: Sean Whitton <spwhit...@spwhitton.name>
Use '\s' in ws-butler-clean-region, drop a superfluous blank
---
ws-butler.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/ws-butler.el b/ws-butler.el
index 36b2c4254e..f2b3647ae4 100644
--- a/ws-butler.el
+++ b/ws-butler.el
@@ -163,12 +163,12 @@ Respects `ws-butler-convert-leading-tabs-or-spaces',
which see."
(if indent-tabs-mode
(progn
(skip-chars-forward "\t" eol)
- (when (eq (char-after) ?\ )
- (tabify (point) (progn (skip-chars-forward " \t" eol)
+ (when (eq (char-after) ?\s)
+ (tabify (point) (progn (skip-chars-forward "\s\t" eol)
(point)))))
(skip-chars-forward " " eol)
- (when (eq (char-after) ?\t )
- (untabify (point) (progn (skip-chars-forward " \t" eol)
+ (when (eq (char-after) ?\t)
+ (untabify (point) (progn (skip-chars-forward "\s\t" eol)
(point)))))))
(end-of-line)
(delete-horizontal-space)
