From 9358d9c81f8170416549a54051af1113e8952266 Mon Sep 17 00:00:00 2001 From: Jessie Hildebrandt Date: Mon, 20 Jul 2020 23:47:18 -0400 Subject: [PATCH] Fix spacing issue with misc-info and process segs. --- mood-line.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/mood-line.el b/mood-line.el index 3f49c1a..fedca94 100644 --- a/mood-line.el +++ b/mood-line.el @@ -280,7 +280,7 @@ (defun mood-line-segment-misc-info () "Displays the current value of `mode-line-misc-info' in the mode-line." (let ((misc-info (format-mode-line mode-line-misc-info 'mood-line-unimportant))) - (unless (string= misc-info "") + (unless (string= (mood-line--string-trim misc-info) "") (concat (mood-line--string-trim misc-info) " ")))) (defun mood-line-segment-flycheck () @@ -294,8 +294,9 @@ (defun mood-line-segment-process () "Displays the current value of `mode-line-process' in the mode-line." - (when mode-line-process - (concat (mood-line--string-trim (format-mode-line mode-line-process)) " "))) + (let ((process-info (format-mode-line mode-line-process))) + (unless (string= (mood-line--string-trim process-info) "") + (concat (mood-line--string-trim process-info) " ")))) ;; ;; Activation function