[AC] [PACKAGES (xwem)] fix bug in xwem-misc-find-cl-by-emacs-frame

APPROVE COMMIT NOTE: This patch has been committed. xwem patch: ChangeLog files diff command: cvs -q diff -U 0 Files affected: ChangeLog Source files diff command: cvs -q diff -uN Files affected: lisp/xwem-misc.el Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xwem/ChangeLog,v retrieving revision 1.69 diff -u -U0 -r1.69 ChangeLog --- ChangeLog 8 Dec 2004 04:40:29 -0000 1.69 +++ ChangeLog 8 Dec 2004 08:55:56 -0000 ＠＠ -0,0 +1,5 ＠＠ +2004-12-08 Steve Youngs <steve(a)youngs.au.com&gt; + + * lisp/xwem-misc.el (xwem-misc-find-cl-by-emacs-frame): Fix + logic... a when statement was closed too soon. + Index: lisp/xwem-misc.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xwem/lisp/xwem-misc.el,v retrieving revision 1.13 diff -u -u -r1.13 xwem-misc.el --- lisp/xwem-misc.el 8 Dec 2004 08:27:45 -0000 1.13 +++ lisp/xwem-misc.el 8 Dec 2004 08:55:43 -0000 ＠＠ -617,7 +617,7 ＠＠ wm-class xtr rcl) (while clients (setq wm-class (xwem-hints-wm-class (xwem-cl-hints (car clients)))) - (when (string= (cdr wm-class) x-emacs-application-class)) + (when (string= (cdr wm-class) x-emacs-application-class) (setq xtr (XQueryTree (xwem-dpy) (xwem-cl-xwin (car clients)))) (if (car xtr) (setq xtr (mapcar 'X-Win-id (cdr (cdr (cdr (cdr xtr)))))) ＠＠ -628,7 +628,7 ＠＠ (setq clients nil))) (setq clients (cdr clients))) - rcl) + rcl)) ;;;###xwem-autoload (defun xwem-misc-xwin-valid-p (xwin) -- |---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---| | In space, | | No one can hear you rip a stinky | |---------------------------------------&lt;steve(a)xwem.org&gt;---|