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.

diff --git a/lisp/erc/erc-ibuffer.el b/lisp/erc/erc-ibuffer.el
index f5b1f6a2a658afcc0b1b12dd6c9ac055281f377a..8ff548de29d778ac299c35127dfe612f308798f6 100644 (file)
--- 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))