From afa433491263f1d62e80ec164565daafe2879618 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 8 Jan 1994 14:36:57 +0000
Subject: (vendor-key-syms): Set this variable.

---
 lisp/term/x-win.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'lisp')

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 5ff135d1a3..912ab60ce9 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -497,6 +497,23 @@ This returns ARGS with the arguments that have been processed removed."
 (put 'clear 'ascii-character 12)
 (put 'return 'ascii-character 13)
 (put 'escape 'ascii-character ?\e)
+
+(setq vendor-key-syms
+      '(
+	;; These are some HP keys.
+	(65388 . reset)
+	(65389 . system)
+	(65390 . user)
+	(65391 . clearline)
+	(65392 . insertline)
+	(65393 . deleteline)
+	(65394 . insertchar)
+	(65395 . deletechar)
+	(65396 . backtab)
+	(65397 . kp-backtab)
+	;; This is used on some system or other.
+	(0 . remove)
+	))
 
 ;;;; Selections and cut buffers
 
-- 
cgit v1.2.3