branch: elpa/telephone-line
commit 627a41acca1f073ca0e08a8119d7043fbc4fe564
Author: Daniel Bordak <[email protected]>
Commit: Daniel Bordak <[email protected]>
Make Emacs 25 stop complaining
---
telephone-line-separators.el | 44 ++++++++++++++++++++++----------------------
telephone-line-utils.el | 1 +
2 files changed, 23 insertions(+), 22 deletions(-)
diff --git a/telephone-line-separators.el b/telephone-line-separators.el
index fc4b3d3245..c411b7ec83 100644
--- a/telephone-line-separators.el
+++ b/telephone-line-separators.el
@@ -32,51 +32,51 @@
(number-sequence 1 width)))
(defvar telephone-line-gradient
- (telephone-line-separator "gradient"
- :axis-func #'identity
- :pattern-func #'telephone-line-row-pattern-fixed-gradient))
+ (make-instance 'telephone-line-separator
+ :axis-func #'identity
+ :pattern-func #'telephone-line-row-pattern-fixed-gradient))
(defvar telephone-line-abs-right
- (telephone-line-separator "abs-right"
- :axis-func #'abs
- :alt-char #xe0b2))
+ (make-instance 'telephone-line-separator
+ :axis-func #'abs
+ :alt-char #xe0b2))
(defvar telephone-line-abs-left
- (telephone-line-separator "abs-left"
- :axis-func (telephone-line-complement abs)
- :alt-char #xe0b0))
+ (make-instance 'telephone-line-separator
+ :axis-func (telephone-line-complement abs)
+ :alt-char #xe0b0))
(defvar telephone-line-abs-hollow-right
- (telephone-line-subseparator "abs-hollow-right"
+ (make-instance 'telephone-line-subseparator
:axis-func #'abs
:alt-char #xe0b3))
(defvar telephone-line-abs-hollow-left
- (telephone-line-subseparator "abs-hollow-left"
+ (make-instance 'telephone-line-subseparator
:axis-func (telephone-line-complement abs)
:alt-char #xe0b1))
(defvar telephone-line-cubed-right
- (telephone-line-separator "cubed-right"
- :axis-func (lambda (x) (expt x 3))))
+ (make-instance 'telephone-line-separator
+ :axis-func (lambda (x) (expt x 3))))
(defvar telephone-line-cubed-left
- (telephone-line-separator "cubed-left"
- :axis-func (lambda (x) (- (expt x 3)))))
+ (make-instance 'telephone-line-separator
+ :axis-func (lambda (x) (- (expt x 3)))))
(defvar telephone-line-cubed-hollow-right
- (telephone-line-subseparator "cubed-hollow-right"
+ (make-instance 'telephone-line-subseparator
:axis-func (lambda (x) (expt x 3))))
(defvar telephone-line-cubed-hollow-left
- (telephone-line-subseparator "cubed-hollow-left"
+ (make-instance 'telephone-line-subseparator
:axis-func (lambda (x) (- (expt x 3)))))
(defvar telephone-line-identity-right
- (telephone-line-separator "identity-right" :axis-func #'identity))
+ (make-instance 'telephone-line-separator :axis-func #'identity))
(defvar telephone-line-identity-left
- (telephone-line-separator "identity-left" :axis-func #'-))
+ (make-instance 'telephone-line-separator :axis-func #'-))
(defvar telephone-line-identity-hollow-right
- (telephone-line-subseparator "identity-hollow-right" :axis-func #'identity))
+ (make-instance 'telephone-line-subseparator :axis-func #'identity))
(defvar telephone-line-identity-hollow-left
- (telephone-line-subseparator "identity-hollow-left" :axis-func #'-))
+ (make-instance 'telephone-line-subseparator :axis-func #'-))
(defvar telephone-line-nil
- (telephone-line-separator "nil" :axis-func (lambda (c1 c2) nil)))
+ (make-instance 'telephone-line-separator :axis-func (lambda (c1 c2) nil)))
(provide 'telephone-line-separators)
;;; telephone-line-separators.el ends here
diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index e8c87d63fe..289e7e0d85 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -22,6 +22,7 @@
(require 'cl-lib)
(require 'color)
(require 'cl-generic)
+(require 'eieio)
(require 'seq)
