[PATCH] XWEM: little fix

[Richard Klinda <ignotus@xxxxxxxxxxx>]

diff -u xwem/ChangeLog xwem-2/ChangeLog
--- xwem/ChangeLog      2004-12-05 22:50:14.000000000 +0100
+++ xwem-2/ChangeLog    2004-12-08 00:36:28.000000000 +0100
@@ -1,3 +1,8 @@
+2004-12-08  Zajcev Evgeny  <zevlg@xxxxxxxxx>
+
+       * lisp/xwem-misc.el: (xwem-misc-find-cl-by-emacs-frame):
+       [fix] use x-emacs-application-classi nstead of hardcoded
+       "Emacs" string.
+
 2004-12-06  Steve Youngs  <steve@xxxxxxxxxxxxx>
 
        From Richard Klinda <ignotus@xxxxxxxxxxx>
diff -u xwem/xwem-misc.el xwem-2/xwem-misc.el
--- xwem/xwem-misc.el   2004-12-05 06:52:29.000000000 +0100
+++ xwem-2/xwem-misc.el 2004-12-08 00:28:42.000000000 +0100
@@ -611,8 +611,7 @@
         wm-class xtr rcl)
     (while clients
       (setq wm-class (xwem-hints-wm-class (xwem-cl-hints (car clients))))
-      (when (and (string= (car wm-class) "emacs")
-                 (string= (cdr wm-class) "Emacs"))
+      (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))))))

-- 
Richard Klinda  \/
                /\  Show me your init.el and I'll you tell who you are