From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 13 Jun 2011 05:43:30 +0000 (-0700)
Subject: * keyboard.c (modify_event_symbol): Don't limit alist len to UINT_MAX.
X-Git-Tag: emacs-pretest-24.0.90~104^2~548^2~28
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7147c4a44b3fdcc9bab92e8a57a150bc73d42939;p=emacs.git

* keyboard.c (modify_event_symbol): Don't limit alist len to UINT_MAX.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index ab821226fa4..f8482b26d18 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-06-13  Paul Eggert  <eggert@cs.ucla.edu>
 
+	* keyboard.c (modify_event_symbol): Don't limit alist len to UINT_MAX.
+
 	* lisp.h (CHAR_TABLE_SET): Omit now-redundant test.
 
 	* lread.c (Fload): Don't compare a possibly-garbage time_t value.
diff --git a/src/keyboard.c b/src/keyboard.c
index 0d2761f1aa3..20ad7d0ce95 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -448,7 +448,7 @@ static Lisp_Object make_lispy_movement (struct frame *, Lisp_Object,
 #endif
 static Lisp_Object modify_event_symbol (EMACS_INT, unsigned, Lisp_Object,
                                         Lisp_Object, const char *const *,
-                                        Lisp_Object *, unsigned);
+                                        Lisp_Object *, EMACS_INT);
 static Lisp_Object make_lispy_switch_frame (Lisp_Object);
 static int help_char_p (Lisp_Object);
 static void save_getcjmp (jmp_buf);
@@ -5391,7 +5391,7 @@ make_lispy_event (struct input_event *event)
 				      Qfunction_key,
 				      KVAR (current_kboard, Vsystem_key_alist),
 				      0, &KVAR (current_kboard, system_key_syms),
-				      (unsigned) -1);
+				      TYPE_MAXIMUM (EMACS_INT));
 	}
 
       return modify_event_symbol (event->code - FUNCTION_KEY_OFFSET,
@@ -6410,7 +6410,7 @@ reorder_modifiers (Lisp_Object symbol)
 static Lisp_Object
 modify_event_symbol (EMACS_INT symbol_num, unsigned int modifiers, Lisp_Object symbol_kind,
 		     Lisp_Object name_alist_or_stem, const char *const *name_table,
-		     Lisp_Object *symbol_table, unsigned int table_size)
+		     Lisp_Object *symbol_table, EMACS_INT table_size)
 {
   Lisp_Object value;
   Lisp_Object symbol_int;