(Fposn_at_x_y): Check integerness of X and Y.

2 files changed, 21 insertions, 17 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 56833a341a4..6ef1e244f90 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,6 +1,10 @@
+2005-03-01  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * keyboard.c (Fposn_at_x_y): Check integerness of X and Y.
+
 2005-02-27  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
-        * gtkutil.c (xg_resize_outer_widget): Removed unneeded call to
+        * gtkutil.c (xg_resize_outer_widget): Remove unneeded call to
         gtk_window_resize and x_wm_set_size_hint.
 
 2005-02-25  Kim F. Storm  <storm@cua.dk>
@@ -30,7 +34,7 @@
         * window.c (window_scroll_pixel_based): When scrolling backwards,
         handle partial visible line at end of window even when we hit PT.
 
-2005-02-21  Stefan  <monnier@iro.umontreal.ca>
+2005-02-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * keymap.h: Declare Fcurrent_active_maps, used in doc.c.
 
@@ -88,8 +92,7 @@
         (Fx_window_property): Likewise.
 
         * xselect.c (Fx_disown_selection_internal): Use union of struct
-        input_event and struct selection_input_event to avoid aliasing
-        issues.
+        input_event and struct selection_input_event to avoid aliasing issues.
 
         * xterm.c (handle_one_xevent): Use union of struct input_event and
         struct selection_input_event to avoid aliasing issues.
@@ -118,21 +121,20 @@
         clipboard operations and delayed rendering.
 
         Drop last_clipboard_text and related code, keep track of
-        ownership via clipboard_owner instead.  Drop old #if0
-        sections.
+        ownership via clipboard_owner instead.  Drop old #if0 sections.
 
         (DEFAULT_LCID, ANSICP, OEMCP, QUNICODE, QANSICP, QOEMCP)
         (clipboard_owner, modifying_clipboard, cfg_coding_system)
         (cfg_codepage, cfg_lcid, cfg_clipboard_type, current_text)
         (current_coding_system, current_requires_encoding)
-        (current_num_nls, current_clipboard_type, current_lcid): New
-        static variables.
+        (current_num_nls, current_clipboard_type, current_lcid):
+        New static variables.
 
         (convert_to_handle_as_ascii, convert_to_handle_as_coded)
         (render, render_all, run_protected, lisp_error_handler)
         (owner_callback, create_owner, setup_config)
-        (enum_locale_callback, cp_from_locale, coding_from_cp): New
-        local functions.
+        (enum_locale_callback, cp_from_locale, coding_from_cp):
+        New local functions.
 
         (term_w32select, globals_of_w32select): New global functions.
 
@@ -332,8 +334,7 @@
         (casify_region): Fix loop condition, args to replace_range_2, and
         update opoint_byte.
 
-        * insdel.c (replace_range_2): Fix bugs in adjusting markers and
-        point.
+        * insdel.c (replace_range_2): Fix bugs in adjusting markers and point.
 
 2005-02-01  Kim F. Storm  <storm@cua.dk>
 
@@ -11015,9 +11016,9 @@
         These changes were in part based upon suggestions made by Peter
         'Luna' Runestig [peter@runestig.com].
 
-        * w32.c (g_b_init_is_windows_9x, g_b_init_open_process_token,
-        g_b_init_get_token_information, g_b_init_lookup_account_sid,
-        g_b_init_get_sid_identifier_authority ): Add several static
+        * w32.c (g_b_init_is_windows_9x, g_b_init_open_process_token)
+        (g_b_init_get_token_information, g_b_init_lookup_account_sid)
+        (g_b_init_get_sid_identifier_authority ): Add several static
         global variables.
 
         * w32.c (globals_of_w32): New function.  Used to initialize those
diff --git a/src/keyboard.c b/src/keyboard.c
index 67040847af7..4fb8206d5ee 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1,6 +1,6 @@
 /* Keyboard and mouse input; editor command loop.
-   Copyright (C) 1985,86,87,88,89,93,94,95,96,97,99,2000,01,02,03,04
-     Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, 1996, 1997,
+     1999, 2000, 2001, 2002, 2003, 2004, 2005  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -10531,6 +10531,9 @@ The `posn-' functions access elements of such lists.  */)
   (x, y, frame_or_window, whole)
      Lisp_Object x, y, frame_or_window, whole;
 {
+  CHECK_NATNUM (x);
+  CHECK_NATNUM (y);
+
   if (NILP (frame_or_window))
     frame_or_window = selected_window;