diff options
author | Chris Feng <chris.w.feng@gmail.com> | 2016-05-23T11·13+0800 |
---|---|---|
committer | Chris Feng <chris.w.feng@gmail.com> | 2016-05-23T11·13+0800 |
commit | 1b2ae3749e98b83f94cc19cef8830ce823c63367 (patch) | |
tree | c12da35ab83e429eb5ff1980778181e55c43fd8c /exwm-manage.el | |
parent | dc0c0f5131296f31b02019d1d928a0a17f085818 (diff) |
Add cleanup codes for Emacs daemon
* exwm-floating.el (exwm-floating--exit): * exwm-input.el (exwm-input--exit): * exwm-layout.el (exwm-layout--exit): * exwm-manage.el (exwm-manage--exit): * exwm-randr.el (exwm-randr--exit): * exwm-systemtray.el (exwm-systemtray--exit): * exwm-workspace.el (exwm-workspace--exit): New functions for cleanup each module. * exwm-input.el (exwm-input--on-pre-command, exwm-input--on-post-command) (exwm-input--init): Name lambda functions. * exwm-layout.el (exwm-layout--timer, exwm-layout--init): Save timer. * exwm-randr.el (exwm-randr-enable): Register the cleanup function. * exwm-systemtray.el (exwm-systemtray--init): Force refresh atoms in XEMBED and system tray protocols. (exwm-systemtray-enable): Register the cleanup function. * exwm-workspace.el (exwm-workspace--client): Save the server process. (exwm-workspace--confirm-kill-emacs): Add emacsclient-specific cleanup codes. (exwm-workspace--timer): Save the timer. (exwm-workspace--init): Save the server process and timer; fix problems with emacsclient frames. * exwm.el (exwm-init): Always select the newly created frame; force refresh ICCCM & EWMH atoms. (exwm-exit-hook): New hook for holding cleanup codes. (exwm--exit): Run `exwm-exit-hook', execute cleanup codes for each module and reset the environment.
Diffstat (limited to 'exwm-manage.el')
-rw-r--r-- | exwm-manage.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/exwm-manage.el b/exwm-manage.el index 187703395cfa..1c63134ba2a7 100644 --- a/exwm-manage.el +++ b/exwm-manage.el @@ -555,6 +555,10 @@ border-width: %d; sibling: #x%x; stack-mode: %d" (xcb:+event exwm--connection 'xcb:DestroyNotify #'exwm-manage--on-DestroyNotify)) +(defun exwm-manage--exit () + "Exit the manage module." + (setq exwm-manage--_MOTIF_WM_HINTS nil)) + (provide 'exwm-manage) |