diff options
| author | Case Duckworth | 2021-06-30 19:32:56 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-06-30 19:32:56 -0500 |
| commit | be228e03c513e59b0c1976538831e44dfd475dcd (patch) | |
| tree | 58d5259d94e78b5059ca91cca755a6408539f838 | |
| parent | Merge branch 'main' of tildegit.org:acdw/emacs (diff) | |
| download | emacs-be228e03c513e59b0c1976538831e44dfd475dcd.tar.gz emacs-be228e03c513e59b0c1976538831e44dfd475dcd.zip | |
Switch prefix with erc-switch-to-buffer
| -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 |