X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/2d7bfcc3edfd291492f41906b119c24e321a9e8f..52f04d46fe299cfdb62efbed57a1dd1916f15fb8:/lisp/term/x-win.el

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 3fe85424e3..7361decaf7 100644
--- 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)
+	))
 
 ;;;; Selections and cut buffers