Summary for xlib--main--2.1--patch-8

[Zajcev Evgeny <lg@xxxxxxxx>]

Location: lg@xxxxxxxxxxxxxx http://arch.xwem.org/2005/

Revision: xlib--main--2.1--patch-8
Archive: lg@xxxxxxxxxxxxxx
Creator: Zajcev Evgeny <lg@xxxxxxxx>
Date: Thu Feb 10 03:18:24 MSK 2005
Standard-date: 2005-02-10 00:18:24 GMT
Modified-files: lisp/xlib-xr.el
New-patches: lg@xxxxxxxxxxxxxx/xlib--main--2.1--patch-8
Summary: logging changed a little
Keywords: 

* lisp/xlib-xr.el: Logging for inter events changed a little. to be used
  in catching evil bug.

* added files

    {arch}/xlib/xlib--main/xlib--main--2.1/lg@xxxxxxxxxxxxxx/patch-log/patch-8

* modified files

--- orig/lisp/xlib-xr.el
+++ mod/lisp/xlib-xr.el
@@ -909,7 +909,7 @@
                         ;; Here is event or error arrived, process
                         ;; errors in time or store event in events
                         ;; queue.
-                        (X-Dpy-log xdpy 'x-event "!!: Evaluating event ..")
+                        (X-Dpy-log xdpy 'x-event "!!: Inter Evaluating event 
..")
                         (let ((xev (X-Dpy-parse-event
                                     xdpy (Xforcenum (aref result 0))))
                               pmsg)
@@ -921,12 +921,13 @@
                                   (setq result nil)
 
                                 ;; Repeat processing XXX excluding t or nil
-                                (X-Dpy-log xdpy 'x-event "!!: Reprocessing: %d 
bytes pending\n"
-                                           '(length (X-Dpy-message-buffer 
xdpy)))
+                                (X-Dpy-log xdpy 'x-event "!!: Reprocessing: %d 
bytes pending, msg=%S"
+                                           '(length (X-Dpy-message-buffer 
xdpy)) 'message-s)
                                 (setq pmsg (X-Dpy-parse-message
                                             message-s req-id xdpy arglist)
                                       result (car pmsg))
-                                (X-Dpy-log xdpy 'x-event "!!: Reprocessing 
done .")
+                                (X-Dpy-log xdpy 'x-event "!!: Reprocessing 
done %d bytes pending."
+                                           '(length (X-Dpy-message-buffer 
xdpy)))
                                 (cdr pmsg))
                             (X-Dpy-dispatch-event xev)))))))
             (setq rlist (cons result sublst)))
@@ -1229,8 +1230,6 @@
 
 (defun X-Dpy-parse-event (xdpy evtype)
   "On XDPY construct and enqueue event of EVTYPE type."
-  (X-Dpy-log xdpy 'x-event "XLIB: Getting event ....")
-
   ;; TODO: what about X-Event-evdata?
   ;;   (evdata (substring (X-Dpy-message-buffer xdpy) 0 31))
   ;;   :evdata (concat (char-to-string (XCharacter type)) evdata)
@@ -1242,6 +1241,12 @@
            (evspec (aref X-EventsList type))
            (evin (X-Dpy-parse-message (or (and evspec (aref evspec 1)) (list 
[31 nil])) 0 xdpy)))
       (setf (X-Event-evinfo xev) evin)
+
+      (X-Dpy-log xdpy 'x-event "XLIB: Get new event %d(%s) win=%S ...."
+                 '(X-Event-type xev) '(X-Event-name xev)
+                 '(and (X-Win-p (X-Event-win xev))
+                       (X-Win-id (X-Event-win xev))))
+
       xev)))
 
 ;;; Function to call when there data in XDPY, but noone reading it.