(xaw_scroll_callback): Cast correctly.

2 files changed, 5 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 522c49d1dc8..8f53479bafc 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-29  Dave Love  <fx@gnu.org>
+
+        * xterm.c (xaw_scroll_callback): Cast correctly.
+
 2002-10-28  Dave Love  <fx@gnu.org>
 
         * keyboard.c (lispy_accent_codes, lispy_accent_keys): Extend.
diff --git a/src/xterm.c b/src/xterm.c
index 7c57c91b843..889e62c3473 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -8639,8 +8639,7 @@ xaw_scroll_callback (widget, client_data, call_data)
      XtPointer client_data, call_data;
 {
   struct scroll_bar *bar = (struct scroll_bar *) client_data;
-  /* Fixme: Check this.  */
-  long position = (long) call_data;
+  int position = *(int *) call_data;
   Dimension height;
   int part;