Index: display.h
===================================================================
RCS file: /sources/qemacs/qemacs/display.h,v
retrieving revision 1.11
diff -u -r1.11 display.h
--- display.h	11 Jan 2008 11:29:28 -0000	1.11
+++ display.h	26 Nov 2008 18:25:58 -0000
@@ -138,6 +138,7 @@
     void (*dpy_bmp_unlock)(QEditScreen *s, QEBitmap *b);
     /* full screen support */
     void (*dpy_full_screen)(QEditScreen *s, int full_screen);
+    void (*dpy_set_opacity)(QEditScreen *s, int opacity);
     QEDisplay *next;
 };
 
Index: qe.c
===================================================================
RCS file: /sources/qemacs/qemacs/qe.c,v
retrieving revision 1.95
diff -u -r1.95 qe.c
--- qe.c	2 May 2008 16:04:09 -0000	1.95
+++ qe.c	26 Nov 2008 18:26:00 -0000
@@ -2296,6 +2296,14 @@
     }
 }
 
+void do_set_opacity(EditState *s, int opacity)
+{
+    QEditScreen *screen = s->screen;
+
+    if (screen->dpy.dpy_set_opacity)
+        screen->dpy.dpy_set_opacity(screen, opacity);
+}
+
 /* NOTE: toggle-full-screen also hide the modeline of the current
    window and the status line */
 void do_toggle_full_screen(EditState *s)
@@ -2335,6 +2343,8 @@
 }
 
 
+
+
 void display_init(DisplayState *s, EditState *e, enum DisplayType do_disp)
 {
     QEFont *font;
Index: qe.h
===================================================================
RCS file: /sources/qemacs/qemacs/qe.h,v
retrieving revision 1.96
diff -u -r1.96 qe.h
--- qe.h	4 May 2008 15:54:39 -0000	1.96
+++ qe.h	26 Nov 2008 18:26:01 -0000
@@ -1677,6 +1677,7 @@
 void do_toggle_mode_line(EditState *s);
 void do_set_system_font(EditState *s, const char *qe_font_name,
                         const char *system_fonts);
+void do_set_opacity(EditState *s, int opacity);
 void call_func(CmdSig sig, CmdProto func, int nb_args, CmdArg *args,
                unsigned char *args_type);
 void exec_command(EditState *s, CmdDef *d, int argval, int key);
Index: qeconfig.h
===================================================================
RCS file: /sources/qemacs/qemacs/qeconfig.h,v
retrieving revision 1.36
diff -u -r1.36 qeconfig.h
--- qeconfig.h	29 Apr 2008 18:55:14 -0000	1.36
+++ qeconfig.h	26 Nov 2008 18:26:01 -0000
@@ -303,6 +303,9 @@
           "set-system-font", do_set_system_font, ESss,
 	  "s{Font family: }|fontfamily|"
 	  "s{System fonts: }|fontnames|")
+    CMD2( KEY_NONE, KEY_NONE,
+          "set-opacity", do_set_opacity, ESi,
+          "i{Opacity percentage: }|opacity|")
 
     /*---------------- Miscellaneous ----------------*/
 
Index: tty.c
===================================================================
RCS file: /sources/qemacs/qemacs/tty.c,v
retrieving revision 1.50
diff -u -r1.50 tty.c
--- tty.c	23 Apr 2008 15:30:33 -0000	1.50
+++ tty.c	26 Nov 2008 18:26:02 -0000
@@ -1281,6 +1281,7 @@
     NULL, /* dpy_bmp_lock */
     NULL, /* dpy_bmp_unlock */
     NULL, /* dpy_full_screen */
+    NULL, /* dpy_set_opacity */
     NULL, /* next */
 };
 
Index: win32.c
===================================================================
RCS file: /sources/qemacs/qemacs/win32.c,v
retrieving revision 1.15
diff -u -r1.15 win32.c
--- win32.c	23 Apr 2008 15:29:35 -0000	1.15
+++ win32.c	26 Nov 2008 18:26:02 -0000
@@ -519,6 +519,7 @@
     NULL, /* dpy_bmp_lock */
     NULL, /* dpy_bmp_unlock */
     NULL, /* dpy_full_screen */
+    NULL, /* dpy_set_opacity */
     NULL, /* next */
 };
 
Index: x11.c
===================================================================
RCS file: /sources/qemacs/qemacs/x11.c,v
retrieving revision 1.28
diff -u -r1.28 x11.c
--- x11.c	15 Apr 2008 23:24:04 -0000	1.28
+++ x11.c	26 Nov 2008 18:26:02 -0000
@@ -1048,6 +1048,17 @@
     }
 }
 
+static void x11_set_opacity(__unused__ QEditScreen *s, int opacity)
+{
+    Atom prop = XInternAtom(display, "_NET_WM_WINDOW_OPACITY", False);
+    unsigned long op = (opacity / 100.0) * 0xffffffff;
+
+    XChangeProperty(display, window, prop,
+                    XA_CARDINAL, 32, PropModeReplace,
+                    (unsigned char*)&op, 1L);
+
+}
+
 static void term_selection_activate(__unused__ QEditScreen *s)
 {
     /* own selection from now */
@@ -1759,6 +1770,7 @@
     x11_bmp_lock,
     x11_bmp_unlock,
     x11_full_screen,
+    x11_set_opacity,
     NULL, /* next */
 };