branch: master
commit 835c63e2bbd116bea47e6620b11bfc75e76cda6a
Author: oleh <[email protected]>
Commit: oleh <[email protected]>
tiny.el: fixed a small whitespace issue in `tiny-tokenize'.
---
tiny.el | 8 +++++---
1 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/tiny.el b/tiny.el
index d186e73..06d77ca 100644
--- a/tiny.el
+++ b/tiny.el
@@ -306,10 +306,11 @@ m[START][SEPARATOR]END[EXPR][FORMAT]
(push " " out))
((string= s ")")
;; expect a close paren only if it's necessary
- (if (>= n-paren 2)
+ (if (>= n-paren 0)
(decf n-paren)
(error "unexpected \")\""))
- (pop out)
+ (when (string= (car out) " ")
+ (pop out))
(push ") " out))
((string= s "(")
;; open paren is used sometimes
@@ -341,7 +342,8 @@ m[START][SEPARATOR]END[EXPR][FORMAT]
(setq i j)
(setq j (1+ i))))
;; last space
- (pop out)
+ (when (string= (car out) " ")
+ (pop out))
(concat
(apply #'concat (nreverse out))
(make-string n-paren ?\))))))
