Mercurial > hg > xemacs-beta

comparison src/events.c @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c42ec1d1cded
children e11d67e05968
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
1274 *buf = 0; 1274 *buf = 0;
1275 } 1275 }
1276 else if (SYMBOLP (key)) 1276 else if (SYMBOLP (key))
1277 { 1277 {
1278 CONST char *str = 0; 1278 CONST char *str = 0;
1279 #if 0 /* obsolete keynames */
1280 if (brief) 1279 if (brief)
1281 { 1280 {
1282 if (EQ (key, QKlinefeed)) str = "LFD"; 1281 if (EQ (key, QKlinefeed)) str = "LFD";
1283 else if (EQ (key, QKtab)) str = "TAB"; 1282 else if (EQ (key, QKtab)) str = "TAB";
1284 else if (EQ (key, QKreturn)) str = "RET"; 1283 else if (EQ (key, QKreturn)) str = "RET";
1285 else if (EQ (key, QKescape)) str = "ESC"; 1284 else if (EQ (key, QKescape)) str = "ESC";
1286 else if (EQ (key, QKdelete)) str = "DEL"; 1285 else if (EQ (key, QKdelete)) str = "DEL";
1287 else if (EQ (key, QKspace)) str = "SPC"; 1286 else if (EQ (key, QKspace)) str = "SPC";
1288 else if (EQ (key, QKbackspace)) str = "BS"; 1287 else if (EQ (key, QKbackspace)) str = "BS";
1289 } 1288 }
1290 #endif
1291 if (str) 1289 if (str)
1292 { 1290 {
1293 int i = strlen (str); 1291 int i = strlen (str);
1294 memcpy (buf, str, i+1); 1292 memcpy (buf, str, i+1);
1295 str += i; 1293 str += i;
1646 OVER_MODELINE: over a modeline 1644 OVER_MODELINE: over a modeline
1647 OVER_BORDER: over an internal border 1645 OVER_BORDER: over an internal border
1648 OVER_NOTHING: over the text area, but not over text 1646 OVER_NOTHING: over the text area, but not over text
1649 OVER_OUTSIDE: outside of the frame border 1647 OVER_OUTSIDE: outside of the frame border
1650 OVER_TEXT: over text in the text area 1648 OVER_TEXT: over text in the text area
1649 OVER_V_DIVIDER: over windows vertical divider
1651 1650
1652 and return: 1651 and return:
1653 1652
1654 The X char position in CHAR_X, if not a null pointer. 1653 The X char position in CHAR_X, if not a null pointer.
1655 The Y char position in CHAR_Y, if not a null pointer. 1654 The Y char position in CHAR_Y, if not a null pointer.
1790 int result = event_pixel_translation (event, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); 1789 int result = event_pixel_translation (event, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
1791 1790
1792 return result == OVER_TOOLBAR ? Qt : Qnil; 1791 return result == OVER_TOOLBAR ? Qt : Qnil;
1793 } 1792 }
1794 1793
1794 DEFUN ("event-over-vertical-divider-p", Fevent_over_vertical_divider_p, 1, 1, 0, /*
1795 Return t if the mouse event EVENT occurred over a window divider.
1796 */
1797 (event))
1798 {
1799 int result = event_pixel_translation (event, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
1800
1801 return result == OVER_V_DIVIDER ? Qt : Qnil;
1802 }
1803
1795 struct console * 1804 struct console *
1796 event_console_or_selected (Lisp_Object event) 1805 event_console_or_selected (Lisp_Object event)
1797 { 1806 {
1798 Lisp_Object channel = EVENT_CHANNEL (XEVENT (event)); 1807 Lisp_Object channel = EVENT_CHANNEL (XEVENT (event));
1799 Lisp_Object console = CDFW_CONSOLE (channel); 1808 Lisp_Object console = CDFW_CONSOLE (channel);
2158 DEFSUBR (Fevent_window_y_pixel); 2167 DEFSUBR (Fevent_window_y_pixel);
2159 DEFSUBR (Fevent_over_text_area_p); 2168 DEFSUBR (Fevent_over_text_area_p);
2160 DEFSUBR (Fevent_over_modeline_p); 2169 DEFSUBR (Fevent_over_modeline_p);
2161 DEFSUBR (Fevent_over_border_p); 2170 DEFSUBR (Fevent_over_border_p);
2162 DEFSUBR (Fevent_over_toolbar_p); 2171 DEFSUBR (Fevent_over_toolbar_p);
2172 DEFSUBR (Fevent_over_vertical_divider_p);
2163 DEFSUBR (Fevent_channel); 2173 DEFSUBR (Fevent_channel);
2164 DEFSUBR (Fevent_window); 2174 DEFSUBR (Fevent_window);
2165 DEFSUBR (Fevent_point); 2175 DEFSUBR (Fevent_point);
2166 DEFSUBR (Fevent_closest_point); 2176 DEFSUBR (Fevent_closest_point);
2167 DEFSUBR (Fevent_x); 2177 DEFSUBR (Fevent_x);