# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799559371 0
# Node ID 8d81f3c6a0b54baebc049c138f5352979671de0b
# Parent  5ec9a02755ec2ad22db8dfda21a42cec48f6b5ca
(reorder_modifiers): Cast apply_modifiers arg to int.

diff -r 5ec9a02755ec -r 8d81f3c6a0b5 src/keyboard.c
--- a/src/keyboard.c	Thu May 04 03:47:32 1995 +0000
+++ b/src/keyboard.c	Thu May 04 03:49:31 1995 +0000
@@ -3678,7 +3678,7 @@
   Lisp_Object parsed;
 
   parsed = parse_modifiers (symbol);
-  return apply_modifiers (XINT (XCONS (XCONS (parsed)->cdr)->car),
+  return apply_modifiers ((int) XINT (XCONS (XCONS (parsed)->cdr)->car),
 			  XCONS (parsed)->car);
 }