branch: externals/window-commander
commit eba70478e0c5fe2fea5502967c0bc9e529225e4f
Author: Daniel Semyonov <cm...@dsemy.com>
Commit: Daniel Semyonov <cm...@dsemy.com>
Update window information after 'swsw-scope' is customized
* swsw.el (swsw--set-scope): New function which updates window
information after setting 'swsw-scope'.
(swsw-scope): Set 'set' function to 'swsw--set-scope'.
---
swsw.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/swsw.el b/swsw.el
index 65c52f0f52..e68c02e61d 100644
--- a/swsw.el
+++ b/swsw.el
@@ -84,6 +84,12 @@ This list should contain at least two characters."
"ID reserved for the minibuffer."
:type '(character))
+(defun swsw--set-scope (sym scope)
+ "Set the variable ‘swsw-scope’.
+Set SYM’s value to SCOPE and call ‘swsw-update’."
+ (set-default sym scope)
+ (swsw-update))
+
(defcustom swsw-scope t
"Scope of all window operations.
t means consider all windows on all existing frames.
@@ -96,7 +102,9 @@ t means consider all windows on all existing frames.
:tag "All windows on all visible and iconified frames." 0)
(const :tag "All windows on all visible frames" visible)
(const
- :tag "All window on the currently selected frame" current)))
+ :tag "All window on the currently selected frame"
+ current))
+ :set #'swsw--set-scope)
(eval-when-compile ; Avoid byte-compilation warning.
(defvar swsw-display-function))
