From: Olivier Certner <olce.emacs@certner.fr>
Date: Tue, 6 Jul 2021 08:51:57 +0000 (+0200)
Subject: Unbreak ERC's Ibuffer filter (Bug#44100)
X-Git-Tag: emacs-28.0.90~1599^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75ecce4323;p=emacs.git

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 f5b1f6a2a65..8ff548de29d 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))