>>>> "JH" == Jonathan Harris
<jhar(a)tardis.ed.ac.uk> writes:
JH> Andy Norman wrote:
> I have most things working now... but I'm blowed if I can
find a way of
> rebinding the 'Pause/Break' key.
JH> That was an oversight. This patch fixes it and also makes the
JH> "menu" key available again, but there are other problems with
JH> that.
Hi Jonathan,
I assume thie patch should be applied to 21.1 too?
Best regards,
Adrian
JH> Jonathan.
JH> Applied:
JH> ChangeLog for src:
JH> 2000-09-10 Jonathan Harris <jhar(a)tardis.ed.ac.uk>
JH> * event-msw.c (mswindows_key_to_emacs_keysym):
JH> Add "pause" key, fix "menu" key.
JH> Index: src/event-msw.c
JH> ===================================================================
JH> RCS file: /usr/CVSroot/XEmacs/xemacs-20/src/event-msw.c,v
JH> retrieving revision 1.38.2.56
JH> retrieving revision 1.38.2.58
JH> diff -u -r1.38.2.56 -r1.38.2.58
JH> --- event-msw.c 2000/08/06 09:27:09 1.38.2.56
JH> +++ event-msw.c 2000/09/10 17:14:28 1.38.2.58
JH> @@ -3080,7 +3080,6 @@
JH> * Translate a mswindows virtual key to a keysym.
JH> * Only returns non-Qnil for keys that don't generate WM_CHAR messages
JH> * or whose ASCII codes (like space) xemacs doesn't like.
JH> - * Virtual key values are defined in winresrc.h
JH> */
JH> Lisp_Object mswindows_key_to_emacs_keysym (int mswindows_key, int mods,
JH> int extendedp)
JH> @@ -3089,6 +3088,7 @@
JH> {
JH> switch (mswindows_key)
JH> {
JH> + case VK_CANCEL: return KEYSYM ("pause");
JH> case VK_RETURN: return KEYSYM ("kp-enter");
JH> case VK_PRIOR: return KEYSYM ("prior");
JH> case VK_NEXT: return KEYSYM ("next");
JH> @@ -3100,6 +3100,11 @@
JH> case VK_DOWN: return KEYSYM ("down");
JH> case VK_INSERT: return KEYSYM ("insert");
JH> case VK_DELETE: return QKdelete;
JH> +#if 0 /* FSF Emacs allows these to return configurable syms/mods */
JH> + case VK_LWIN return KEYSYM ("");
JH> + case VK_RWIN return KEYSYM ("");
JH> +#endif
JH> + case VK_APPS: return KEYSYM ("menu");
JH> }
JH> }
JH> else
JH> @@ -3111,6 +3116,7 @@
JH> case '\n': return QKlinefeed;
JH> case VK_CLEAR: return KEYSYM ("clear");
JH> case VK_RETURN: return QKreturn;
JH> + case VK_PAUSE: return KEYSYM ("pause");
JH> case VK_ESCAPE: return QKescape;
JH> case VK_SPACE: return QKspace;
JH> case VK_PRIOR: return KEYSYM ("kp-prior");
JH> @@ -3128,11 +3134,6 @@
JH> case VK_INSERT: return KEYSYM ("kp-insert");
JH> case VK_DELETE: return KEYSYM ("kp-delete");
JH> case VK_HELP: return KEYSYM ("help");
JH> -#if 0 /* FSF Emacs allows these to return configurable syms/mods */
JH> - case VK_LWIN return KEYSYM ("");
JH> - case VK_RWIN return KEYSYM ("");
JH> -#endif
JH> - case VK_APPS: return KEYSYM ("menu");
JH> case VK_NUMPAD0: return KEYSYM ("kp-0");
JH> case VK_NUMPAD1: return KEYSYM ("kp-1");
JH> case VK_NUMPAD2: return KEYSYM ("kp-2");
JH> --
JH> Jonathan Harris | jhar(a)tardis.ed.ac.uk
JH> London, England | Jonathan.Harris(a)symbian.com
--
Adrian Aichner <adrian(a)xemacs.org>