[nongnu] elpa/telephone-line 762344f5e5 123/195: Subclass telephone-line-nil-separator

[ELPA Syncer]

branch: elpa/telephone-line
commit 762344f5e5767ae3099339132d630a4a89dd693d
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>

    Subclass telephone-line-nil-separator
---
 telephone-line-separators.el | 2 +-
 telephone-line-utils.el      | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/telephone-line-separators.el b/telephone-line-separators.el
index 7d864d2d62..be0fce2b74 100644
--- a/telephone-line-separators.el
+++ b/telephone-line-separators.el
@@ -121,7 +121,7 @@
   (make-instance 'telephone-line-subseparator :axis-func #'-))
 
 (defvar telephone-line-nil
-  (make-instance 'telephone-line-separator :axis-func (lambda (c) 0)))
+  (make-instance 'telephone-line-nil-separator))
 
 (provide 'telephone-line-separators)
 ;;; telephone-line-separators.el ends here
diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index 7301879c81..ca57b807b0 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -160,6 +160,8 @@ color1 and color2."
   ((pattern-func :initarg :pattern-func
                  :initform #'telephone-line-row-pattern-hollow)))
 
+(defclass telephone-line-nil-separator (telephone-line-separator) ())
+
 (cl-defmethod telephone-line-separator-create-body ((obj 
telephone-line-separator))
   "Create a bytestring of a PBM image body of dimensions WIDTH and HEIGHT, and 
shape created from AXIS-FUNC and PATTERN-FUNC."
   (let* ((height (telephone-line-separator-height obj))
@@ -225,6 +227,9 @@ If it doesn't exist, create and cache it."
         (telephone-line-separator-render-image obj fg-color bg-color)
       (telephone-line-separator-render-unicode obj fg-color bg-color))))
 
+(cl-defmethod telephone-line-separator-render ((obj 
telephone-line-nil-separator) foreground background)
+  nil)
+
 (cl-defmethod telephone-line-separator-clear-cache ((obj 
telephone-line-separator))
   (clrhash (oref obj image-cache)))