branch: elpa/telephone-line
commit bf0e4394ec77420c0b8ccd636bd18724ebfbeef2
Author: Daniel Bordak <[email protected]>
Commit: Daniel Bordak <[email protected]>
Previous fix didn't account for hollow separators
---
telephone-line-utils.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index e5eed5e8b0..491325ed8c 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -149,7 +149,7 @@ color1 and color2."
(cl-defmethod telephone-line-separator-width ((obj telephone-line-separator))
(or (oref obj forced-width)
- (1- (ceiling (telephone-line-separator-height obj) 2))))
+ (ceiling (telephone-line-separator-height obj) 2)))
(defclass telephone-line-subseparator (telephone-line-separator)
((pattern-func :initarg :pattern-func
@@ -163,7 +163,7 @@ color1 and color2."
(mapcar (oref obj axis-func)
(telephone-line-create-axis height))))
(range (seq-max normalized-axis))
- (scaling-factor (/ width (float range))))
+ (scaling-factor (/ (1- width)(float range))))
(mapcar (lambda (x)
(funcall (oref obj pattern-func)
(* x scaling-factor) width))
