Commits

Anonymous committed 07f4bf6

(XTrayFindDock): [fix]
XGrabServer/XUngrabServer removed.

Comments (0)

Files changed (2)

+2004-05-12  Zajcev Evgeny  <zevlg@yandex.ru>
+
+	* lisp/xlib-tray.el (XTrayFindDock): [fix]
+	XGrabServer/XUngrabServer removed.
+
 2004-05-05  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.09 released.

lisp/xlib-tray.el

 
 (defun XTrayFindDock (xdpy win)
   (let (dock)
-    (XGrabServer xdpy)
 
     (setq dock (XGetSelectionOwner xdpy (XTrayGetAtom xdpy X-Tray-Atom-System-Tray)))
     (unless (X-Win-p dock)
       (XSelectInput xdpy (XDefaultRootWindow xdpy) XM-StructureNotify))
 
-    (XUngrabServer xdpy)
     (when (X-Win-p dock)
       (XTraySendOpcode xdpy dock dock X-Tray-dock-req (X-Win-id win)))))