Mercurial > hg > xemacs-beta

comparison src/event-msw.c @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 972bbb6d6ca2
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
2328 2328
2329 /* 2329 /*
2330 * Translate a mswindows virtual key to a keysym. 2330 * Translate a mswindows virtual key to a keysym.
2331 * Only returns non-Qnil for keys that don't generate WM_CHAR messages 2331 * Only returns non-Qnil for keys that don't generate WM_CHAR messages
2332 * or whose ASCII codes (like space) xemacs doesn't like. 2332 * or whose ASCII codes (like space) xemacs doesn't like.
2333 * Virtual key values are defined in winresrc.h
2334 */ 2333 */
2335 Lisp_Object mswindows_key_to_emacs_keysym (int mswindows_key, int mods, 2334 Lisp_Object mswindows_key_to_emacs_keysym (int mswindows_key, int mods,
2336 int extendedp) 2335 int extendedp)
2337 { 2336 {
2338 if (extendedp) /* Keys not present on a 82 key keyboard */ 2337 if (extendedp) /* Keys not present on a 82 key keyboard */
2339 { 2338 {
2340 switch (mswindows_key) 2339 switch (mswindows_key)
2341 { 2340 {
2341 case VK_CANCEL: return KEYSYM ("pause");
2342 case VK_RETURN: return KEYSYM ("kp-enter"); 2342 case VK_RETURN: return KEYSYM ("kp-enter");
2343 case VK_PRIOR: return KEYSYM ("prior"); 2343 case VK_PRIOR: return KEYSYM ("prior");
2344 case VK_NEXT: return KEYSYM ("next"); 2344 case VK_NEXT: return KEYSYM ("next");
2345 case VK_END: return KEYSYM ("end"); 2345 case VK_END: return KEYSYM ("end");
2346 case VK_HOME: return KEYSYM ("home"); 2346 case VK_HOME: return KEYSYM ("home");
2348 case VK_UP: return KEYSYM ("up"); 2348 case VK_UP: return KEYSYM ("up");
2349 case VK_RIGHT: return KEYSYM ("right"); 2349 case VK_RIGHT: return KEYSYM ("right");
2350 case VK_DOWN: return KEYSYM ("down"); 2350 case VK_DOWN: return KEYSYM ("down");
2351 case VK_INSERT: return KEYSYM ("insert"); 2351 case VK_INSERT: return KEYSYM ("insert");
2352 case VK_DELETE: return QKdelete; 2352 case VK_DELETE: return QKdelete;
2353 #if 0 /* FSF Emacs allows these to return configurable syms/mods */
2354 case VK_LWIN return KEYSYM ("");
2355 case VK_RWIN return KEYSYM ("");
2356 #endif
2357 case VK_APPS: return KEYSYM ("menu");
2353 } 2358 }
2354 } 2359 }
2355 else 2360 else
2356 { 2361 {
2357 switch (mswindows_key) 2362 switch (mswindows_key)
2359 case VK_BACK: return QKbackspace; 2364 case VK_BACK: return QKbackspace;
2360 case VK_TAB: return QKtab; 2365 case VK_TAB: return QKtab;
2361 case '\n': return QKlinefeed; 2366 case '\n': return QKlinefeed;
2362 case VK_CLEAR: return KEYSYM ("clear"); 2367 case VK_CLEAR: return KEYSYM ("clear");
2363 case VK_RETURN: return QKreturn; 2368 case VK_RETURN: return QKreturn;
2369 case VK_PAUSE: return KEYSYM ("pause");
2364 case VK_ESCAPE: return QKescape; 2370 case VK_ESCAPE: return QKescape;
2365 case VK_SPACE: return QKspace; 2371 case VK_SPACE: return QKspace;
2366 case VK_PRIOR: return KEYSYM ("kp-prior"); 2372 case VK_PRIOR: return KEYSYM ("kp-prior");
2367 case VK_NEXT: return KEYSYM ("kp-next"); 2373 case VK_NEXT: return KEYSYM ("kp-next");
2368 case VK_END: return KEYSYM ("kp-end"); 2374 case VK_END: return KEYSYM ("kp-end");
2376 case VK_EXECUTE: return KEYSYM ("execute"); 2382 case VK_EXECUTE: return KEYSYM ("execute");
2377 case VK_SNAPSHOT: return KEYSYM ("print"); 2383 case VK_SNAPSHOT: return KEYSYM ("print");
2378 case VK_INSERT: return KEYSYM ("kp-insert"); 2384 case VK_INSERT: return KEYSYM ("kp-insert");
2379 case VK_DELETE: return KEYSYM ("kp-delete"); 2385 case VK_DELETE: return KEYSYM ("kp-delete");
2380 case VK_HELP: return KEYSYM ("help"); 2386 case VK_HELP: return KEYSYM ("help");
2381 #if 0 /* FSF Emacs allows these to return configurable syms/mods */
2382 case VK_LWIN return KEYSYM ("");
2383 case VK_RWIN return KEYSYM ("");
2384 #endif
2385 case VK_APPS: return KEYSYM ("menu");
2386 case VK_NUMPAD0: return KEYSYM ("kp-0"); 2387 case VK_NUMPAD0: return KEYSYM ("kp-0");
2387 case VK_NUMPAD1: return KEYSYM ("kp-1"); 2388 case VK_NUMPAD1: return KEYSYM ("kp-1");
2388 case VK_NUMPAD2: return KEYSYM ("kp-2"); 2389 case VK_NUMPAD2: return KEYSYM ("kp-2");
2389 case VK_NUMPAD3: return KEYSYM ("kp-3"); 2390 case VK_NUMPAD3: return KEYSYM ("kp-3");
2390 case VK_NUMPAD4: return KEYSYM ("kp-4"); 2391 case VK_NUMPAD4: return KEYSYM ("kp-4");