[nongnu] elpa/swsw eba70478e0 065/146: Update window information after 'swsw-scope' is customized

[ELPA Syncer]

branch: elpa/swsw
commit eba70478e0c5fe2fea5502967c0bc9e529225e4f
Author: Daniel Semyonov <cmstr@dsemy.com>
Commit: Daniel Semyonov <cmstr@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))