(global-map): Dyke out the last two event-to-function bindings. These belong

in loaddefs.el or the user's .emacs, not in a terminal support package.  Also
do the right thing and transplant all suspend-emacs bindings to iconify-frame,
rather than just C-z.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index a531f159b28d3544b9a0776af1cdeb68764f4841..66aeef9de0ac88f9f5ecd080a65d4bcd30dfaf25 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -425,13 +425,7 @@ This returns ARGS with the arguments that have been processed removed."
 \f
 ;;;; Function keys
 
-;; We use a different symbol to prevent
-;; doc strings from listing M-next as the preferred way to do this.
-(fset 'advertised-scroll-other-window 'scroll-other-window)
-(define-key global-map [M-next] 'scroll-other-window)
-(define-key global-map [begin] 'beginning-of-buffer)
-
-(define-key global-map "\C-z" 'iconify-frame)
+(substitute-key-definition 'suspend-emacs 'iconify-frame global-map)
 
 ;; Map certain keypad keys into ASCII characters
 ;; that people usually expect.