Remove redundant checks in erc--switch-to-buffer
* lisp/erc/erc.el (erc--switch-to-buffer): Commit
f925fc93ba
"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
This commit is contained in:
parent
17bd063a67
commit
f755daafb9
1 changed files with 1 additions and 6 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue