Re: [XWEM Bug] problem with frames

[Zajcev Evgeny <zevlg@xxxxxxxxx>]

Steve Youngs <steve@xxxxxxxxxxxxx> writes:

> * Zajcev Evgeny <zevlg@xxxxxxxxx> writes:
>
>   > Hehe, thanks for reporting this Steve, i know where the roots of
>   > this issue.  It will be fixed ASAP
>
> Excellent!  I can't wait to update. :-) 

Hehe, if you can't  try out this patch:

--- orig/lisp/xwem-clients.el
+++ mod/lisp/xwem-clients.el
@@ -523,8 +523,7 @@
   (xwem-client-local-variables-import (xwem-cl-selected))
 
   ;; Set CL to be current client
-  (unless (xwem-dummy-client-p (xwem-cl-selected))
-    (setf (xwem-last-client) (xwem-cl-selected)))
+  (setf (xwem-last-client) (xwem-cl-selected))
   (setf (xwem-cl-selected) cl)
 
   (xwem-client-local-variables-export cl))
@@ -794,12 +793,13 @@
   (when (or force
             (xwem-cl-selected-p cl)
             (xwem-cl-selected-p (xwem-dummy-client)))
-    (if (and (xwem-cl-alive-p (xwem-last-client))
-             (not (eq (xwem-last-client) cl))
-             (or allow-dummy
-                 (not (xwem-dummy-client-p (xwem-last-client)))))
-        (xwem-select-client (xwem-last-client))
-      (xwem-select-client (xwem-cl-other cl)))))
+    (let ((lcl (find cl xwem-last-clients
+                     :test #'(lambda (cl lcl)
+                               (and (xwem-cl-alive-p lcl)
+                                    (not (eq lcl cl))
+                                    (or allow-dummy
+                                        (not (xwem-dummy-client-p lcl))))))))
+      (xwem-select-client (or lcl (xwem-cl-other cl))))))
 
 

 ;;;###xwem-autoload

-- 
lg