Commits

youngs  committed f566890

2005-01-01 Steve Youngs <steve@youngs.au.com>

* Makefile (AUTHOR_VERSION): Bump.

This is the version 2.0 release. For details please see
ChangeLog.upstream.

  • Participants
  • Parent commits 2f21dce

Comments (0)

Files changed (23)

+2005-01-01  Steve Youngs  <steve@youngs.au.com>
+
+	* Makefile (AUTHOR_VERSION): Bump.
+
+	This is the version 2.0 release.  For details please see
+	ChangeLog.upstream. 
+
 2004-07-14  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.12 released.

File ChangeLog.upstream

+# do not edit -- automatically generated by arch changelog
+# non-id: automatic-ChangeLog--lg@xwem.org--2004/xlib--main--2.0
+#
+
+2005-01-01 02:21:03 GMT	Zajcev Evgeny <lg@xwem.org>	version-0
+
+    Summary:
+      Version 2.0 is released
+    Revision:
+      xlib--main--2.0--version-0
+
+
+    new files:
+     .arch-ids/README.id README
+
+
+2004-12-30 23:12:56 GMT	Zajcev Evgeny <lg@xwem.org>	patch-9
+
+    Summary:
+      xpm parsing fixes
+    Revision:
+      xlib--main--2.0--patch-9
+
+    * lisp/xlib-xpm.el (X:xpm-goto-color-def): [fix] Use `re-search-forward'
+      instead of `looking-at' loop.  Use `forward-line' instead of
+      `next-line'.
+    
+    * lisp/xlib-xpm.el (X:xpm-goto-body-line): [fix] Use `forward-line'
+      instead of `next-line'
+    
+    * lisp/xlib-xpm.el (X:xpm-extract-shape-colors): [fix] Ditto.
+    
+    * lisp/xlib-xpm.el (X:xpm-extract-colors): [fix] Ditto.
+
+    modified files:
+     lisp/xlib-xpm.el
+
+
+2004-12-29 20:54:17 GMT	Zajcev Evgeny <lg@xwem.org>	patch-8
+
+    Summary:
+      Makefile fix, X-Win-invalidate commented out
+    Revision:
+      xlib--main--2.0--patch-8
+
+    * Makefile (lisp/xlib-version.el): [fix]
+    
+    * lisp/xlib-xr.el (X-Dpy-parse-event): [fix] X-Win-invalidate commented
+      out, because causing some problems.
+    
+    
+
+    modified files:
+     Makefile lisp/xlib-xr.el
+
+
+2004-12-23 22:24:12 GMT	Zajcev Evgeny <lg@xwem.org>	patch-7
+
+    Summary:
+      Very simple X-Win garbage collector
+    Revision:
+      xlib--main--2.0--patch-7
+
+    * Makefile: [addon] Dependences.
+    
+    * lisp/xlib-xlib (X-invalidate-cl-struct): [rem] Moved to xlib-xr.el
+    
+    * lisp/xlib-xlib (XOpenDisplay): [addon] Schedule garbage collector.
+    
+    * lisp/xlib-xr (X-invalidate-cl-struct): [new] Moved from xlib-xlib.el
+    
+    * lisp/xlib-xr (X-Dpy-parse-event): [addon] Schedule garbage collector
+      in case of X-DestroyNotify event.
+    
+    * lisp/xlib-xwin (X-Win-invalidate): [rewritten]
+    
+
+    modified files:
+     Makefile lisp/xlib-xlib.el lisp/xlib-xr.el lisp/xlib-xwin.el
+
+
+2004-12-20 21:01:42 GMT	Zajcev Evgeny <lg@xwem.org>	patch-6
+
+    Summary:
+      Merged with 2004-w
+    Revision:
+      xlib--main--2.0--patch-6
+
+    Patches applied:
+    
+     * dev@xwem.org--2004-w/xlib--dev--2.0--patch-9
+       Merge with main, makefile change
+    
+
+    modified files:
+     Makefile
+
+    new patches:
+     dev@xwem.org--2004-w/xlib--dev--2.0--patch-9
+
+
+2004-12-19 23:01:09 GMT	Zajcev Evgeny <lg@xwem.org>	patch-5
+
+    Summary:
+      makefile clarification
+    Revision:
+      xlib--main--2.0--patch-5
+
+    * Makefile: Clarification. make pkg should work properly now.
+    
+    
+    
+
+    modified files:
+     Makefile
+
+
+2004-12-18 21:36:46 GMT	Zajcev Evgeny <lg@xwem.org>	patch-4
+
+    Summary:
+      merged with dev@xwem.org--2004-w/xlib--dev--2.0
+    Revision:
+      xlib--main--2.0--patch-4
+
+    * lisp/xlib-xr.el (X-Dpy-send-read): [fix] Removed send-read protection
+      crap.
+
+    modified files:
+     lisp/xlib-xr.el
+
+    new patches:
+     dev@xwem.org--2004-w/xlib--dev--2.0--patch-5
+     dev@xwem.org--2004-w/xlib--dev--2.0--patch-6
+     dev@xwem.org--2004-w/xlib--dev--2.0--patch-7
+     dev@xwem.org--2004-w/xlib--dev--2.0--patch-8
+
+
+2004-12-17 01:59:47 GMT	Evgeny Zajcev <lg@xwem.org>	patch-3
+
+    Summary:
+      xlib-xr typo fix
+    Revision:
+      xlib--main--2.0--patch-3
+
+    * lisp/xlib-xr.el (X-Dpy-eval-error-or-event): [typo] Thanks to Andrey
+      Slusar <anray@ext.by>
+    
+
+    modified files:
+     lisp/xlib-xr.el
+
+
+2004-12-17 00:46:40 GMT	Evgeny Zajcev <lg@xwem.org>	patch-2
+
+    Summary:
+      X send-read protection introduced using recursive-edit
+    Revision:
+      xlib--main--2.0--patch-2
+
+    * lisp/xlib-xr.el (X-Dpy-send-read): [EXP fix] send-read protection.
+
+    modified files:
+     Makefile lisp/xlib-xr.el
+
+
+2004-12-10 21:20:16 GMT	Evgeny Zajcev <lg@xwem.org>	patch-1
+
+    Summary:
+      merge from steve
+    Revision:
+      xlib--main--2.0--patch-1
+
+    Patches applied:
+    
+     * steve@eicq.org--2004/xlib--steve--2.0--base-0
+       tag of lg@xwem.org--2004/xlib--main--2.0--base-0
+    
+     * steve@eicq.org--2004/xlib--steve--2.0--patch-1
+       Move to tla style version string
+    
+     * steve@eicq.org--2004/xlib--steve--2.0--patch-2
+       quick Makefile fix -- XLIB doesn't have any texi files
+    
+
+    new files:
+     .arch-ids/Makefile.id Makefile
+     lisp/.arch-ids/.arch-inventory.id lisp/.arch-inventory
+
+    modified files:
+     lisp/xlib-const.el package-info.in
+
+    renamed files:
+     .arch-ids/Makefile.id
+       ==> .arch-ids/Makefile.CVS.id
+     Makefile
+       ==> Makefile.CVS
+
+    new patches:
+     steve@eicq.org--2004/xlib--steve--2.0--base-0
+     steve@eicq.org--2004/xlib--steve--2.0--patch-1
+     steve@eicq.org--2004/xlib--steve--2.0--patch-2
+
+
+2004-12-08 18:52:15 GMT	Evgeny Zajcev <lg@xwem.org>	base-0
+
+    Summary:
+      Initial import of xlib sources.
+    Revision:
+      xlib--main--2.0--base-0
+
+
+    new files:
+     ChangeLog.CVS Makefile convmod/Makefile convmod/xlib.c
+     lisp/README lisp/xlib-composer.el lisp/xlib-const.el
+     lisp/xlib-hello.el lisp/xlib-img.el lisp/xlib-keysymdb.el
+     lisp/xlib-math.el lisp/xlib-testing.el lisp/xlib-tray.el
+     lisp/xlib-vidmode.el lisp/xlib-xc.el lisp/xlib-xdpms.el
+     lisp/xlib-xinerama.el lisp/xlib-xlib.el lisp/xlib-xpm.el
+     lisp/xlib-xr.el lisp/xlib-xrecord.el lisp/xlib-xshape.el
+     lisp/xlib-xtest.el lisp/xlib-xwin.el package-info.in
+
+
 # Boston, MA 02111-1307, USA.
 
 VERSION = 1.12
-AUTHOR_VERSION = 0.2
+AUTHOR_VERSION = lg@xwem.org--2004/xlib--main--2.0--version-0
 MAINTAINER = Zajcev Evgeny <zevlg@yandex.ru>
 PACKAGE = xlib
 PKG_TYPE = regular

File lisp/xlib-composer.el

+;;; xlib-composer.el --- 
+
+;; Copyright (C) 2004 by Free Software Foundation, Inc.
+
+;; Author: Zajcev Evgeny <zevlg@yandex.ru>
+;; Created: Fri Jun  4 18:46:04 MSD 2004
+;; Keywords: xlib
+;; X-CVS: $Id$
+
+;; This file is part of XWEM.
+
+;; XWEM is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XWEM is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+;; License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Synched up with: Not in FSF
+
+;;; Commentary:
+
+;; Composer.
+
+;;; Code:
+
+(require 'xlib-xlib)
+
+(defstruct X-Composer
+  xwin
+  xpix)
+
+
+(defun X:cmr-create (xdpy)
+  "On display XDPY create new composer."
+  )
+
+(defun X:cmr-resize (xcmr width height)
+  "Resize composer XCMR to WIDTH and HEIGHT."
+  )
+
+
+(provide 'xlib-composer)
+
+;;; xlib-composer.el ends here

File lisp/xlib-const.el

 ;;; Code:
 
 
-;;;###autoload
-(defconst xlib-version "xlib(xemacs-package): $Revision$")
+(require 'xlib-version)
 
-;;;###autoload
 (defconst X-False 0 "False")
-;;;###autoload
 (defconst X-True 1 "True")
 
-;;;###autoload
 (defconst X-CopyFromParent 0 "CopyFromParent opcode.")
-;;;###autoload
 (defconst X-InputOutput 1 "InputOutput opcode.")
-;;;###autoload
 (defconst X-InputOnly 2 "InputOnly opcode.")
 
 ;;; Gravity
 
-;;;###autoload
-(defconst X-Unmap 0 "Unmap gravity.")
-;;;###autoload
-(defconst X-NorthWest 1 "NorthWest gravity.")
-;;;###autoload
-(defconst X-North 2 "North gravity.")
-;;;###autoload
-(defconst X-NorthEast 3 "NorthEast gravity.")
-;;;###autoload
-(defconst X-West 4 "West gravity.")
-;;;###autoload
-(defconst X-Center 5 "Center gravity.")
-;;;###autoload
-(defconst X-East 6 "East gravity.")
-;;;###autoload
-(defconst X-SouthWest 7 "SouthWest gravity.")
-;;;###autoload
-(defconst X-South 8 "South gravity.")
-;;;###autoload
-(defconst X-SouthEast 9 "SouthEast gravity.")
-;;;###autoload
-(defconst X-Static 10 "Static gravity.")
+(defconst X-ForgetGravity 0 "Forget about bit gravity.")
+(defconst X-NorthWestGravity 1 "NorthWest gravity.")
+(defconst X-NorthGravity 2 "North gravity.")
+(defconst X-NorthEastGravity 3 "NorthEast gravity.")
+(defconst X-WestGravity 4 "West gravity.")
+(defconst X-CenterGravity 5 "Center gravity.")
+(defconst X-EastGravity 6 "East gravity.")
+(defconst X-SouthWestGravity 7 "SouthWest gravity.")
+(defconst X-SouthGravity 8 "South gravity.")
+(defconst X-SouthEastGravity 9 "SouthEast gravity.")
+(defconst X-StaticGravity 10 "Static gravity.")
+
+;; Window gravity + bit gravity above
+
+(defconst X-UnmapGravity 0 "Unmap gravity.")
 
 ;; backing store
 
-;;;###autoload
 (defconst X-NotUseful 0 "NotUseful backing store.")
-;;;###autoload
 (defconst X-WhenMapped 1 "WhenMapped backing store.")
-;;;###autoload
 (defconst X-Always 2 "Always backing store.")
 
 ;;; Event Masks
 
-;;;###autoload
 (defconst XM-NoEvent #x0 "No Event mask.")
-;;;###autoload
 (defconst XM-KeyPress #x1 "KeyPress bitmask.")
-;;;###autoload
 (defconst XM-KeyRelease #x2 "KeyRelease bitmask.")
-;;;###autoload
 (defconst XM-ButtonPress #x4 "ButtonPress bitmask.")
-;;;###autoload
 (defconst XM-ButtonRelease #x8 "ButtonRelease bitmask.")
-;;;###autoload
 (defconst XM-EnterWindow #x10 "EnterWindow bitmask.")
-;;;###autoload
 (defconst XM-LeaveWindow #x20 "LeaveWindow bitmask.")
-;;;###autoload
 (defconst XM-PointerMotion #x40 "PointerMotion bitmask.")
-;;;###autoload
 (defconst XM-PointerMotionHint #x80 "PointerMotionHint bitmask.")
-;;;###autoload
 (defconst XM-Button1Motion #x100 "Button2Motion bitmask.")
-;;;###autoload
 (defconst XM-Button2Motion #x200 "Button2Motion bitmask.")
-;;;###autoload
 (defconst XM-Button3Motion #x400 "Button3Motion bitmask.")
-;;;###autoload
 (defconst XM-Button4Motion #x800 "Button4Motion bitmask.")
-;;;###autoload
 (defconst XM-Button5Motion #x1000 "Button5Motion bitmask.")
-;;;###autoload
 (defconst XM-ButtonMotion #x2000 "Button bitmask.")
-;;;###autoload
 (defconst XM-KeymapState #x4000 "KeymapState bitmask.")
-;;;###autoload
 (defconst XM-Exposure #x8000 "Exposure bitmask.")
-;;;###autoload
 (defconst XM-VisibilityChange #x10000 "VisibilityChange bitmask.")
-;;;###autoload
 (defconst XM-StructureNotify #x20000 "StructureNotify bitmask.")
-;;;###autoload
 (defconst XM-ResizeRedirect #x40000 "ResizeRedirect bitmask.")
-;;;###autoload
 (defconst XM-SubstructureNotify #x80000 "SubstructureNotify bitmask.")
-;;;###autoload
 (defconst XM-SubstructureRedirect #x100000 "SubstructureRedirect bitmask.")
-;;;###autoload
 (defconst XM-FocusChange #x200000 "FocusChange bitmask.")
-;;;###autoload
 (defconst XM-PropertyChange #x400000 "PropertyChange bitmask.")
-;;;###autoload
 (defconst XM-ColormapChange #x800000 "ColormapChange bitmask.")
-;;;###autoload
 (defconst XM-OwnerGrabButton #x1000000 "OwnerGrabButton bitmask.")
 
 ;; Event OpCodes
 
-;;;###autoload
 (defconst X-SyntheticMask 128 "Mask the synthetic part off.")
-;;;###autoload
 (defconst X-KeyPress 2 "KeyPress event.")
-;;;###autoload
 (defconst X-KeyRelease 3 "KeyRelease event.")
-;;;###autoload
 (defconst X-ButtonPress 4 "ButtonPress event.")
-;;;###autoload
 (defconst X-ButtonRelease 5 "ButtonRelease event.")
-;;;###autoload
 (defconst X-MotionNotify 6 "MotionNotify event.")
-;;;###autoload
 (defconst X-EnterNotify 7 "EnterNotify event.")
-;;;###autoload
 (defconst X-LeaveNotify 8 "LeaveNotify event.")
-;;;###autoload
 (defconst X-FocusIn 9 "FocusIn event.")
-;;;###autoload
 (defconst X-FocusOut 10 "FocusOut event.")
-;;;###autoload
 (defconst X-KeymapNotify 11 "KeymapNotify event.")
-;;;###autoload
 (defconst X-Expose 12 "Expose event.")
-;;;###autoload
 (defconst X-GraphicsExpose 13 "GraphicsExpose event.")
-;;;###autoload
 (defconst X-NoExpose 14 "NoExpose event.")
-;;;###autoload
 (defconst X-VisibilityNotify 15 "VisibilityNotify event.")
-;;;###autoload
 (defconst X-CreateNotify 16 "CreateNotify event.")
-;;;###autoload
 (defconst X-DestroyNotify 17 "DestroyNotify event.")
-;;;###autoload
 (defconst X-UnmapNotify 18 "UnmapNotify event.")
-;;;###autoload
 (defconst X-MapNotify 19 "MapNotify event.")
-;;;###autoload
 (defconst X-MapRequest 20 "MapRequest event.")
-;;;###autoload
 (defconst X-ReparentNotify 21 "ReparentNotify event.")
-;;;###autoload
 (defconst X-ConfigureNotify 22 "ConfigureNotify event.")
-;;;###autoload
 (defconst X-ConfigureRequest 23 "ConfigureRequest event.")
-;;;###autoload
 (defconst X-GravityNotify 24 "GravityNotify event.")
-;;;###autoload
 (defconst X-ResizeRequest 25 "ResizeRequest event.")
-;;;###autoload
 (defconst X-CirculateNotify 26 "CirculateNotify event.")
-;;;###autoload
 (defconst X-CirculateRequest 27 "CirculateRequest event.")
-;;;###autoload
 (defconst X-PropertyNotify 28 "PropertyNotify event.")
-;;;###autoload
 (defconst X-SelectionClear 29 "SelectionClear event.")
-;;;###autoload
 (defconst X-SelectionRequest 30 "SelectionRequest event.")
-;;;###autoload
 (defconst X-SelectionNotify 31 "SelectionNotify event.")
-;;;###autoload
 (defconst X-ColormapNotify 32 "ColormapNotify event.")
-;;;###autoload
 (defconst X-ClientMessage 33 "ClientMessage event.")
-;;;###autoload
 (defconst X-MappingNotify 34 "MappingNotify event.")
-;;;###autoload
 (defconst X-MaxEvent 35 "1 greater than the largest event opcode.")
 
 ;; Properties
-;;;###autoload
 (defconst X-PropertyNewValue 0)
-;;;###autoload
 (defconst X-PropertyDelete 1)
 
 ;;; Stacking constants
-;;;###autoload
 (defconst X-Above 0 "Stacking mode Above.")
-;;;###autoload
 (defconst X-Below 1 "Stacking mode Below.")
-;;;###autoload
 (defconst X-TopIf 2 "Stacking mode TopIf.")
-;;;###autoload
 (defconst X-BottomIf 3 "Stacking mode BottomIf.")
-;;;###autoload
 (defconst X-Opposite 4 "Stacking mode Opposite.")
 
 ;;; Atom format
-;;;###autoload
 (defconst X-format-8 8 "8 bit formatting for Atoms.")
-;;;###autoload
 (defconst X-format-16 16 "16 bit formatting for Atoms.")
-;;;###autoload
 (defconst X-format-32 32 "32 bit formatting for Atoms.")
 
-;;; Predefined Atoms
-;;;###autoload
-(autoload 'make-X-Atom "xlib-xwin")
-
-;;;###autoload
-(defconst XA-AnyPropertyType (make-X-Atom :id 0.0 :name "") "Any atom.")
-;;;###autoload
-(defconst XA-primary (make-X-Atom :id 1.0 :name "PRIMARY") "Atom primary encoding.")
-;;;###autoload
-(defconst XA-secondary (make-X-Atom :id 2.0 :name "SECONDARY") "Atom secondary encoding.")
-;;;###autoload
-(defconst XA-arc (make-X-Atom :id 3.0 :name "ARC") "Atom arc encoding.")
-;;;###autoload
-(defconst XA-atom (make-X-Atom :id 4.0 :name "ATOM") "Atom atom encoding.")
-;;;###autoload
-(defconst XA-bitmap (make-X-Atom :id 5.0 :name "BITMAP") "Atom bitmap encoding.")
-;;;###autoload
-(defconst XA-cardinal (make-X-Atom :id 6.0 :name "CARDINAL") "Atom cardinal encoding.")
-;;;###autoload
-(defconst XA-colormap (make-X-Atom :id 7.0 :name "COLORMAP") "Atom colormap encoding.")
-;;;###autoload
-(defconst XA-cursor (make-X-Atom :id 8.0 :name "CURSOR") "Atom cursor encoding.")
-;;;###autoload
-(defconst XA-cut-buffer0 (make-X-Atom :id 9.0 :name "XA-CUT-BUFFER0") "Atom cut-buffer0 encoding.")
-;;;###autoload
-(defconst XA-cut-buffer1 (make-X-Atom :id 10.0 :name "CUT-BUFFER1") "Atom cut-buffer1 eoncoding.")
-;;;###autoload
-(defconst XA-cut-buffer2 (make-X-Atom :id 11.0 :name "CUT-BUFFER2") "Atom cut-buffer2 eoncoding.")
-;;;###autoload
-(defconst XA-cut-buffer3 (make-X-Atom :id 12.0 :name "CUT-BUFFER3") "Atom cut-buffer3 eoncoding.")
-;;;###autoload
-(defconst XA-cut-buffer4 (make-X-Atom :id 13.0 :name "CUT-BUFFER4") "Atom cut-buffer4 eoncoding.")
-;;;###autoload
-(defconst XA-cut-buffer5 (make-X-Atom :id 14.0 :name "CUT-BUFFER5") "Atom cut-buffer5 eoncoding.")
-;;;###autoload
-(defconst XA-cut-buffer6 (make-X-Atom :id 15.0 :name "CUT-BUFFER6") "Atom cut-buffer6 eoncoding.")
-;;;###autoload
-(defconst XA-cut-buffer7 (make-X-Atom :id 16.0 :name "CUT-BUFFER7") "Atom cut-buffer7 eoncoding.")
-;;;###autoload
-(defconst XA-drawable (make-X-Atom :id 17.0 :name "XA-DRAWABLE") "Atom drawable eoncoding.")
-;;;###autoload
-(defconst XA-font (make-X-Atom :id 18.0 :name "FONT") "Atom font eoncoding.")
-;;;###autoload
-(defconst XA-integer (make-X-Atom :id 19.0 :name "INTEGER") "Atom integer eoncoding.")
-;;;###autoload
-(defconst XA-pixmap (make-X-Atom :id 20.0 :name "PIXMAP") "Atom pixmap eoncoding.")
-;;;###autoload
-(defconst XA-point (make-X-Atom :id 21.0 :name "POINT") "Atom point eoncoding.")
-;;;###autoload
-(defconst XA-rectangle (make-X-Atom :id 22.0 :name "RECTANGLE") "Atom rectangle eoncoding.")
-;;;###autoload
-(defconst XA-resource-manager (make-X-Atom :id 23.0 :name "RESOURCE-MANAGER") "Atom resource-manager eoncoding.")
-;;;###autoload
-(defconst XA-rgb-color-map (make-X-Atom :id 24.0 :name "RGB-COLOR-MAP") "Atom rgb-color-map eoncoding.")
-;;;###autoload
-(defconst XA-rgb-best-map (make-X-Atom :id 25.0 :name "RGB-BEST-MAP") "Atom rgb-best-map eoncoding.")
-;;;###autoload
-(defconst XA-rgb-blue-map (make-X-Atom :id 26.0 :name "RGB-BLUE-MAP") "Atom rgb-blue-map eoncoding.")
-;;;###autoload
-(defconst XA-rgb-default-map (make-X-Atom :id 27.0 :name "RGB-DEFAULT-MAP") "Atom rgb-default-map eoncoding.")
-;;;###autoload
-(defconst XA-rgb-gray-map (make-X-Atom :id 28.0 :name "RGB-GRAY-MAP") "Atom rgb-gray-map eoncoding.")
-;;;###autoload
-(defconst XA-rgb-green-map (make-X-Atom :id 29.0 :name "RGB-GREEN-MAP") "Atom rgb-green-map eoncoding.")
-;;;###autoload
-(defconst XA-rgb-red-map (make-X-Atom :id 30.0 :name "RGB-RED-MAP") "Atom rgb-red-map eoncoding.")
-;;;###autoload
-(defconst XA-string (make-X-Atom :id 31.0 :name "STRING") "Atom string eoncoding.")
-;;;###autoload
-(defconst XA-visualid (make-X-Atom :id 32.0 :name "VISUALID") "Atom visualid eoncoding.")
-;;;###autoload
-(defconst XA-window (make-X-Atom :id 33.0 :name "WINDOW") "Atom window eoncoding.")
-;;;###autoload
-(defconst XA-wm-command (make-X-Atom :id 34.0 :name "WM-COMMAND") "Atom wm-command eoncoding.")
-;;;###autoload
-(defconst XA-wm-hints (make-X-Atom :id 35.0 :name "WM-HINTS") "Atom wm-hints eoncoding.")
-;;;###autoload
-(defconst XA-wm-client-machine (make-X-Atom :id 36.0 :name "WM-CLIENT-MACHINE") "Atom wm-client-machine eoncoding.")
-;;;###autoload
-(defconst XA-wm-icon-name (make-X-Atom :id 37.0 :name "WM-ICON-NAME") "Atom wm-icon-name eoncoding.")
-;;;###autoload
-(defconst XA-wm-icon-size (make-X-Atom :id 38.0 :name "WM-ICON-SIZE") "Atom wm-icon-size eoncoding.")
-;;;###autoload
-(defconst XA-wm-name (make-X-Atom :id 39.0 :name "WM-NAME") "Atom wm-name eoncoding.")
-;;;###autoload
-(defconst XA-wm-normal-hints (make-X-Atom :id 40.0 :name "WM-NORMAL-HINTS") "Atom wm-normal-hints eoncoding.")
-;;;###autoload
-(defconst XA-wm-size-hints (make-X-Atom :id 41.0 :name "WM-SIZE-HINTS") "Atom wm-size-hints eoncoding.")
-;;;###autoload
-(defconst XA-wm-zoom-hints (make-X-Atom :id 42.0 :name "WM-ZOOM-HINTS") "Atom wm-zoom-hints eoncoding.")
-;;;###autoload
-(defconst XA-min-space (make-X-Atom :id 43.0 :name "MIN-SPACE") "Atom min-space eoncoding.")
-;;;###autoload
-(defconst XA-norm-space (make-X-Atom :id 44.0 :name "NORM-SPACE") "Atom norm-space eoncoding.")
-;;;###autoload
-(defconst XA-max-space (make-X-Atom :id 45.0 :name "MAX-SPACE") "Atom max-space eoncoding.")
-;;;###autoload
-(defconst XA-end-space (make-X-Atom :id 46.0 :name "END-SPACE") "Atom end-space eoncoding.")
-;;;###autoload
-(defconst XA-superscript-x (make-X-Atom :id 47.0 :name "SUPERSCRIPT-X") "Atom superscript-x eoncoding.")
-;;;###autoload
-(defconst XA-superscript-y (make-X-Atom :id 48.0 :name "SUPERSCRIPT-Y") "Atom superscript-y eoncoding.")
-;;;###autoload
-(defconst XA-subscript-x (make-X-Atom :id 49.0 :name "SUBSCRIPT-X") "Atom subscript-x eoncoding.")
-;;;###autoload
-(defconst XA-subscript-y (make-X-Atom :id 50.0 :name "SUBSCRIPT-Y") "Atom subscript-y eoncoding.")
-;;;###autoload
-(defconst XA-underline-position (make-X-Atom :id 51.0 :name "UNDERLINE-POSITION") "Atom underline-position eoncoding.")
-;;;###autoload
-(defconst XA-underline-thickness (make-X-Atom :id 52.0 :name "UNDERLINE-THICKNESS") "Atom underline-thickness eoncoding.")
-;;;###autoload
-(defconst XA-strikeout-ascent (make-X-Atom :id 53.0 :name "STRIKEOUT-ASCENT") "Atom strikeout-ascent eoncoding.")
-;;;###autoload
-(defconst XA-strikeout-descent (make-X-Atom :id 54.0 :name "STRIKEOUT-DESCENT") "Atom strikeout-descent eoncoding.")
-;;;###autoload
-(defconst XA-italic-angle (make-X-Atom :id 55.0 :name "ITALIC-ANGLE") "Atom italic-angle eoncoding.")
-;;;###autoload
-(defconst XA-x-height (make-X-Atom :id 56.0 :name "X-HEIGHT") "Atom x-height eoncoding.")
-;;;###autoload
-(defconst XA-quad-width (make-X-Atom :id 57.0 :name "QUAD-WIDTH") "Atom quad-width eoncoding.")
-;;;###autoload
-(defconst XA-weight (make-X-Atom :id 58.0 :name "WEIGHT") "Atom weight eoncoding.")
-;;;###autoload
-(defconst XA-point-size (make-X-Atom :id 59.0 :name "POINT-SIZE") "Atom point-size eoncoding.")
-;;;###autoload
-(defconst XA-resolution (make-X-Atom :id 60.0 :name "RESOLUTION") "Atom resolution eoncoding.")
-;;;###autoload
-(defconst XA-copyright (make-X-Atom :id 61.0 :name "COPYRIGHT") "Atom copyright eoncoding.")
-;;;###autoload
-(defconst XA-notice (make-X-Atom :id 62.0 :name "NOTICE") "Atom notice eoncoding.")
-;;;###autoload
-(defconst XA-font-name (make-X-Atom :id 63.0 :name "FONT-NAME") "Atom font-name eoncoding.")
-;;;###autoload
-(defconst XA-family-name (make-X-Atom :id 64.0 :name "FAMILY-NAME") "Atom family-name eoncoding.")
-;;;###autoload
-(defconst XA-full-name (make-X-Atom :id 65.0 :name "FULL-NAME") "Atom full-name eoncoding.")
-;;;###autoload
-(defconst XA-cap-height (make-X-Atom :id 66.0 :name "CAP-HEIGHT") "Atom cap-height eoncoding.")
-;;;###autoload
-(defconst XA-wm-class (make-X-Atom :id 67.0 :name "WM-CLASS") "Atom wm-class eoncoding.")
-;;;###autoload
-(defconst XA-wm-transient-for (make-X-Atom :id 68.0 :name "WM-TRANSIENT-FOR") "Atom wm-transient-for eoncoding.")
-
 ;;; Property Modes for atoms
-;;;###autoload
 (defconst X-PropModeReplace 0 "Property Mode Replace")
-;;;###autoload
 (defconst X-PropModePrepend 1 "Property Mode Prepend")
-;;;###autoload
 (defconst X-PropModeAppend  2 "Property Mode Append")
 
 ;;; KeyButtonMask
 
-;;;###autoload
 (defconst X-Shift #x1 "Shift bitmask.")
-;;;###autoload
 (defconst X-Lock #x2 "Lock bitmask.")
-;;;###autoload
 (defconst X-Control #x4 "Control bitmask.")
-;;;###autoload
 (defconst X-Mod1 #x8 "Mod1 bitmask.")
-;;;###autoload
 (defconst X-Mod2 #x10 "Mod2 bitmask.")
-;;;###autoload
 (defconst X-Mod3 #x20 "Mod3 bitmask.")
-;;;###autoload
 (defconst X-Mod4 #x40 "Mod4 bitmask.")
-;;;###autoload
 (defconst X-Mod5 #x80 "Mod5 bitmask.")
-;;;###autoload
 (defconst X-Button1 #x100 "Button1 bitmask.")
-;;;###autoload
 (defconst X-Button2 #x200 "Button2 bitmask.")
-;;;###autoload
 (defconst X-Button3 #x400 "Button3 bitmask.")
-;;;###autoload
 (defconst X-Button4 #x800 "Button4 bitmask.")
-;;;###autoload
 (defconst X-Button5 #x1000 "Button5 bitmask.")
 
-;;;###autoload
 (defconst X-XButton1 1)
-;;;###autoload
 (defconst X-XButton2 2)
-;;;###autoload
 (defconst X-XButton3 3)
-;;;###autoload
 (defconst X-XButton4 4)
-;;;###autoload
 (defconst X-XButton5 5)
 ;;; Graphic context stuff
 ;;
 
 ;;; functions
-;;;###autoload
 (defconst X-GXClear 0 "GC function type id.")
-;;;###autoload
 (defconst X-GXAnd 1 "GC function type id.")
-;;;###autoload
 (defconst X-GXAndReverse 2 "GC function type id.")
-;;;###autoload
 (defconst X-GXCopy 3 "GC function type id.")
-;;;###autoload
 (defconst X-GXAndInverted 4 "GC function type id.")
-;;;###autoload
 (defconst X-GXNoOp 5 "GC function type id.")
-;;;###autoload
 (defconst X-GXXor 6 "GC function type id.")
-;;;###autoload
 (defconst X-GXOr 7 "GC function type id.")
-;;;###autoload
 (defconst X-GXNor 8 "GC function type id.")
-;;;###autoload
 (defconst X-GXEquiv 9 "GC function type id.")
-;;;###autoload
 (defconst X-GXInvert 10 "GC function type id.")
-;;;###autoload
 (defconst X-GXOrReverse 11 "GC function type id.")
-;;;###autoload
 (defconst X-GXCopyInverted 12 "GC function type id.")
-;;;###autoload
 (defconst X-GXOrInverted 13 "GC function type id.")
-;;;###autoload
 (defconst X-GXNand 14 "GC function type id.")
-;;;###autoload
 (defconst X-GXSet 15 "GC function type id.")
 
 ;; line styles
-;;;###autoload
 (defconst X-LineSolid 0 "GC line-style.")
-;;;###autoload
 (defconst X-LineOnOffDash 1 "GC line-style.")
-;;;###autoload
 (defconst X-LineDoubleDash 2 "GC line-style.")
 
 ;; cap-styles
-;;;###autoload
 (defconst X-CapNotLast 0 "GC cap-styles.")
-;;;###autoload
 (defconst X-CapButt 1 "GC cap-styles.")
-;;;###autoload
 (defconst X-CapRound 2 "GC cap-styles.")
-;;;###autoload
 (defconst X-CapProjecting 3 "GC cap-styles.")
 
 ;; join styles
-;;;###autoload
 (defconst X-JoinMiter 0 "GC join-style.")
-;;;###autoload
 (defconst X-JoinRound 1 "GC join-style.")
-;;;###autoload
 (defconst X-JoinBevel 2 "GC join-style.")
 
 ;; fill style
-;;;###autoload
 (defconst X-FillSolid 0 "GC fill-style.")
-;;;###autoload
 (defconst X-FillTiled 1 "GC fill-style.")
-;;;###autoload
 (defconst X-FillStippled 2 "GC fill-style.")
-;;;###autoload
 (defconst X-FillOpaqueStippled 3 "GC fill-style.")
 
 ;; fill rule
-;;;###autoload
 (defconst X-EvenOddRule 0 "GC fill-rule.")
-;;;###autoload
 (defconst X-WindingRule 1 "GC fill-rule.")
 
 ;; arc-mode
-;;;###autoload
 (defconst X-ArcChord 0 "GC arc mode.")
-;;;###autoload
 (defconst X-ArcPieSlice 1 "GC arc mode.")
 
 ;; Subwindow mode
-;;;###autoload
 (defconst X-ClipByChildren 0 "GC subwindow-mode.")
-;;;###autoload
 (defconst X-IncludeInferiors 1 "GC subwindow-mode.")
 
 ;; XSetClipRectangles ordering
-;;;###autoload
 (defconst X-UnSorted 0 "Unsorted list.")
-;;;###autoload
 (defconst X-YSorted 1 "Sorted by Y.")
-;;;###autoload
 (defconst X-YXSorted 2 "Sorted by X and Y.")
-;;;###autoload
 (defconst X-YXBanded 3)
 
 ;; Imaging
-;;;###autoload
 (defconst X-XYBitmap 0)			; depth 1, XYFormat
-;;;###autoload
 (defconst X-XYPixmap 1)			; depth == drawable depth
-;;;###autoload
 (defconst X-ZPixmap 2)			; depth == drawable depth
 
 ;;; Some color type stuff
 ;;
-;;;###autoload
 (defconst X-AllocNone 0 "No color entries writable.")
-;;;###autoload
 (defconst X-AllocAll  1 "All color entries writable.")
 
-;;;###autoload
 (defconst X-DoRed 1 "Do Red mask.")
-;;;###autoload
 (defconst X-DoGreen 2 "Do Green mask.")
-;;;###autoload
 (defconst X-DoBlue 4 "Do blue mask.")
-;;;###autoload
 (defconst X-DoRedGreenBlue 7 "All Color Dos ored together.")
 
 ;;; Poling coordinate mode
-;;;###autoload
 (defconst X-Origin 0 "Specifies point drawn with relation to origin.")
-;;;###autoload
 (defconst X-Previous 1 "Specifies points draw with relation to previous point.")
 
 ;;; Filling shapes
-;;;###autoload
 (defconst X-Complex 0)
-;;;###autoload
 (defconst X-Nonconvex 1)
-;;;###autoload
 (defconst X-Convex 2)
 
 ;; Misc
-;;;###autoload
 (defconst X-None 0 "universal null resource or null atom")
 
-;;;###autoload
 (defconst X-RevertToNone 0 "for XSetInputFocus")
-;;;###autoload
 (defconst X-RevertToPointerRoot 1 "for XSetInputFocus")
-;;;###autoload
 (defconst X-RevertToParent 2 "for XSetInputFocus")
 
-;;;###autoload
 (defconst X-ParentRelative 1
   "Background pixmap in CreateWindow and ChangeWindowAttributes.")
-;;;###autoload
 (defconst X-CopyFromParent 0
   "Border pixmap in CreateWindow and ChangeWindowAttributes special
   VisualID and special window class passed to CreateWindow.")
-;;;###autoload
 (defconst X-PointerWindow 0 "destination window in SendEvent")
-;;;###autoload
 (defconst X-InputFocus 1 "destination window in SendEvent")
-;;;###autoload
 (defconst X-PointerRoot	1 "focus window in SetInputFocus")
-;;;###autoload
 (defconst X-AnyPropertyType 0 "special Atom, passed to GetProperty")
-;;;###autoload
 (defconst X-AnyKey 0 "special Key Code, passed to GrabKey")
-;;;###autoload
 (defconst X-AnyButton 0 "special Button Code, passed to GrabButton")
-;;;###autoload
 (defconst X-AllTemporary 0 "special Resource ID passed to KillClient")
-;;;###autoload
 (defconst X-CurrentTime	0 "special Time")
-;;;###autoload
 (defconst X-NoSymbol 0 "special KeySym")
 
-;;;###autoload
 (defconst X-GrabModeSync 0 "specific mode")
-;;;###autoload
 (defconst X-GrabModeAsync 1 "specific mode")
 
-;;;###autoload
 (defconst X-AllPlanes -1 "Mask for all planes in XGetImage.")
 
 ;; AllowEvents modes
-;;;###autoload
 (defconst X-AsyncPointer 0)
-;;;###autoload
 (defconst X-SyncPointer 1)
-;;;###autoload
 (defconst X-ReplayPointer 2)
-;;;###autoload
 (defconst X-AsyncKeyboard 3)
-;;;###autoload
 (defconst X-SyncKeyboard 4)
-;;;###autoload
 (defconst X-ReplayKeyboard 5)
-;;;###autoload
 (defconst X-AsyncBoth 6)
-;;;###autoload
 (defconst X-SyncBoth 7)
 
 ;; For window Attributes
-;;;###autoload
 (defconst X-CWBackPixmap #x1)
-;;;###autoload
 (defconst X-CWBackPixel #x2)
-;;;###autoload
 (defconst X-CWBorderPixmap #x4)
-;;;###autoload
 (defconst X-CWBorderPixel #x8)
-;;;###autoload
 (defconst X-CWBitGravity #x10)
-;;;###autoload
 (defconst X-CWWinGravity #x20)
-;;;###autoload
 (defconst X-CWBackingStore #x40)
-;;;###autoload
 (defconst X-CWBackingPlanes #x80)
-;;;###autoload
 (defconst X-CWBackingPixel #x100)
-;;;###autoload
 (defconst X-CWOverrideRedirect #x200)
-;;;###autoload
 (defconst X-CWSaveUnder #x400)
-;;;###autoload
 (defconst X-CWEventMask #x800)
-;;;###autoload
 (defconst X-CWDontPropagate #x1000)
-;;;###autoload
 (defconst X-CWColormap #x2000)
-;;;###autoload
 (defconst X-CWCursor #x4000)
 
 ;; used in ChangeSaveSet
-;;;###autoload
 (defconst X-SetModeInsert 0)
-;;;###autoload
 (defconst X-SetModeDelete 1)
 
 ;; used in ConfigureWindow
-;;;###autoload
 (defconst X-CWX #x1)
-;;;###autoload
 (defconst X-CWY #x2)
-;;;###autoload
 (defconst X-CWWidth #x4)
-;;;###autoload
 (defconst X-CWHeight #x8)
-;;;###autoload
 (defconst X-CWBorderWidth #x10)
-;;;###autoload
 (defconst X-CWSibling #x20)
-;;;###autoload
 (defconst X-CWStackMode #x40)
 
 ;;; Cursors
-;;;###autoload
 (defconst X-XC-num_glyphs 154)
-;;;###autoload
 (defconst X-XC-X_cursor 0)
-;;;###autoload
 (defconst X-XC-arrow 2)
-;;;###autoload
 (defconst X-XC-based_arrow_down 4)
-;;;###autoload
 (defconst X-XC-based_arrow_up 6)
-;;;###autoload
 (defconst X-XC-boat 8)
-;;;###autoload
 (defconst X-XC-bogosity 10)
-;;;###autoload
 (defconst X-XC-bottom_left_corner 12)
-;;;###autoload
 (defconst X-XC-bottom_right_corner 14)
-;;;###autoload
 (defconst X-XC-bottom_side 16)
-;;;###autoload
 (defconst X-XC-bottom_tee 18)
-;;;###autoload
 (defconst X-XC-box_spiral 20)
-;;;###autoload
 (defconst X-XC-center_ptr 22)
-;;;###autoload
 (defconst X-XC-circle 24)
-;;;###autoload
 (defconst X-XC-clock 26)
-;;;###autoload
 (defconst X-XC-coffee_mug 28)
-;;;###autoload
 (defconst X-XC-cross 30)
-;;;###autoload
 (defconst X-XC-cross_reverse 32)
-;;;###autoload
 (defconst X-XC-crosshair 34)
-;;;###autoload
 (defconst X-XC-diamond_cross 36)
-;;;###autoload
 (defconst X-XC-dot 38)
-;;;###autoload
 (defconst X-XC-dotbox 40)
-;;;###autoload
 (defconst X-XC-double_arrow 42)
-;;;###autoload
 (defconst X-XC-draft_large 44)
-;;;###autoload
 (defconst X-XC-draft_small 46)
-;;;###autoload
 (defconst X-XC-draped_box 48)
-;;;###autoload
 (defconst X-XC-exchange 50)
-;;;###autoload
 (defconst X-XC-fleur 52)
-;;;###autoload
 (defconst X-XC-gobbler 54)
-;;;###autoload
 (defconst X-XC-gumby 56)
-;;;###autoload
 (defconst X-XC-hand1 58)
-;;;###autoload
 (defconst X-XC-hand2 60)
-;;;###autoload
 (defconst X-XC-heart 62)
-;;;###autoload
 (defconst X-XC-icon 64)
-;;;###autoload
 (defconst X-XC-iron_cross 66)
-;;;###autoload
 (defconst X-XC-left_ptr 68)
-;;;###autoload
 (defconst X-XC-left_side 70)
-;;;###autoload
 (defconst X-XC-left_tee 72)
-;;;###autoload
 (defconst X-XC-leftbutton 74)
-;;;###autoload
 (defconst X-XC-ll_angle 76)
-;;;###autoload
 (defconst X-XC-lr_angle 78)
-;;;###autoload
 (defconst X-XC-man 80)
-;;;###autoload
 (defconst X-XC-middlebutton 82)
-;;;###autoload
 (defconst X-XC-mouse 84)
-;;;###autoload
 (defconst X-XC-pencil 86)
-;;;###autoload
 (defconst X-XC-pirate 88)
-;;;###autoload
 (defconst X-XC-plus 90)
-;;;###autoload
 (defconst X-XC-question_arrow 92)
-;;;###autoload
 (defconst X-XC-right_ptr 94)
-;;;###autoload
 (defconst X-XC-right_side 96)
-;;;###autoload
 (defconst X-XC-right_tee 98)
-;;;###autoload
 (defconst X-XC-rightbutton 100)
-;;;###autoload
 (defconst X-XC-rtl_logo 102)
-;;;###autoload
 (defconst X-XC-sailboat 104)
-;;;###autoload
 (defconst X-XC-sb_down_arrow 106)
-;;;###autoload
 (defconst X-XC-sb_h_double_arrow 108)
-;;;###autoload
 (defconst X-XC-sb_left_arrow 110)
-;;;###autoload
 (defconst X-XC-sb_right_arrow 112)
-;;;###autoload
 (defconst X-XC-sb_up_arrow 114)
-;;;###autoload
 (defconst X-XC-sb_v_double_arrow 116)
-;;;###autoload
 (defconst X-XC-shuttle 118)
-;;;###autoload
 (defconst X-XC-sizing 120)
-;;;###autoload
 (defconst X-XC-spider 122)
-;;;###autoload
 (defconst X-XC-spraycan 124)
-;;;###autoload
 (defconst X-XC-star 126)
-;;;###autoload
 (defconst X-XC-target 128)
-;;;###autoload
 (defconst X-XC-tcross 130)
-;;;###autoload
 (defconst X-XC-top_left_arrow 132)
-;;;###autoload
 (defconst X-XC-top_left_corner 134)
-;;;###autoload
 (defconst X-XC-top_right_corner 136)
-;;;###autoload
 (defconst X-XC-top_side 138)
-;;;###autoload
 (defconst X-XC-top_tee 140)
-;;;###autoload
 (defconst X-XC-trek 142)
-;;;###autoload
 (defconst X-XC-ul_angle 144)
-;;;###autoload
 (defconst X-XC-umbrella 146)
-;;;###autoload
 (defconst X-XC-ur_angle 148)
-;;;###autoload
 (defconst X-XC-watch 150)
-;;;###autoload
 (defconst X-XC-xterm 152)
 
 ;; Some keys
-;;;###autoload
 (defconst XK-Shift-L 65505)
-;;;###autoload
 (defconst XK-Shift-R 65506)
-;;;###autoload
 (defconst XK-Control-L 65507)
-;;;###autoload
 (defconst XK-Control-R 65508)
-;;;###autoload
 (defconst XK-Caps-Lock 65509)
-;;;###autoload
 (defconst XK-Shift-Lock 65510)
 
-;;;###autoload
 (defconst XK-Meta-L 65511)
-;;;###autoload
 (defconst XK-Meta-R 65512)
-;;;###autoload
 (defconst XK-Alt-L 65513)
-;;;###autoload
 (defconst XK-Alt-R 65514)
-;;;###autoload
 (defconst XK-Super-L 65515)
-;;;###autoload
 (defconst XK-Super-R 65516)
-;;;###autoload
 (defconst XK-Hyper-L 65517)
-;;;###autoload
 (defconst XK-Hyper-R 65518)
 
-;;;###autoload
 (defconst XK-BackSpace 65288)
-;;;###autoload
 (defconst XK-Tab 65289)
-;;;###autoload
 (defconst XK-Linefeed 65290)
-;;;###autoload
 (defconst XK-Clear 65291)
-;;;###autoload
 (defconst XK-Return 65293)
-;;;###autoload
 (defconst XK-Pause 65299)
-;;;###autoload
 (defconst XK-Scroll-Lock 65300)
-;;;###autoload
 (defconst XK-Sys-Req 65301)
-;;;###autoload
 (defconst XK-Escape 65307)
-;;;###autoload
 (defconst XK-Delete 65535)
 
-;;;###autoload
 (defconst XK-Select #xFF60 "Select, mark")
-;;;###autoload
 (defconst XK-Print #xFF61)
-;;;###autoload
 (defconst XK-Execute #xFF62 "Execute, run, do")
-;;;###autoload
 (defconst XK-Insert #xFF63 "Insert, insert here")
-;;;###autoload
 (defconst XK-Undo #xFF65 "Undo, oops")
-;;;###autoload
 (defconst XK-Redo #xFF66 "redo, again")
-;;;###autoload
 (defconst XK-Menu #xFF67)
-;;;###autoload
 (defconst XK-Find #xFF68 "Find, search")
-;;;###autoload
 (defconst XK-Cancel #xFF69 "Cancel, stop, abort, exit")
-;;;###autoload
 (defconst XK-Help #xFF6A "Help")
-;;;###autoload
 (defconst XK-Break #xFF6B)
-;;;###autoload
 (defconst XK-ModeSwitch #xFF7E "Character set switch")
-;;;###autoload
 (defconst XK-ScriptSwitch #xFF7E "Alias for mode_switch")
-;;;###autoload
 (defconst XK-NumLock #xFF7F)
 
-;;;###autoload
 (defconst XK-F1			#xFFBE)
-;;;###autoload
 (defconst XK-F2			#xFFBF)
-;;;###autoload
 (defconst XK-F3			#xFFC0)
-;;;###autoload
 (defconst XK-F4			#xFFC1)
-;;;###autoload
 (defconst XK-F5			#xFFC2)
-;;;###autoload
 (defconst XK-F6			#xFFC3)
-;;;###autoload
 (defconst XK-F7			#xFFC4)
-;;;###autoload
 (defconst XK-F8			#xFFC5)
-;;;###autoload
 (defconst XK-F9			#xFFC6)
-;;;###autoload
 (defconst XK-F10		#xFFC7)
-;;;###autoload
 (defconst XK-F11		#xFFC8)
-;;;###autoload
 (defconst XK-L1			#xFFC8)
-;;;###autoload
 (defconst XK-F12		#xFFC9)
-;;;###autoload
 (defconst XK-L2			#xFFC9)
-;;;###autoload
 (defconst XK-F13		#xFFCA)
-;;;###autoload
 (defconst XK-L3			#xFFCA)
-;;;###autoload
 (defconst XK-F14		#xFFCB)
-;;;###autoload
 (defconst XK-L4			#xFFCB)
-;;;###autoload
 (defconst XK-F15		#xFFCC)
-;;;###autoload
 (defconst XK-L5			#xFFCC)
-;;;###autoload
 (defconst XK-F16		#xFFCD)
-;;;###autoload
 (defconst XK-L6			#xFFCD)
-;;;###autoload
 (defconst XK-F17		#xFFCE)
-;;;###autoload
 (defconst XK-L7			#xFFCE)
-;;;###autoload
 (defconst XK-F18		#xFFCF)
-;;;###autoload
 (defconst XK-L8			#xFFCF)
-;;;###autoload
 (defconst XK-F19		#xFFD0)
-;;;###autoload
 (defconst XK-L9			#xFFD0)
-;;;###autoload
 (defconst XK-F20		#xFFD1)
-;;;###autoload
 (defconst XK-L10		#xFFD1)
-;;;###autoload
 (defconst XK-F21		#xFFD2)
-;;;###autoload
 (defconst XK-R1			#xFFD2)
-;;;###autoload
 (defconst XK-F22		#xFFD3)
-;;;###autoload
 (defconst XK-R2			#xFFD3)
-;;;###autoload
 (defconst XK-F23		#xFFD4)
-;;;###autoload
 (defconst XK-R3			#xFFD4)
-;;;###autoload
 (defconst XK-F24		#xFFD5)
-;;;###autoload
 (defconst XK-R4			#xFFD5)
-;;;###autoload
 (defconst XK-F25		#xFFD6)
-;;;###autoload
 (defconst XK-R5			#xFFD6)
-;;;###autoload
 (defconst XK-F26		#xFFD7)
-;;;###autoload
 (defconst XK-R6			#xFFD7)
-;;;###autoload
 (defconst XK-F27		#xFFD8)
-;;;###autoload
 (defconst XK-R7			#xFFD8)
-;;;###autoload
 (defconst XK-F28		#xFFD9)
-;;;###autoload
 (defconst XK-R8			#xFFD9)
-;;;###autoload
 (defconst XK-F29		#xFFDA)
-;;;###autoload
 (defconst XK-R9			#xFFDA)
-;;;###autoload
 (defconst XK-F30		#xFFDB)
-;;;###autoload
 (defconst XK-R10		#xFFDB)
-;;;###autoload
 (defconst XK-F31		#xFFDC)
-;;;###autoload
 (defconst XK-R11		#xFFDC)
-;;;###autoload
 (defconst XK-F32		#xFFDD)
-;;;###autoload
 (defconst XK-R12		#xFFDD)
-;;;###autoload
 (defconst XK-F33		#xFFDE)
-;;;###autoload
 (defconst XK-R13		#xFFDE)
-;;;###autoload
 (defconst XK-F34		#xFFDF)
-;;;###autoload
 (defconst XK-R14		#xFFDF)
-;;;###autoload
 (defconst XK-F35		#xFFE0)
-;;;###autoload
 (defconst XK-R15		#xFFE0)
 
-;;;###autoload
 (defconst XK-Space		#x0020)
 
 ;; Cursors
-;;;###autoload
 (defconst XK-Home		#xFF50)
-;;;###autoload
 (defconst XK-Left		#xFF51)	; Move left, left arrow
-;;;###autoload
 (defconst XK-Up			#xFF52)	; Move up, up arrow
-;;;###autoload
 (defconst XK-Right		#xFF53)	; Move right, right arrow
-;;;###autoload
 (defconst XK-Down		#xFF54)	; Move down, down arrow
-;;;###autoload
 (defconst XK-Prior		#xFF55)	; Prior, previous
-;;;###autoload
 (defconst XK-PageUp		#xFF55)
-;;;###autoload
 (defconst XK-Next		#xFF56)	; Next
-;;;###autoload
 (defconst XK-PageDown		#xFF56) ;
-;;;###autoload
 (defconst XK-End		#xFF57)	; EOL
-;;;###autoload
 (defconst XK-Begin		#xFF58)	; BOL
 
 ;; Window states
-;;;###autoload
 (defconst X-WithdrawnState 0.0)
-;;;###autoload
 (defconst X-NormalState 1.0)
-;;;###autoload
 (defconst X-IconicState 3.0)
 
 ;; Notify mode
-;;;###autoload
 (defconst X-NotifyNormal 0)
-;;;###autoload
 (defconst X-NotifyGrab 1)
-;;;###autoload
 (defconst X-NotifyUngrab 2)
-;;;###autoload
 (defconst X-NotifyWhileGrabbed 3)
 
-;;;###autoload
 (defconst X-NotifyHint 1)		; for MotionNotify
 		       
 ;; Notify detail
-;;;###autoload
 (defconst X-NotifyAncestor 0)
-;;;###autoload
 (defconst X-NotifyVirtual 1)
-;;;###autoload
 (defconst X-NotifyInferior 2)
-;;;###autoload
 (defconst X-NotifyNonlinear 3)
-;;;###autoload
 (defconst X-NotifyNonlinearVirtual 4)
-;;;###autoload
 (defconst X-NotifyPointer 5)
-;;;###autoload
 (defconst X-NotifyPointerRoot 6)
-;;;###autoload
 (defconst X-NotifyDetailNone 7)
 
 ;; Used in GetWindowAttributes reply
-;;;###autoload
 (defconst X-Unmapped 0)
-;;;###autoload
 (defconst X-Unviewable 1)
-;;;###autoload
 (defconst X-Viewable 2)
 
+;; Visibility notify
+(defconst X-VisibilityUnobscured 0)
+(defconst X-VisibilityPartiallyObscured 1)
+(defconst X-VisibilityFullyObscured 2)
+
+;; Circulation request
+(defconst X-PlaceOnTop 0)
+(defconst X-PlaceOnBottom 1)
+
+;; Protocol families
+(defconst X-FamilyInternet 0)
+(defconst X-FamilyDECnet 1)
+(defconst X-FamilyChaos 2)
+
 ;; Byte order
-;;;###autoload
 (defconst X-LSBFirst 0)
-;;;###autoload
 (defconst X-MSBFirst 1)
 
 

File lisp/xlib-hello.el

 
 ;;; Code:
 
-(eval-when-compile
-  (require 'xlib-xlib))
-(require 'xpm-button)
+(require 'xlib-xpm)
 
 (defconst XH-event-mask
   (Xmask-or XM-Exposure XM-StructureNotify XM-KeyPress XM-KeyRelease
   "Show 'Press Me' button."
   (unless XH-buttons
     ;; Fill
+    (require 'xpm-button)
     (let ((buts (xpm-button-create "Press Me" 2 "green4" "#a0d0a0")))
       (setq XH-buttons
 	    (mapcar (lambda (but)
 (defun XH-show-close-button (dpy win x y &optional state)
   "Show 'Dismiss' button."
   (unless XH-close-buttons
+    (require 'xpm-button)
     (let ((buts (xpm-button-create "Dismiss" 4 "Red4" "gray80")))
       (setq XH-close-buttons
             (mapcar (lambda (but)

File lisp/xlib-img.el

 
 ;;; Code:
 
+(require 'xlib-xlib)
 
-;;;###autoload
 (defstruct (X-Image (:predicate X-Image-isimage-p))
   width
   height
   get-pixel
   put-pixel
   add-pixel
-  destroy-image)
+  destroy-image
+
+  plist)                                ; user defined plist
+
+;; Plist ops
+(defsubst X-Image-put-prop (ximg prop val)
+  (setf (X-Image-plist ximg)
+        (plist-put (X-Image-plist ximg) prop val)))
+(put 'X-Image-put-prop 'lisp-indent-function 2)
+(defsubst X-Image-get-prop (ximg prop)
+  (plist-get (X-Image-plist ximg) prop))
+(defsubst X-Image-rem-prop (ximg prop)
+  (setf (X-Image-plist ximg)
+        (plist-remprop (X-Image-plist ximg) prop)))
 
 (defconst X:X-low-bits-table
   (vconcat (mapcar (lambda (el)
 	     (setf (X-Image-put-pixel img) 'X:XPutPixel)))
     img))
 
-;;;###autoload
 (defun XCreateImage (xdpy visual depth format offset data width height xpad image-bytes-per-line)
   "Create new image."
   (let (img)
     (if (or (= depth 0)
 	    (> depth 32)
-	    (not (member format (list X-XYBitmap X-XYPixmap X-ZPixmap)))
+	    (not (memq format (list X-XYBitmap X-XYPixmap X-ZPixmap)))
 	    (and (= format X-XYBitmap) (not (= depth 1)))
-	    (not (member xpad (list 8 16 32)))
+	    (not (memq xpad '(8 16 32)))
 	    (< offset 0)
 	    (< image-bytes-per-line 0))
 	nil				; invalid parameter
       (X:XInitImageFuncs img)
       img)))
 
-;;;###autoload
 (defun XDestroyImage (img)
   "Destroy image IMG."
   (X-invalidate-cl-struct img))
 
-;;;###autoload
+(defun XImageGet (xdpy d x y width height)
+  "On display XDPY and drawable D get image with geom +X+Y+WIDTHxHEIGHT."
+  (let* ((xdata-1 (XGetImage xdpy d x y width height X-AllPlanes X-ZPixmap))
+         (xdata (and (car xdata-1) (nth 4 xdata-1)))
+         (tlen (length xdata))
+         (coff 0)
+         tline ex-mcc ximg)
+
+    ;; Create data for XIMG
+    (while (< coff tlen)
+      (setq tline (cons (string2->number (substring xdata coff (+ coff 2))) tline))
+      (setq coff (+ coff 2))
+      (when (= (length tline) width)
+        (setq ex-mcc (cons (nreverse tline) ex-mcc)
+              tline nil)))
+    (setq ex-mcc (nreverse ex-mcc))
+    (setq xdata (mapcar (lambda (l)
+                          (mapconcat  'identity (mapcar 'int->string2 l) ""))
+                        ex-mcc))
+
+    (setq ximg (XCreateImage xdpy nil (XDefaultDepth xdpy)
+                             X-ZPixmap 0 xdata width height
+                             (X-Dpy-bitmap-scanline-pad xdpy) 1))
+    ;; Save pixels layout
+    (X-Image-put-prop ximg 'px-layout ex-mcc)
+    ximg))
+
+;; Testing (XImageGet (xwem-dpy) (xwem-cl-xwin (xwem-cl-selected)) 40 10 100 100)
+;;         (XImagePut (xwem-dpy) (XDefaultGC (xwem-dpy)) (xwem-frame-xwin (nth 1 xwem-frames-list)) 30 40 ximg)
+
 (defun XImagePut (xdpy gc d x y ximg)
   "On display XDPY and drawable D at X Y put an XIMG."
   (let (data left-pad)
-    (setq data (mapconcat 'identity (X-Image-data ximg) ""))
+    (unless (stringp (X-Image-data ximg))
+      (setq data (mapconcat 'identity (X-Image-data ximg) "")))
 
     (if (or (= (X-Image-bits-per-pixel ximg) 1)
 	    (not (= (X-Image-format ximg) X-ZPixmap)))

File lisp/xlib-keysymdb.el

+;;; xlib-keysymdb.el --- XKeysymDB for xlib.
+
+;; Copyright (C) 2004 by Free Software Foundation, Inc.
+
+;; Author: Zajcev Evgeny <zevlg@yandex.ru>
+;; Created: Tue Dec  7 20:23:10 MSK 2004
+;; Keywords: xlib
+;; X-CVS: $Id$
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Synched up with: Not in FSF
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+
+(defconst x-XKeysymDB
+  [(hpmute_acute        . #x100000A8)
+    (hpmute_grave        . #x100000A9)
+    (hpmute_asciicircum  . #x100000AA)
+    (hpmute_diaeresis    . #x100000AB)
+    (hpmute_asciitilde   . #x100000AC)
+    (hplira              . #x100000AF)
+    (hpguilder           . #x100000BE)
+    (hpYdiaeresis        . #x100000EE)
+    (hpIO                . #x100000EE)
+    (hplongminus         . #x100000F6)
+    (hpblock             . #x100000FC)
+    (apLineDel           . #x1000FF00)
+    (apCharDel           . #x1000FF01)
+    (apCopy              . #x1000FF02)
+    (apCut               . #x1000FF03)
+    (apPaste             . #x1000FF04)
+    (apMove              . #x1000FF05)
+    (apGrow              . #x1000FF06)
+    (apCmd               . #x1000FF07)
+    (apShell             . #x1000FF08)
+    (apLeftBar           . #x1000FF09)
+    (apRightBar          . #x1000FF0A)
+    (apLeftBox           . #x1000FF0B)
+    (apRightBox          . #x1000FF0C)
+    (apUpBox             . #x1000FF0D)
+    (apDownBox           . #x1000FF0E)
+    (apPop               . #x1000FF0F)
+    (apRead              . #x1000FF10)
+    (apEdit              . #x1000FF11)
+    (apSave              . #x1000FF12)
+    (apExit              . #x1000FF13)
+    (apRepeat            . #x1000FF14)
+    (hpModelock1         . #x1000FF48)
+    (hpModelock2         . #x1000FF49)
+    (hpReset             . #x1000FF6C)
+    (hpSystem            . #x1000FF6D)
+    (hpUser              . #x1000FF6E)
+    (hpClearLine         . #x1000FF6F)
+    (hpInsertLine        . #x1000FF70)
+    (hpDeleteLine        . #x1000FF71)
+    (hpInsertChar        . #x1000FF72)
+    (hpDeleteChar        . #x1000FF73)
+    (hpBackTab           . #x1000FF74)
+    (hpKP_BackTab        . #x1000FF75)
+    (apKP_parenleft      . #x1000FFA8)
+    (apKP_parenright     . #x1000FFA9)
+
+    (I2ND_FUNC_L         . #x10004001)
+    (I2ND_FUNC_R         . #x10004002)
+    (IREMOVE             . #x10004003)
+    (IREPEAT             . #x10004004)
+    (IA1                 . #x10004101)
+    (IA2                 . #x10004102)
+    (IA3                 . #x10004103)
+    (IA4                 . #x10004104)
+    (IA5                 . #x10004105)
+    (IA6                 . #x10004106)
+    (IA7                 . #x10004107)
+    (IA8                 . #x10004108)
+    (IA9                 . #x10004109)
+    (IA10                . #x1000410A)
+    (IA11                . #x1000410B)
+    (IA12                . #x1000410C)
+    (IA13                . #x1000410D)
+    (IA14                . #x1000410E)
+    (IA15                . #x1000410F)
+    (IB1                 . #x10004201)
+    (IB2                 . #x10004202)
+    (IB3                 . #x10004203)
+    (IB4                 . #x10004204)
+    (IB5                 . #x10004205)
+    (IB6                 . #x10004206)
+    (IB7                 . #x10004207)
+    (IB8                 . #x10004208)
+    (IB9                 . #x10004209)
+    (IB10                . #x1000420A)
+    (IB11                . #x1000420B)
+    (IB12                . #x1000420C)
+    (IB13                . #x1000420D)
+    (IB14                . #x1000420E)
+    (IB15                . #x1000420F)
+    (IB16                . #x10004210)
+
+    (DRemove             . #x1000FF00)
+    (Dring_accent        . #x1000FEB0)
+    (Dcircumflex_accent  . #x1000FE5E)
+    (Dcedilla_accent     . #x1000FE2C)
+    (Dacute_accent       . #x1000FE27)
+    (Dgrave_accent       . #x1000FE60)
+    (Dtilde              . #x1000FE7E)
+    (Ddiaeresis          . #x1000FE22)
+
+    (osfCopy             . #x1004FF02)
+    (osfCut              . #x1004FF03)
+    (osfPaste            . #x1004FF04)
+    (osfBackTab          . #x1004FF07)
+    (osfBackSpace        . #x1004FF08)
+    (osfClear            . #x1004FF0B)
+    (osfEscape           . #x1004FF1B)
+    (osfAddMode          . #x1004FF31)
+    (osfPrimaryPaste     . #x1004FF32)
+    (osfQuickPaste       . #x1004FF33)
+    (osfPageLeft         . #x1004FF40)
+    (osfPageUp           . #x1004FF41)
+    (osfPageDown         . #x1004FF42)
+    (osfPageRight        . #x1004FF43)
+    (osfActivate         . #x1004FF44)
+    (osfMenuBar          . #x1004FF45)
+    (osfLeft             . #x1004FF51)
+    (osfUp               . #x1004FF52)
+    (osfRight            . #x1004FF53)
+    (osfDown             . #x1004FF54)
+    (osfPrior            . #x1004FF55)
+    (osfNext             . #x1004FF56)
+    (osfEndLine          . #x1004FF57)
+    (osfBeginLine        . #x1004FF58)
+    (osfEndData          . #x1004FF59)
+    (osfBeginData        . #x1004FF5A)
+    (osfPrevMenu         . #x1004FF5B)
+    (osfNextMenu         . #x1004FF5C)
+    (osfPrevField        . #x1004FF5D)
+    (osfNextField        . #x1004FF5E)
+    (osfSelect           . #x1004FF60)
+    (osfInsert           . #x1004FF63)
+    (osfUndo             . #x1004FF65)
+    (osfMenu             . #x1004FF67)
+    (osfCancel           . #x1004FF69)
+    (osfHelp             . #x1004FF6A)
+    (osfSelectAll        . #x1004FF71)
+    (osfDeselectAll      . #x1004FF72)
+    (osfReselect         . #x1004FF73)
+    (osfExtend           . #x1004FF74)
+    (osfRestore          . #x1004FF78)
+    (osfSwitchDirection  . #x1004FF7E)
+    (osfPriorMinor       . #x1004FFF5)
+    (osfNextMinor        . #x1004FFF6)
+    (osfRightLine        . #x1004FFF7)
+    (osfLeftLine         . #x1004FFF8)
+    (osfDelete           . #x1004FFFF)
+
+    (SunFA_Grave         . #x1005FF00)
+    (SunFA_Circum        . #x1005FF01)
+    (SunFA_Tilde         . #x1005FF02)
+    (SunFA_Acute         . #x1005FF03)
+    (SunFA_Diaeresis     . #x1005FF04)
+    (SunFA_Cedilla       . #x1005FF05)
+    (SunF36              . #x1005FF10)
+    (SunF37              . #x1005FF11)
+    (SunSys_Req          . #x1005FF60)
+    (SunProps            . #x1005FF70)
+    (SunFront            . #x1005FF71)
+    (SunCopy             . #x1005FF72)
+    (SunOpen             . #x1005FF73)
+    (SunPaste            . #x1005FF74)
+    (SunCut              . #x1005FF75)
+    (SunPowerSwitch      . #x1005FF76)
+    (SunAudioLowerVolume . #x1005FF77)
+    (SunAudioMute        . #x1005FF78)
+    (SunAudioRaiseVolume . #x1005FF79)
+    (SunVideoDegauss             . #x1005FF7A)
+    (SunVideoLowerBrightness     . #x1005FF7B)
+    (SunVideoRaiseBrightness     . #x1005FF7C)
+    (SunPowerSwitchShift . #x1005FF7D)
+
+    (SunCompose          . #xFF20)
+    (SunPageUp           . #xFF55)
+    (SunPageDown         . #xFF56)
+    (SunPrint_Screen     . #xFF61)
+    (SunUndo             . #xFF65)
+    (SunAgain            . #xFF66)
+    (SunFind             . #xFF68)
+    (SunStop             . #xFF69)
+    (SunAltGraph         . #xFF7E)
+
+    (WYSetup             . #x1006FF00)
+
+    (ncdSetup            . #x1006FF00)
+
+    (XeroxPointerButton1 . #x10070001)
+    (XeroxPointerButton2 . #x10070002)
+    (XeroxPointerButton3 . #x10070003)
+    (XeroxPointerButton4 . #x10070004)
+    (XeroxPointerButton5 . #x10070005)
+
+;; ! The definitions here should match <X11/XF86keysym.h>
+    (XF86ModeLock                . #x1008FF01)
+    (XF86Standby         . #x1008FF10)
+    (XF86AudioLowerVolume        . #x1008FF11)
+    (XF86AudioMute       . #x1008FF12)
+    (XF86AudioRaiseVolume        . #x1008FF13)
+    (XF86AudioPlay       . #x1008FF14)
+    (XF86AudioStop       . #x1008FF15)
+    (XF86AudioPrev       . #x1008FF16)
+    (XF86AudioNext       . #x1008FF17)
+    (XF86HomePage        . #x1008FF18)
+    (XF86Mail            . #x1008FF19)
+    (XF86Start           . #x1008FF1A)
+    (XF86Search          . #x1008FF1B)
+    (XF86AudioRecord     . #x1008FF1C)
+    (XF86Calculator      . #x1008FF1D)
+    (XF86Memo            . #x1008FF1E)
+    (XF86ToDoList        . #x1008FF1F)
+    (XF86Calendar        . #x1008FF20)
+    (XF86PowerDown       . #x1008FF21)
+    (XF86ContrastAdjust  . #x1008FF22)
+    (XF86RockerUp        . #x1008FF23)
+    (XF86RockerDown      . #x1008FF24)
+    (XF86RockerEnter     . #x1008FF25)
+    (XF86Back            . #x1008FF26)
+    (XF86Forward         . #x1008FF27)
+    (XF86Stop            . #x1008FF28)
+    (XF86Refresh         . #x1008FF29)
+    (XF86PowerOff        . #x1008FF2A)
+    (XF86WakeUp          . #x1008FF2B)
+    (XF86Eject           . #x1008FF2C)
+    (XF86ScreenSaver     . #x1008FF2D)
+    (XF86WWW             . #x1008FF2E)
+    (XF86Sleep           . #x1008FF2F)
+    (XF86Favorites       . #x1008FF30)
+    (XF86AudioPause      . #x1008FF31)
+    (XF86AudioMedia      . #x1008FF32)
+    (XF86MyComputer      . #x1008FF33)
+    (XF86VendorHome      . #x1008FF34)
+    (XF86LightBulb       . #x1008FF35)
+    (XF86Shop            . #x1008FF36)
+    (XF86History         . #x1008FF37)
+    (XF86OpenURL         . #x1008FF38)
+    (XF86AddFavorite     . #x1008FF39)
+    (XF86HotLinks        . #x1008FF3A)
+    (XF86BrightnessAdjust        . #x1008FF3B)
+    (XF86Finance         . #x1008FF3C)
+    (XF86Community       . #x1008FF3D)
+;;! Allocate 1008FF3E-F next
+
+    (XF86Launch0         . #x1008FF40)
+    (XF86Launch1         . #x1008FF41)
+    (XF86Launch2         . #x1008FF42)
+    (XF86Launch3         . #x1008FF43)
+    (XF86Launch4         . #x1008FF44)
+    (XF86Launch5         . #x1008FF45)
+    (XF86Launch6         . #x1008FF46)
+    (XF86Launch7         . #x1008FF47)
+    (XF86Launch8         . #x1008FF48)
+    (XF86Launch9         . #x1008FF49)
+    (XF86LaunchA         . #x1008FF4A)
+    (XF86LaunchB         . #x1008FF4B)
+    (XF86LaunchC         . #x1008FF4C)
+    (XF86LaunchD         . #x1008FF4D)
+    (XF86LaunchE         . #x1008FF4E)
+    (XF86LaunchF         . #x1008FF4F)
+
+    (usldead_acute       . #x100000A8)
+    (usldead_grave       . #x100000A9)
+    (usldead_diaeresis   . #x100000AB)
+    (usldead_asciicircum . #x100000AA)
+    (usldead_asciitilde  . #x100000AC)
+    (usldead_cedilla     . #x1000FE2C)
+    (usldead_ring        . #x1000FEB0)])
+
+(defconst x-XKeysymDB-length 245)
+
+(defun X-XKeysymDB-sym->keysym (sym)
+  "Lookup SYM in keysym db."
+  (let ((i 0)
+        (ret nil))
+    (while (< i x-XKeysymDB-length)
+      (when (eq (car (aref x-XKeysymDB i)) sym)
+        (setq ret (aref x-XKeysymDB i)
+              i x-XKeysymDB-length))
+      (incf i))
+    (cdr ret)))
+
+(defun X-XKeysymDB-keysym->sym (keysym)
+  "Lookup KEYSIM in keysym db."
+  (let ((i 0)
+        (ret nil))
+    (while (< i x-XKeysymDB-length)
+      (when (= (cdr (aref x-XKeysymDB i)) keysym)
+        (setq ret (aref x-XKeysymDB i)
+              i x-XKeysymDB-length))
+      (incf i))
+    (car ret)))
+
+(provide 'xlib-keysymdb)
+
+;;; xlib-keysymdb.el ends here

File lisp/xlib-math.el

 ;;
 
 ;;; Code:
-;;;###autoload
+
+
 (defmacro Xtruncate (val)
   "Do a safe truncate of VAL that might be larger than MAXINT."
   `(truncate (if ,val (mod ,val 65536) 0)))
 
-;;;###autoload
 (defmacro XCharacter (val)
   "Convert VAL (a float) into a truncated character value."
   (if (fboundp 'int-to-char)
 	(list 'logand (list 'truncate (list 'mod val 65536)) 255)
       (list 'truncate (list 'mod val 65536)))))
 
-;;;###autoload
 (defmacro Xforcenum (val)
   "Force VAL (a character) to be a number.
 This macro forces XEmacs 20.3 to behave."
   "Convert STRING characters into an integer and return."
   (string->int string))
 
-;;;###autoload
 (defun int->string (num)
   "Convert NUM into a 2 byte string in network order and return."
   (setq num (truncate num))
 	(h (ash (mod num 65536) -8))) ;upper byte
     (concat (char-to-string l) (char-to-string h))))
 
-;;;###autoload
 (defalias 'int->string2 'int->string)
 
-;;;###autoload
 (defun string->int (string)
   "Convert STRING 1st two characters into an integer and return."
   (let ((l (aref string 0))
 	(h (if (> (length string) 1) (aref string 1) 0)))
     (+ l (ash h 8))))
 
-;;;###autoload
 (defun int->string4 (num)
   "Convert NUM (a float or int) into a 4 byte network order string."
   (if (integerp num)
       (setq tmp (/ tmp (float 256)))
       (setq ts (concat ts (char-to-string (XCharacter tmp)))))))
 
-;;;###autoload
 (defun string4->int (string)
   "Convert STRING 1st four characters into a float and return."
   ;; do nothing yet until we know what we need to do.
      (* (float (Xforcenum (aref string 2))) 256 256)
      (* (float (Xforcenum (aref string 3))) 256 256 256)))
 
-;;;###autoload
 (defun string2->number (string)
   "Convert 2 first bytes in STRING to number."
   (string->int string))
 
-;;;###autoload
 (defun string4->number (string)
   "Convert 4 first bytes in STRING to number.
 NOTE: Use `string4->int' when overflow may occur."
      (lsh (Xforcenum (aref string 2)) 16)
      (lsh (Xforcenum (aref string 3)) 24)))
 
-;;;###autoload
 (defun int->string3 (num)
   "Convert 3 first bytes in STRING to integer."
   (string (logand num 255)
 (defun int32->string (int32)
   )
 
-
-;;;###autoload
 (defun X-pad (number)
   "Return a number which is the padding for an X message of length NUMBER."
   (% (- 4 (% number 4)) 4))
 ;; We won't implement the whole set, just the functionality we need
 ;; to make the checks we want.
 ;;
-;;;###autoload
 (defun Xmask (pos)
   "Create a mask with a bit set in position POS.
 This routine will not work for position 32 and up because we sim
     (* (float (lsh 1 pos)) (float 65536)) ;push into high byte
     ))
 
-;;;###autoload
 (defun Xmask-and (val &rest args)
   "Logically `and' VAL and MASK together.
 They are floats to be broken down into two two byte ints.
 		     (* (float (logand hv hm)) 65536))))))
   val)
 
-;;;###autoload
 (defun Xmask-or (val &rest args)
   "Logically or VAL and MASK together.
 They are floats to be broken down into two two byte ints.
 		     (* (float (logior hv hm)) 65536))))))
   val)
 
-;;;###autoload
 (defun Xtest (val flag)
   "Test value of bytes VAL for presence of FLAG.
 Return t if it exists, nil otherwise."
       (setq cnt (1- cnt)))
     s))
 
-;;;###autoload
 (defun Xmask-string (mask)
   "Convert MASK into a string of 0s and 1s."
   (let ((lv (Xtruncate mask))
   (let ((s (format "%x" mask)))
     (if fill (substring (concat "0000" s) (length s)) s)))
 
-;;;###autoload
 (defun Xmask-hex-string (mask)
   "Convert MASK into a hexidecimal string."
   (let ((lv (Xtruncate mask))
 	    (Xmask-int-hex-string hv)
 	    (Xmask-int-hex-string lv (/= hv 0)))))
 
+
 (provide 'xlib-math)
 
 ;;; xmath.el ends here

File lisp/xlib-testing.el

+;;; xlib-testing.el --- Testing suite for xlib.
+
+;; Copyright (C) 2004 by Free Software Foundation, Inc.
+
+;; Author: Zajcev Evgeny <zevlg@yandex.ru>
+;; Created: Thu Nov 25 15:34:59 MSK 2004
+;; Keywords: xlib
+;; X-CVS: $Id$
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Synched up with: Not in FSF
+
+;;; Commentary:
+
+;; 
+
+;;; Code:
+
+(require 'itimer)
+(require 'xlib-xlib)
+
+
+(defvar xt-dpy-host "127.0.0.1:0")
+(defvar xt-dpy nil)
+(defvar xt-tmp-res nil)
+
+(defvar xt-test-routines '(xt-XOpenDisplay
+                           xt-XCreateWindow xt-XDestroyWindow
+                           xt-XAllocNamedColor xt-XFreeColors
+                           xt-XCreateGC xt-XMapWindow
+                           xt-XDrawingStuff xt-XErrorHandling
+                           xt-XCloseDisplay))
+
+
+(defun xt-error-handler (xdpy xerr)
+  (error "xtesting XError %d [%d(%S)/%d], os/ds=%d/%d"
+         (X-Event-xerror-code xerr)
+         (X-Event-xerror-maj-op xerr)
+         (cdr (assq (X-Event-xerror-maj-op xerr) xlib-opcodes-alist))
+         (X-Event-xerror-min-op xerr)
+         (X-Event-seq xerr)
+         (X-Dpy-rseq-id xt-dpy)))
+
+(defun xt-XOpenDisplay ()
+  (setq xt-dpy (XOpenDisplay xt-dpy-host))
+  (when (X-Dpy-p xt-dpy)
+    (pushnew 'xt-error-handler (X-Dpy-error-hooks xt-dpy)))
+  (if (X-Dpy-p xt-dpy) 'ok 'fail))
+
+(defun xt-XCloseDisplay ()
+  (XCloseDisplay xt-dpy)
+  (setq xt-dpy nil)
+  'ok)
+
+(defun xt-XCreateWindow ()
+  (setq xt-tmp-res (XCreateWindow xt-dpy nil 0 0 200 200
+                                  20 nil nil nil
+                                  (make-X-Attr :override-redirect t
+                                               :background-pixel (XWhitePixel xt-dpy)
+                                               :border-pixel (XBlackPixel xt-dpy)
+                                               :event-mask 0)))
+  (if (X-Win-p xt-tmp-res)
+      'ok
+    'fail))
+
+(defun xt-XDestroyWindow ()
+  (XDestroyWindow xt-dpy xt-tmp-res)
+  (XFlush xt-dpy)
+  'ok)
+
+(defun xt-XAllocNamedColor ()
+  (setq xt-tmp-res (XAllocNamedColor xt-dpy (XDefaultColormap xt-dpy) "Red"
+                                     (make-X-Color)))
+  (if (X-Color-p xt-tmp-res)
+      'ok
+    'fail))
+
+(defun xt-XFreeColors ()
+  (XFreeColors xt-dpy (XDefaultColormap xt-dpy)
+               (list xt-tmp-res) nil)
+  (XFlush xt-dpy)
+  'ok)
+
+(defun xt-XCreateGC ()
+  (xt-XAllocNamedColor)
+  (setq xt-tmp-res
+        (XCreateGC xt-dpy (XDefaultRootWindow xt-dpy)
+                   (make-X-Gc :dpy xt-dpy
+                              :id (X-Dpy-get-id xt-dpy)