emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]