Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-30 14:38:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Merge pull request #52 from pipcet/minor-fix

Browse source 
Minor fix (quote class for make-instance)
This commit is contained in:
Chris Feng 2015-08-29 19:03:51 +08:00
commit 9eee94e530
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
exwm-manage.el
View file

@ -83,7 +83,7 @@ corresponding buffer.")
:event-mask xcb:EventMask:NoEvent)) :event-mask xcb:EventMask:NoEvent))
;; The window needs to be mapped ;; The window needs to be mapped
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance xcb:MapWindow :window id)) (make-instance 'xcb:MapWindow :window id))
(with-slots (x y width height) exwm--geometry (with-slots (x y width height) exwm--geometry
;; Reparent to virtual root (essential) ;; Reparent to virtual root (essential)
(xcb:+request exwm--connection (xcb:+request exwm--connection
@ -323,7 +323,7 @@ corresponding buffer.")
(with-slots (parent window) obj (with-slots (parent window) obj
(if (/= exwm--root parent) (if (/= exwm--root parent)
(progn (xcb:+request exwm--connection (progn (xcb:+request exwm--connection
(make-instance xcb:MapWindow :window window)) (make-instance 'xcb:MapWindow :window window))
(xcb:flush exwm--connection)) (xcb:flush exwm--connection))
(exwm--log "MapRequest from #x%x" window) (exwm--log "MapRequest from #x%x" window)
(exwm-manage--manage-window window))))) (exwm-manage--manage-window window)))))