Subject: Patch

From: Olivier Certner <[email-masked]>
Date: Wed, 21 Oct 2020 12:08:47 +0200

In attachment.

-- 
Olivier Certner

>From 33586f449fdf646fbfb1aa6bd5ef6ca4c4848761 Mon Sep 17 00:00:00 2001
From: Olivier Certner <[email-masked]>
Date: Tue, 20 Oct 2020 18:36:25 +0200
Subject: [PATCH] ERC: Make IBuffer ERC's custom displays work again

* 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.
---
 ChangeLog.3             | 8 ++++++++
 lisp/erc/erc-ibuffer.el | 2 +-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/ChangeLog.3 b/ChangeLog.3
index ec2d3f8d46..86579b3913 100644
--- a/ChangeLog.3
+++ b/ChangeLog.3
@@ -1,3 +1,11 @@
+2020-10-20  Olivier Certner  <[email-masked]>
+
+	ERC: Make IBuffer ERC's custom displays work again
+
+	* 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.
+
 2020-08-03  Phil Sainty  <[email-masked]>
 
 	lisp/so-long.el: Improve support for major mode hooks
diff --git a/lisp/erc/erc-ibuffer.el b/lisp/erc/erc-ibuffer.el
index 7aee7705ff..955b022177 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))
-- 
2.24.1