diff options
author | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2016-03-19T00·00+0000 |
---|---|---|
committer | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2016-03-19T00·00+0000 |
commit | 8a1c3761e4eab018a001dcc522112269f83ba279 (patch) | |
tree | db1ccf604f3e28c0d2c5ed998077af0595bbe056 | |
parent | f6cd9503e62164f9e2513755f95f7c61eeddf51e (diff) |
Set the correct buffer before checking the `major-mode'
* exwm-layout.el (exwm-layout--refresh): Make sure we test the `major-mode' of the first buffer of the floating frame.
-rw-r--r-- | exwm-layout.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/exwm-layout.el b/exwm-layout.el index fd8c164d9a8e..d084c96e4424 100644 --- a/exwm-layout.el +++ b/exwm-layout.el @@ -255,13 +255,13 @@ (if (not (memq frame exwm-workspace--list)) (if (frame-parameter frame 'exwm-outer-id) ;; Refresh a floating frame - (when (eq major-mode 'exwm-mode) - (let ((window (frame-first-window frame))) - (with-current-buffer (window-buffer window) - ;; It may be a buffer waiting to be killed. - (when (exwm--id->buffer exwm--id) - (exwm--log "Refresh floating window #x%x" exwm--id) - (exwm-layout--show exwm--id window))))) + (let ((window (frame-first-window frame))) + (with-current-buffer (window-buffer window) + (when (and (eq major-mode 'exwm-mode) + ;; It may be a buffer waiting to be killed. + (exwm--id->buffer exwm--id)) + (exwm--log "Refresh floating window #x%x" exwm--id) + (exwm-layout--show exwm--id window)))) ;; Other frames (e.g. terminal/graphical frame of emacsclient) ;; We shall bury all `exwm-mode' buffers in this case (setq windows (window-list frame 0)) ;exclude minibuffer |