diff options
-rw-r--r-- | init.el | 2 | ||||
-rw-r--r-- | lisp/acdw-erc.el | 9 |
2 files changed, 11 insertions, 0 deletions
diff --git a/init.el b/init.el index 7d32117..a49f107 100644 --- a/init.el +++ b/init.el | |||
@@ -296,6 +296,8 @@ | |||
296 | erc-track-mode | 296 | erc-track-mode |
297 | erc-truncate-mode) | 297 | erc-truncate-mode) |
298 | 298 | ||
299 | (:bind "C-c C-b" acdw-erc/erc-switch-to-buffer) | ||
300 | |||
299 | ;; (setup (:straight erc-hl-nicks) | 301 | ;; (setup (:straight erc-hl-nicks) |
300 | ;; (with-eval-after-load 'erc | 302 | ;; (with-eval-after-load 'erc |
301 | ;; (require 'erc-hl-nicks) | 303 | ;; (require 'erc-hl-nicks) |
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." | |||
101 | (apply #'concat ss)) | 101 | (apply #'concat ss)) |
102 | name)))) | 102 | name)))) |
103 | 103 | ||
104 | |||
105 | ;;; Uh | ||
106 | |||
107 | (defun acdw-erc/erc-switch-to-buffer (&optional arg) | ||
108 | "Prompt for ERC buffer to switch to. | ||
109 | Reverse prefix argument from `erc-switch-to-buffer'." | ||
110 | (interactive "P") | ||
111 | (erc-switch-to-buffer (not arg))) | ||
112 | |||
104 | (provide 'acdw-erc) | 113 | (provide 'acdw-erc) |
105 | ;;; acdw-erc.el ends here | 114 | ;;; acdw-erc.el ends here |