[nongnu] elpa/keycast 3df44bd9e7 04/10: keycast-mode-line-mode: Make sure to modify global mode-line-format

[ELPA Syncer]

branch: elpa/keycast
commit 3df44bd9e796c6720545e5354b966a8467985795
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    keycast-mode-line-mode: Make sure to modify global mode-line-format
---
 keycast.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/keycast.el b/keycast.el
index d6b5a38c2a..53c79621f6 100644
--- a/keycast.el
+++ b/keycast.el
@@ -402,7 +402,7 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
   (cond
    (keycast-mode-line-mode
     (let ((cons (keycast--tree-member keycast-mode-line-insert-after
-                                      mode-line-format)))
+                                      (default-value 'mode-line-format))))
       (unless cons
         (setq keycast-mode-line-mode nil)
         (user-error
@@ -417,7 +417,8 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
       (add-hook 'post-command-hook #'keycast--update t)
       (add-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit t)))
    (t
-    (let ((cons (keycast--tree-member 'keycast-mode-line mode-line-format)))
+    (let ((cons (keycast--tree-member 'keycast-mode-line
+                                      (default-value 'mode-line-format))))
       (cond (keycast--removed-tail
              (setcar cons (car keycast--removed-tail))
              (setcdr cons (cdr keycast--removed-tail)))