From xemacs-m  Tue Sep 16 15:38:31 1997
Received: from mercury.Sun.COM (mercury.Sun.COM [192.9.25.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id PAA16276
	for <xemacs-beta@xemacs.org>; Tue, 16 Sep 1997 15:38:31 -0500 (CDT)
Received: from Eng.Sun.COM ([129.146.1.25]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id NAA09404; Tue, 16 Sep 1997 13:38:02 -0700
Received: from kindra.eng.sun.com by Eng.Sun.COM (SMI-8.6/SMI-5.3)
	id NAA18455; Tue, 16 Sep 1997 13:37:44 -0700
Received: from xemacs.eng.sun.com by kindra.eng.sun.com (SMI-8.6/SMI-SVR4)
	id NAA22882; Tue, 16 Sep 1997 13:37:27 -0700
Received: by xemacs.eng.sun.com (SMI-8.6/SMI-SVR4)
	id NAA03285; Tue, 16 Sep 1997 13:37:26 -0700
Date: Tue, 16 Sep 1997 13:37:26 -0700
Message-Id: <199709162037.NAA03285@xemacs.eng.sun.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
From: Martin Buchholz <mrb@Eng.Sun.COM>
To: Mike Scheidler <c23mts@eng.delcoelect.com>
Cc: xemacs-beta@xemacs.org
Subject: Keysym changes in Tirana (b20)
In-Reply-To: <6179.874423575@kocrsw12>
References: <6179.874423575@kocrsw12>
X-Mailer: VM 6.33 under 20.3 "Vienna" XEmacs  Lucid (beta14)
Reply-To: Martin Buchholz <mrb@Eng.Sun.COM>

>>>>> "mts" == Mike Scheidler <c23mts@eng.delcoelect.com> writes:

mts> The "Stop" and "Again" keys on my Sun Type 5 keyboard are now reporting as 
mts> "f11" and "f12".

mts> I already have f11 and f12 keys--I don't need any more.  :-)

mts> Was this an intentional change?

I've been trying to `fix' x-win-sun.el.

The problem is that on some Sun systems, the keys labelled F11 and F12
are known to X11 as SunF36/SunF37, while the keys labelled Stop and
Again are known to X11 as F11/F12.  I presume this describes your
system.

The tricky thing is to remap f11 and f12 only on keyboards where they
are not the `real' f11 and f12.

This patch ought to do the Right Thing.  


--- lisp/x11/x-win-sun.el.old
+++ lisp/x11/x-win-sun.el
@@ -156,7 +156,10 @@
 	,@(cond ((x-keysym-on-keyboard-sans-modifiers-p "apRead") ; SunOS 4.1.1
 		 '(("apRead" apRead f11) ("apEdit" apEdit f12)))
 		((x-keysym-on-keyboard-sans-modifiers-p "SunF36") ; SunOS 5
-		 '(("SunF36" SunF36 f11) ("SunF37" SunF37 f12))))
+		 '(("SunF36" SunF36 f11)
+		   ("SunF37" SunF37 f12)
+		   ("F11"    f11    stop)
+		   ("F12"    f12    again))))
 	)
       do (when (x-keysym-on-keyboard-sans-modifiers-p x-name)
 	   (x-remap-keysyms-using-function-key-map from-key to-key)))

