From 4660e040a0a21de58e47b1b18900a4d277af888d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Adri=C3=A1n=20Medra=C3=B1o=20Calvo?= Date: Tue, 6 Mar 2018 00:00:00 +0000 Subject: [PATCH] Prevent duplicate keys in frameset-filter-alist * exwm-workspace.el (exwm-workspace--init): * exwm-randr.el (exwm-randr--init): Prevent duplicate keys in frameset-filter-alist --- exwm-randr.el | 3 ++- exwm-workspace.el | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/exwm-randr.el b/exwm-randr.el index c1d2bf5..37f40f1 100644 --- a/exwm-randr.el +++ b/exwm-randr.el @@ -210,7 +210,8 @@ the first one in result being the primary output." ;; Prevent frame parameters introduced by this module from being ;; saved/restored. (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 () "Exit the RandR module." diff --git a/exwm-workspace.el b/exwm-workspace.el index a999719..f1ca8d5 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -1555,7 +1555,8 @@ applied to all subsequently created X frames." ;; saved/restored. (dolist (i '(exwm-active exwm-outer-id exwm-id exwm-container exwm-geometry 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 () "Exit the workspace module."