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@xxxxxxxxxxxxx>
+
+ * 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 |
|---------------------------------------<steve@xxxxxxxx>---|
pgpGktm5uboVQ.pgp
Description: PGP signature
|