[AC] [PACKAGES (xwem)] couple of minor fixes

[Steve Youngs <steve@xxxxxxxx>]

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-gamma.el lisp/xwem-events.el

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xwem/ChangeLog,v
retrieving revision 1.54
diff -u -U0 -r1.54 ChangeLog
--- ChangeLog   3 Dec 2004 05:32:54 -0000       1.54
+++ ChangeLog   3 Dec 2004 09:17:10 -0000
@@ -2,0 +3,8 @@
+       * lisp/xwem-gamma.el (xwem-gamma-corector): Call `XFlush' on
+       `xwem-gamma-display'. 
+
+       * lisp/xwem-events.el (xwem-event-as-command): Make sure we're not
+       in xwem's global keymap.
+
+2004-12-03  Steve Youngs  <steve@xxxxxxxxxxxxx>
+
Index: lisp/xwem-events.el
===================================================================
RCS file: 
/pack/xemacscvs/XEmacs/packages/xemacs-packages/xwem/lisp/xwem-events.el,v
retrieving revision 1.4
diff -u -u -r1.4 xwem-events.el
--- lisp/xwem-events.el 29 Nov 2004 20:41:48 -0000      1.4
+++ lisp/xwem-events.el 3 Dec 2004 09:16:54 -0000
@@ -177,7 +177,10 @@
   (setq xwem-last-xevent x-ev
         xwem-event-client (xwem-event-client x-ev)
         xwem-last-event e-ev
-        xwem-this-command-keys (vconcat xwem-this-command-keys (vector e-ev))))
+       xwem-this-command-keys (vconcat (and (not 
(xwem-kbd-global-map-current-p))
+                                            xwem-this-command-keys)
+                                       (vector e-ev))))
+
 
 ;;;###xwem-autoload
 (defun xwem-next-command-event (&optional prompt)
Index: lisp/xwem-gamma.el
===================================================================
RCS file: 
/pack/xemacscvs/XEmacs/packages/xemacs-packages/xwem/lisp/xwem-gamma.el,v
retrieving revision 1.2
diff -u -u -r1.2 xwem-gamma.el
--- lisp/xwem-gamma.el  29 Nov 2004 20:41:50 -0000      1.2
+++ lisp/xwem-gamma.el  3 Dec 2004 09:16:54 -0000
@@ -63,6 +63,7 @@
         (gg (+ 0.1 (* k (cadr clist))))
         (bg (+ 0.1 (* k (caddr clist)))))
     (X-XF86VidModeSetGamma xwem-gamma-display rg gg bg xwem-gamma-screen)
+    (XFlush xwem-gamma-display)
     (xwem-message 'nolog "New gamma: r=%f g=%f b=%f" rg gg bg)))
 
 (defun xwem-gamma-widget (xdpy &optional screen-num)

-- 
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
|                        In space,                         |
|             No one can hear you rip a stinky             |
|---------------------------------------<steve@xxxxxxxx>---|

pgpocqbaXiG9Z.pgp
Description: PGP signature