--- a/src/events.c	Mon Aug 13 10:33:19 2007 +0200
+++ b/src/events.c	Mon Aug 13 10:34:13 2007 +0200
@@ -1276,7 +1276,6 @@
   else if (SYMBOLP (key))
     {
       CONST char *str = 0;
-#if 0 /* obsolete keynames */
       if (brief)
 	{
 	  if      (EQ (key, QKlinefeed))  str = "LFD";
@@ -1287,7 +1286,6 @@
 	  else if (EQ (key, QKspace))     str = "SPC";
 	  else if (EQ (key, QKbackspace)) str = "BS";
 	}
-#endif
       if (str)
 	{
 	  int i = strlen (str);
@@ -1648,6 +1646,7 @@
      OVER_NOTHING:	over the text area, but not over text
      OVER_OUTSIDE:	outside of the frame border
      OVER_TEXT:		over text in the text area
+     OVER_V_DIVIDER:	over windows vertical divider
 
    and return:
 
@@ -1792,6 +1791,16 @@
   return result == OVER_TOOLBAR ? Qt : Qnil;
 }
 
+DEFUN ("event-over-vertical-divider-p", Fevent_over_vertical_divider_p, 1, 1, 0, /*
+Return t if the mouse event EVENT occurred over a window divider.
+*/
+       (event))
+{
+  int result = event_pixel_translation (event, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
+
+  return result == OVER_V_DIVIDER ? Qt : Qnil;
+}
+
 struct console *
 event_console_or_selected (Lisp_Object event)
 {
@@ -2160,6 +2169,7 @@
   DEFSUBR (Fevent_over_modeline_p);
   DEFSUBR (Fevent_over_border_p);
   DEFSUBR (Fevent_over_toolbar_p);
+  DEFSUBR (Fevent_over_vertical_divider_p);
   DEFSUBR (Fevent_channel);
   DEFSUBR (Fevent_window);
   DEFSUBR (Fevent_point);