Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-12-03 17:38:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Various fixes

Browse source 
Remove wrong shift modifiers.
Hide a Window when it's moved to another workspace.
This commit is contained in:
Chris Feng 2015-07-19 09:15:53 +08:00
parent 968d0b4882
commit 36e8361b9b
2 changed files with 4 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
exwm-input.el
View file

@ -380,7 +380,7 @@ It's updated in several occasions, and only used by `exwm-input--set-focus'.")
;; (exwm-input--fake-key last-input-event))) ;; (exwm-input--fake-key last-input-event)))
(defvar exwm-input-prefix-keys (defvar exwm-input-prefix-keys
'(?\C-x ?\C-u ?\C-h ?\M-x ?\M-` ?\M-\S-! ?\M-\S-& ?\M-\S-:) '(?\C-x ?\C-u ?\C-h ?\M-x ?\M-` ?\M-! ?\M-& ?\M-:)
"List of prefix keys EXWM should forward to Emacs when in line-mode.") "List of prefix keys EXWM should forward to Emacs when in line-mode.")
(defvar exwm-input--simulation-keys nil "Simulation keys in line-mode.") (defvar exwm-input--simulation-keys nil "Simulation keys in line-mode.")

14
exwm-workspace.el
View file

@ -162,21 +162,13 @@ The optional FORCE option is for internal use only "
:parent (frame-parameter frame 'exwm-window-id) :parent (frame-parameter frame 'exwm-window-id)
:x 0 :y 0)) :x 0 :y 0))
;; Move the window itself ;; Move the window itself
(set-window-buffer (get-buffer-window (exwm--id->buffer id)) (bury-buffer)
(other-buffer)) (exwm-layout--hide id)
(xcb:+request exwm--connection
(make-instance 'xcb:ChangeWindowAttributes
:window id :value-mask xcb:CW:EventMask
:event-mask xcb:EventMask:NoEvent))
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance 'xcb:ReparentWindow (make-instance 'xcb:ReparentWindow
:window id :window id
:parent (frame-parameter frame 'exwm-window-id) :parent (frame-parameter frame 'exwm-window-id)
:x 0 :y 0)) :x 0 :y 0)))))
(xcb:+request exwm--connection
(make-instance 'xcb:ChangeWindowAttributes
:window id :value-mask xcb:CW:EventMask
:event-mask exwm--client-event-mask)))))
(xcb:flush exwm--connection) (xcb:flush exwm--connection)
(exwm-workspace--update-switch-history))) (exwm-workspace--update-switch-history)))