From 3697ae74c88dec605a4db4a9ebdf563bbbd7a1b9 Mon Sep 17 00:00:00 2001
From: Jessie Hildebrandt <jessieh@jessieh.net>
Date: Fri, 3 Sep 2021 05:12:35 -0400
Subject: [PATCH] Fix presence of duplicate anzu indicator

---
 mood-line.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/mood-line.el b/mood-line.el
index eb62f14..8af7b72 100644
--- a/mood-line.el
+++ b/mood-line.el
@@ -49,6 +49,7 @@
 
 (defvar flycheck-current-errors)
 (defvar flymake--mode-line-format)
+(defvar anzu-cons-mode-line-p)
 (defvar anzu--state)
 (defvar anzu--cached-count)
 (defvar anzu--overflow-p)
@@ -302,8 +303,8 @@
 ;; Activation function
 ;;
 
-;; Store the default mode-line format
 (defvar-local mood-line--default-mode-line mode-line-format)
+(defvar-local mood-line--anzu-cons-mode-line-p nil)
 
 ;;;###autoload
 (define-minor-mode mood-line-mode
@@ -323,6 +324,11 @@
         (add-hook 'after-save-hook #'mood-line--update-vc-segment)
         (advice-add #'vc-refresh-state :after #'mood-line--update-vc-segment)
 
+        ;; Disable anzu's mode-line segment setting, saving the previous setting to be restored later (if present)
+        (when (boundp 'anzu-cons-mode-line-p)
+          (setq mood-line--anzu-cons-mode-line-p anzu-cons-mode-line-p))
+        (setq-default anzu-cons-mode-line-p nil)
+
         ;; Save previous mode-line-format to be restored later
         (setq mood-line--default-mode-line mode-line-format)
 
@@ -361,6 +367,9 @@
       (remove-hook 'after-save-hook #'mood-line--update-vc-segment)
       (advice-remove #'vc-refresh-state #'mood-line--update-vc-segment)
 
+      ;; Restore anzu's mode-line segment setting
+      (setq-default anzu-cons-mode-line-p mood-line--anzu-cons-mode-line-p)
+
       ;; Restore the original mode-line format
       (setq-default mode-line-format mood-line--default-mode-line))))