[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f755daafb9 2/2: Remove redundant checks in erc--switch-to-buffer
From: |
F. Jason Park |
Subject: |
master f755daafb9 2/2: Remove redundant checks in erc--switch-to-buffer |
Date: |
Sat, 19 Mar 2022 05:02:21 -0400 (EDT) |
branch: master
commit f755daafb92cc61596708a580040784fc269edd4
Author: Guy Gastineau <strings.stringsandstrings@gmail.com>
Commit: F. Jason Park <jp@neverwas.me>
Remove redundant checks in erc--switch-to-buffer
* lisp/erc/erc.el (erc--switch-to-buffer): Commit
f925fc93bac41d7622d1af927e33b0e738ff55b0 "Add `predicate' arg to
`read-buffer' and use it for erc-iswitchb" meant to remove this, but
it was left behind. (Bug#53617)
Copyright-paperwork-exempt: yes
---
lisp/erc/erc.el | 7 +------
1 file changed, 1 insertion(+), 6 deletions(-)
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 9ee8d38b02..52fe106f2d 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -1761,12 +1761,7 @@ nil."
(lambda (bufname)
(let ((buf (if (consp bufname)
(cdr bufname) (get-buffer bufname))))
- (when buf
- (erc--buffer-p buf (lambda () t) proc)
- (with-current-buffer buf
- (and (derived-mode-p 'erc-mode)
- (or (null proc)
- (eq proc erc-server-process))))))))))
+ (and buf (erc--buffer-p buf (lambda () t) proc)))))))
(defun erc-switch-to-buffer (&optional arg)
"Prompt for an ERC buffer to switch to.
When invoked with prefix argument, use all ERC buffers. Without