]> git.eshelyaron.com Git - emacs.git/commitdiff
Remove redundant checks in erc--switch-to-buffer
authorGuy Gastineau <strings.stringsandstrings@gmail.com>
Sat, 29 Jan 2022 04:12:42 +0000 (23:12 -0500)
committerF. Jason Park <jp@neverwas.me>
Sat, 19 Mar 2022 08:47:06 +0000 (01:47 -0700)
* 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

index 9ee8d38b0261d26ed1a610ddc55a81a6f9966443..52fe106f2d11c59f52a39b6786d5dbde288ec980 100644 (file)
@@ -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