master 128b04f 1/4: Remove some compat code from erc-track.el

[Lars Ingebrigtsen]

branch: master
commit 128b04fca08f791a4eba64e8c1fe3429df7e822f
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Remove some compat code from erc-track.el
    
    * lisp/erc/erc-track.el (erc-track-remove-from-mode-line)
    (erc-track-add-to-mode-line): Remove check for mode-line-modes,
    which is always bound.
---
 lisp/erc/erc-track.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el
index 820b6d9..3398c8b 100644
--- a/lisp/erc/erc-track.el
+++ b/lisp/erc/erc-track.el
@@ -328,9 +328,8 @@ important."
 
 (defun erc-track-remove-from-mode-line ()
   "Remove `erc-track-modified-channels' from the mode-line."
-  (when (boundp 'mode-line-modes)
-    (setq mode-line-modes
-         (remove '(t erc-modified-channels-object) mode-line-modes)))
+  (setq mode-line-modes
+       (remove '(t erc-modified-channels-object) mode-line-modes))
   (when (consp global-mode-string)
     (setq global-mode-string
          (delq 'erc-modified-channels-object global-mode-string))))
@@ -340,12 +339,10 @@ important."
 See `erc-track-position-in-mode-line' for possible values."
   ;; CVS Emacs has a new format string, and global-mode-string
   ;; is very far to the right.
-  (cond ((and (eq position 'before-modes)
-             (boundp 'mode-line-modes))
+  (cond ((eq position 'before-modes)
         (add-to-list 'mode-line-modes
                      '(t erc-modified-channels-object)))
-       ((and (eq position 'after-modes)
-             (boundp 'mode-line-modes))
+       ((eq position 'after-modes)
         (add-to-list 'mode-line-modes
                      '(t erc-modified-channels-object) t))
        ((eq position t)