From be228e03c513e59b0c1976538831e44dfd475dcd Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 30 Jun 2021 19:32:56 -0500 Subject: Switch prefix with erc-switch-to-buffer --- lisp/acdw-erc.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lisp/acdw-erc.el') diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el index 8cf9734..f62e731 100644 --- a/lisp/acdw-erc.el +++ b/lisp/acdw-erc.el @@ -101,5 +101,14 @@ If USE-TLS is non-nil, use TLS." (apply #'concat ss)) name)))) + +;;; Uh + +(defun acdw-erc/erc-switch-to-buffer (&optional arg) + "Prompt for ERC buffer to switch to. +Reverse prefix argument from `erc-switch-to-buffer'." + (interactive "P") + (erc-switch-to-buffer (not arg))) + (provide 'acdw-erc) ;;; acdw-erc.el ends here -- cgit 1.4.1-21-gabe81