Mercurial > emacs

changeset 5537:899159133053

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vendor-key-syms): Add more HP keysyms and some Sun.
author Richard M. Stallman <rms@gnu.org>
date Sun, 09 Jan 1994 16:38:16 +0000
parents f900f7bba4c2
children 9d84549e89b4
files lisp/term/x-win.el
diffstat 1 files changed, 17 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/x-win.el	Sun Jan 09 15:20:21 1994 +0000
+++ b/lisp/term/x-win.el	Sun Jan 09 16:38:16 1994 +0000
@@ -498,9 +498,22 @@
 (put 'return 'ascii-character 13)
 (put 'escape 'ascii-character ?\e)
 
+;; Set up to recognize vendor-specific keysyms.
+;; Unless/until there is a real conflict,
+;; we need not try to make this list depend on
+;; the type of X server in use.
 (setq vendor-key-syms
       '(
 	;; These are some HP keys.
+	(  168 . mute-acute)
+	(  169 . mute-grave)
+	(  170 . mute-asciicircum)
+	(  171 . mute-diaeresis)
+	(  172 . mute-asciitilde)
+	(  175 . lira)
+	(  190 . guilder)
+	(  252 . block)
+	(  256 . longminus)
 	(65388 . reset)
 	(65389 . system)
 	(65390 . user)
@@ -513,6 +526,10 @@
 	(65397 . kp-backtab)
 	;; This is used on some system or other.
 	(0 . remove)
+	;; These are for Sun.
+	(392976 . f35)
+    	(392977 . f36)
+	(393056 . req)))
 	))
 
 ;;;; Selections and cut buffers