emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/telephone-line ce5d99afd7 101/195: Oops.


From: ELPA Syncer
Subject: [nongnu] elpa/telephone-line ce5d99afd7 101/195: Oops.
Date: Wed, 5 Jan 2022 02:59:30 -0500 (EST)

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

    Oops.
---
 telephone-line-segments.el | 6 +++---
 telephone-line.el          | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/telephone-line-segments.el b/telephone-line-segments.el
index bbd70edec2..46c4c7bbc1 100644
--- a/telephone-line-segments.el
+++ b/telephone-line-segments.el
@@ -33,12 +33,12 @@
 (telephone-line-defsegment telephone-line-position-segment
   (if (eq major-mode 'paradox-menu-mode)
       ;;Paradox fills this with position info.
-      (telephone-line-trim (format-mode-line mode-line-front-space))
+      (string-trim (format-mode-line mode-line-front-space))
     mode-line-position))
 
 (telephone-line-defsegment* telephone-line-airline-position-segment
   (if (eq major-mode 'paradox-menu-mode)
-      (telephone-line-trim (format-mode-line mode-line-front-space))
+      (string-trim (format-mode-line mode-line-front-space))
     '((-3 "%p") " %4l:%3c")))
 
 (telephone-line-defsegment telephone-line-misc-info-segment
@@ -87,7 +87,7 @@ mouse-3: Toggle minor modes"
 
 (telephone-line-defsegment* telephone-line-erc-modified-channels-segment
   (when (boundp 'erc-modified-channels-object)
-    (telephone-line-trim erc-modified-channels-object)))
+    (string-trim erc-modified-channels-object)))
 
 (eval-after-load 'evil
   '(telephone-line-defsegment* telephone-line-evil-tag-segment
diff --git a/telephone-line.el b/telephone-line.el
index 036a2a7aed..f3c2139edd 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -213,7 +213,7 @@ Secondary separators do not incur a background color 
change."
        cur-color-sym))))
 
 (defun telephone-line-propertize-segment (pred face segment)
-  (unless (seq-empty-p (telephone-line-trim (format-mode-line segment)))
+  (unless (seq-empty-p (string-trim (format-mode-line segment)))
     (if pred
         `(:propertize (" " ,segment " ") face ,face)
       `(" " ,segment " "))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]