From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 24 May 2003 16:13:06 +0000 (+0000)
Subject: (iconify-or-deiconify-frame): Move to frame.el.
X-Git-Tag: ttn-vms-21-2-B4~9997
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3ef508488e28614aa0028ae548848a33512ff49;p=emacs.git

(iconify-or-deiconify-frame): Move to frame.el.
Turn on mouse-wheel support by default.
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index f1708d9ccc6..e49836f0c2b 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -243,8 +243,8 @@ This function returns ARGS minus the arguments that have been processed."
 	x-invocation-args (cdr x-invocation-args)))
 
 (defvar emacs-save-session-functions nil
-  "Functions to run when a save-session event occurs.
-The functions does not get any argument.
+  "Special hook run when a save-session event occurs.
+The functions do not get any argument.
 Functions can return non-nil to inform the session manager that the
 window system shutdown should be aborted.
 
@@ -1159,13 +1159,6 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp")
 
 ;;;; Function keys
 
-(defun iconify-or-deiconify-frame ()
-  "Iconify the selected frame, or deiconify if it's currently an icon."
-  (interactive)
-  (if (eq (cdr (assq 'visibility (frame-parameters))) t)
-      (iconify-frame)
-    (make-frame-visible)))
-
 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame
 			   global-map)
 
@@ -2367,11 +2360,14 @@ This is in addition to, but in preference to, the primary selection."
 ;; Don't show the frame name; that's redundant with X.
 (setq-default mode-line-frame-identification "  ")
 
-;;; Motif direct handling of f10 wasn't working right,
-;;; So temporarily we've turned it off in lwlib-Xm.c
-;;; and turned the Emacs f10 back on.
-;;; ;; Motif normally handles f10 itself, so don't try to handle it a second time.
-;;; (if (featurep 'motif)
-;;;     (global-set-key [f10] 'ignore))
+;; Motif direct handling of f10 wasn't working right,
+;; So temporarily we've turned it off in lwlib-Xm.c
+;; and turned the Emacs f10 back on.
+;; ;; Motif normally handles f10 itself, so don't try to handle it a second time.
+;; (if (featurep 'motif)
+;;     (global-set-key [f10] 'ignore))
+
+;; Turn on support for mouse wheels.
+(mouse-wheel-mode 1)
 
 ;;; x-win.el ends here