From 33586f449fdf646fbfb1aa6bd5ef6ca4c4848761 Mon Sep 17 00:00:00 2001 From: Olivier Certner 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 + + 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 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