(system-key-alist): Renamed from vendor-key-syms.

[gnu-emacs] / lisp / term / x-win.el

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 3fe85424e3ff0c7d62f3dfeca34ba51d2148bf7f..7361decaf7f5dfaf5d3b2429ccf8e4a0695a9d38 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -464,7 +464,9 @@ This returns ARGS with the arguments that have been processed removed."
   (interactive)
   (if (eq (cdr (assq 'visibility (frame-parameters))) t)
       (iconify-frame)
-    (make-frame-visible)))
+    (let ((foo (selected-frame)))
+      (make-frame-invisible foo)
+      (make-frame-visible foo))))
 
 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame
                           global-map)
@@ -495,6 +497,40 @@ 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)
+
+;; 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 system-key-alist
+      '(
+       ;; 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)
+       (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)
+       ;; These are for Sun.
+       (392976 . f35)
+       (392977 . f36)
+       (393056 . req)
+       ))
 \f
 ;;;; Selections and cut buffers