diff options
| author | Olivier Certner | 2021-07-06 10:51:57 +0200 |
|---|---|---|
| committer | Amin Bandali | 2021-08-02 22:34:25 -0400 |
| commit | 75ecce4323e8072a2d91a882d0368af9cdfd9df7 (patch) | |
| tree | 1dfda3e59453d62487a5ebf7b3567e362f777e78 | |
| parent | 61def1e392b3e0483d3a2fab5eed123a00a9f0b8 (diff) | |
| download | emacs-75ecce4323e8072a2d91a882d0368af9cdfd9df7.tar.gz emacs-75ecce4323e8072a2d91a882d0368af9cdfd9df7.zip | |
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.
| -rw-r--r-- | lisp/erc/erc-ibuffer.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 @@ | |||
| 77 | erc-track-mode) | 77 | erc-track-mode) |
| 78 | (let ((entry (assq (current-buffer) erc-modified-channels-alist))) | 78 | (let ((entry (assq (current-buffer) erc-modified-channels-alist))) |
| 79 | (if entry | 79 | (if entry |
| 80 | (if (> (length entry) 1) | 80 | (if (cdr entry) |
| 81 | (cond ((eq 'pal (nth 1 entry)) | 81 | (cond ((eq 'pal (nth 1 entry)) |
| 82 | (string erc-ibuffer-pal-char)) | 82 | (string erc-ibuffer-pal-char)) |
| 83 | ((eq 'fool (nth 1 entry)) | 83 | ((eq 'fool (nth 1 entry)) |