diff options
| author | Case Duckworth | 2021-06-06 23:27:57 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-06-06 23:27:57 -0500 |
| commit | a19c83eb11b528cfa59686c816b0e3652770db35 (patch) | |
| tree | 4f7e1aefa5b9f36d4441bf68da53b90b62dc3085 | |
| parent | Add acdw-erc/prompt (diff) | |
| download | emacs-a19c83eb11b528cfa59686c816b0e3652770db35.tar.gz emacs-a19c83eb11b528cfa59686c816b0e3652770db35.zip | |
Force mode line update after quitting server
Still not quite working... i think i need to kill all the channel buffers too.
| -rw-r--r-- | lisp/acdw-erc.el | 4 |
1 files changed, 3 insertions, 1 deletions
| diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el index 6e06325..8cf9734 100644 --- a/lisp/acdw-erc.el +++ b/lisp/acdw-erc.el | |||
| @@ -80,7 +80,9 @@ If USE-TLS is non-nil, use TLS." | |||
| 80 | (dolist (buffer (filter-server-buffers)) | 80 | (dolist (buffer (filter-server-buffers)) |
| 81 | (with-message (format "Killing server buffer: %s" (buffer-name buffer)) | 81 | (with-message (format "Killing server buffer: %s" (buffer-name buffer)) |
| 82 | (with-current-buffer buffer | 82 | (with-current-buffer buffer |
| 83 | (erc-quit-server erc/bye-message))))) | 83 | (erc-quit-server erc/bye-message)))) |
| 84 | (force-mode-line-update)) | ||
| 85 | |||
| 84 | (defun acdw-erc/prompt () | 86 | (defun acdw-erc/prompt () |
| 85 | "The prompt to show for ERC." | 87 | "The prompt to show for ERC." |
| 86 | ;; Rewrite s-truncate to avoid dependency. | 88 | ;; Rewrite s-truncate to avoid dependency. |