diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-17 12:36:58 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-17 12:36:58 -0200 |
| commit | 6e38818cf6d3c79eaf0d105e8628f066bb536579 (patch) | |
| tree | 047487c0b11c369f38fd0d9295915595aade2ddf | |
| parent | d202e1ebeddf98d3109c8f7352fceb8dd5c07eb7 (diff) | |
Close compose window when buffer is killed.
| -rw-r--r-- | sx-compose.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sx-compose.el b/sx-compose.el index af9d861..5201435 100644 --- a/sx-compose.el +++ b/sx-compose.el @@ -117,9 +117,12 @@ contents to the API, then calls `sx-compose-after-send-functions'." (current-buffer) result))))) (defun sx-compose-quit (buffer _) - "Kill BUFFER." + "Close BUFFER's window and kill it." (interactive (list (current-buffer) nil)) (when (buffer-live-p buffer) + (let ((w (get-buffer-window buffer))) + (when (window-live-p w) + (delete-window w))) (kill-buffer buffer))) (defun sx-compose--copy-as-kill (buffer _) |