Mercurial > emacs

diff src/xterm.c @ 29717:acaa36b47f50

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix up more Lisp_Object/int conversion issues
author Ken Raeburn <raeburn@raeburn.org>
date Sun, 18 Jun 2000 20:14:37 +0000
parents d171b4754825
children 1ac32ce72622
line wrap: on
line diff
--- a/src/xterm.c	Sun Jun 18 20:14:35 2000 +0000
+++ b/src/xterm.c	Sun Jun 18 20:14:37 2000 +0000
@@ -7445,7 +7445,7 @@
   ev->display = FRAME_X_DISPLAY (f);
   ev->window = FRAME_X_WINDOW (f);
   ev->format = 32;
-  ev->data.l[0] = (long) window;
+  ev->data.l[0] = (long) XFASTINT (window);
   ev->data.l[1] = (long) part;
   ev->data.l[2] = (long) 0;
   ev->data.l[3] = (long) portion;
@@ -7472,8 +7472,11 @@
      struct input_event *ievent;
 {
   XClientMessageEvent *ev = (XClientMessageEvent *) event;
-  Lisp_Object window = (Lisp_Object) ev->data.l[0];
-  struct frame *f = XFRAME (XWINDOW (window)->frame);
+  Lisp_Object window;
+  struct frame *f;
+
+  XSETFASTINT (window, ev->data.l[0]);
+  f = XFRAME (XWINDOW (window)->frame);
   
   ievent->kind = scroll_bar_click;
   ievent->frame_or_window = window;