[elpa] master 22a3145 66/68: Make sure not to extend `mode-line-format' twice

[Oleh Krehel]

branch: master
commit 22a31450377952b0e6ba6310adaefdd4976c8557
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Make sure not to extend `mode-line-format' twice
    
    * ace-window.el (ace-window-display-mode): Update.
    
    Re #27.
---
 ace-window.el |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/ace-window.el b/ace-window.el
index 815520b..fe7ad9b 100644
--- a/ace-window.el
+++ b/ace-window.el
@@ -428,7 +428,7 @@ The point is writable, i.e. it's not part of space after 
newline."
 ;;* Mode line
 ;;;###autoload
 (define-minor-mode ace-window-display-mode
-  "Minor mode for showing the ace window key in the mode line."
+    "Minor mode for showing the ace window key in the mode line."
   :global t
   (if ace-window-display-mode
       (progn
@@ -437,7 +437,9 @@ The point is writable, i.e. it's not part of space after 
newline."
          'mode-line-format
          `((ace-window-display-mode
             (:eval (window-parameter (selected-window) 'ace-window-path)))
-           ,@(default-value 'mode-line-format)))
+           ,@(assq-delete-all
+              'ace-window-display-mode
+              (default-value 'mode-line-format))))
         (force-mode-line-update t)
         (add-hook 'window-configuration-change-hook 'aw-update))
     (set-default