Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 06:48:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Prevent duplicate keys in frameset-filter-alist

Browse source 
* exwm-workspace.el (exwm-workspace--init):
* exwm-randr.el (exwm-randr--init): Prevent duplicate keys in
frameset-filter-alist
This commit is contained in:
Adrián Medraño Calvo 2018-03-06 00:00:00 +00:00
parent dd0f10775a
commit 4660e040a0
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
exwm-randr.el
View file

@ -210,7 +210,8 @@ the first one in result being the primary output."
;; Prevent frame parameters introduced by this module from being ;; Prevent frame parameters introduced by this module from being
;; saved/restored. ;; saved/restored.
(dolist (i '(exwm-randr-output)) (dolist (i '(exwm-randr-output))
(push (cons i :never) frameset-filter-alist))) (unless (assq i frameset-filter-alist)
(push (cons i :never) frameset-filter-alist))))
(defun exwm-randr--exit () (defun exwm-randr--exit ()
"Exit the RandR module." "Exit the RandR module."

3
exwm-workspace.el
View file

@ -1555,7 +1555,8 @@ applied to all subsequently created X frames."
;; saved/restored. ;; saved/restored.
(dolist (i '(exwm-active exwm-outer-id exwm-id exwm-container exwm-geometry (dolist (i '(exwm-active exwm-outer-id exwm-id exwm-container exwm-geometry
exwm-selected-window exwm-urgency fullscreen)) exwm-selected-window exwm-urgency fullscreen))
(push (cons i :never) frameset-filter-alist))) (unless (assq i frameset-filter-alist)
(push (cons i :never) frameset-filter-alist))))
(defun exwm-workspace--exit () (defun exwm-workspace--exit ()
"Exit the workspace module." "Exit the workspace module."