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

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(a)youngs.au.com&gt; + 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 | |---------------------------------------&lt;steve(a)xwem.org&gt;---|