summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-06-06 23:27:57 -0500
committerCase Duckworth2021-06-06 23:27:57 -0500
commita19c83eb11b528cfa59686c816b0e3652770db35 (patch)
tree4f7e1aefa5b9f36d4441bf68da53b90b62dc3085
parentAdd acdw-erc/prompt (diff)
downloademacs-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.el4
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.