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 /lisp | |
| 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
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw-erc.el | 9 |
1 files changed, 9 insertions, 0 deletions
| 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 |