(Fposn_at_x_y): Check integerness of X and Y.

diff --git a/src/ChangeLog b/src/ChangeLog
index 56833a341a4be91a71578efd3fd01ddd1f0f32d8..6ef1e244f9030d9d8fd64db5d0b31f2245362773 100644 (file)
--- 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\e,Ad\e(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 67040847af75e6ba6f9f5b5bdbcbaa26401a40f7..4fb8206d5ee83e8ae5b87292f00b885e90f46d3c 100644 (file)
--- 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;