[nongnu] elpa/telephone-line 30225c9778 069/195: Fix Emacs 25, oops

[ELPA Syncer]

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

    Fix Emacs 25, oops
---
 telephone-line-utils.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index 5df118320c..3ca47b05fb 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -152,16 +152,16 @@ color1 and color2."
    (alt-char :initarg :alt-char)
    (image-cache :initform (make-hash-table :test 'equal :size 10))))
 
-(cl-defmethod telephone-line-separator-height ((obj telephone-line-separator))
+(defmethod telephone-line-separator-height ((obj telephone-line-separator))
   (or telephone-line-height (frame-char-height)))
 
-(cl-defmethod telephone-line-separator-width ((obj telephone-line-separator))
+(defmethod telephone-line-separator-width ((obj telephone-line-separator))
   (or (oref obj forced-width) (ceiling (telephone-line-separator-height obj) 
2)))
 
 (defclass telephone-line-subseparator (telephone-line-separator)
   ((pattern-func :initarg :pattern-func :initform 
#'telephone-line-row-pattern-hollow)))
 
-(cl-defmethod telephone-line-separator-create-body ((obj 
telephone-line-separator))
+(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))
          (width (telephone-line-separator-width obj))
@@ -184,19 +184,19 @@ color1 and color2."
               (append left-padding row right-padding))
             body)))
 
-(cl-defmethod telephone-line-separator-create-body ((obj 
telephone-line-subseparator))
+(defmethod telephone-line-separator-create-body ((obj 
telephone-line-subseparator))
   (telephone-line--pad-body (call-next-method)
               (+ (ceiling (telephone-line-separator-width obj)
                           (frame-char-width))
                  telephone-line-separator-extra-padding)))
 
-(cl-defmethod telephone-line-separator--arg-handler (arg) :static
+(defmethod telephone-line-separator--arg-handler (arg) :static
   "Translate ARG into an appropriate color for a separator."
   (if (facep arg)
       (face-attribute arg :background)
     arg))
 
-(cl-defmethod telephone-line-separator-render-image ((obj 
telephone-line-separator) foreground background)
+(defmethod telephone-line-separator-render-image ((obj 
telephone-line-separator) foreground background)
   (let ((hash-key (concat background "_" foreground)))
     ;; Return cached image if we have it.
     (or (gethash hash-key (oref obj image-cache))
@@ -206,20 +206,20 @@ color1 and color2."
                                       background foreground))
                  (oref obj image-cache)))))
 
-(cl-defmethod telephone-line-separator-render-unicode ((obj 
telephone-line-separator) foreground background)
+(defmethod telephone-line-separator-render-unicode ((obj 
telephone-line-separator) foreground background)
   (list :propertize (char-to-string (oref obj alt-char))
         'face (list :foreground foreground
                     :background background
                     :inverse-video t)))
 
-(cl-defmethod telephone-line-separator-render ((obj telephone-line-separator) 
foreground background)
+(defmethod telephone-line-separator-render ((obj telephone-line-separator) 
foreground background)
   (let ((fg-color (telephone-line-separator--arg-handler foreground))
         (bg-color (telephone-line-separator--arg-handler background)))
     (if window-system
         (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-clear-cache ((obj 
telephone-line-separator))
+(defmethod telephone-line-separator-clear-cache ((obj 
telephone-line-separator))
   (clrhash (oref obj image-cache)))
 
 :autoload