From 4660e040a0a21de58e47b1b18900a4d277af888d Mon Sep 17 00:00:00 2001 From: Adrián Medraño Calvo Date: Tue, 6 Mar 2018 00:00:00 +0000 Subject: 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 c1d2bf5255fc..37f40f12c197 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 a99971904c37..f1ca8d594ed7 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." -- cgit 1.4.1