(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.

1 files changed, 1 insertions, 7 deletions

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index a531f159b28..66aeef9de0a 100644
--- 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."
 
 ;;;; 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.