emacs-27 75ecce4: Unbreak ERC's Ibuffer filter (Bug#44100)

[Amin Bandali]

branch: emacs-27
commit 75ecce4323e8072a2d91a882d0368af9cdfd9df7
Author: Olivier Certner <olce.emacs@certner.fr>
Commit: Amin Bandali <bandali@gnu.org>

    Unbreak ERC's Ibuffer filter (Bug#44100)
    
    * lisp/erc/erc-ibuffer.el (erc-modified): Don't use `length' on dotted
    lists (and not even to test if there is more than one element, for
    that matter).  Use `cdr' instead.
---
 lisp/erc/erc-ibuffer.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/erc/erc-ibuffer.el b/lisp/erc/erc-ibuffer.el
index f5b1f6a..8ff548d 100644
--- a/lisp/erc/erc-ibuffer.el
+++ b/lisp/erc/erc-ibuffer.el
@@ -77,7 +77,7 @@
           erc-track-mode)
       (let ((entry (assq (current-buffer) erc-modified-channels-alist)))
        (if entry
-           (if (> (length entry) 1)
+           (if (cdr entry)
                (cond ((eq 'pal (nth 1 entry))
                       (string erc-ibuffer-pal-char))
                      ((eq 'fool (nth 1 entry))