1 |
;;; w32-win.el --- parse switches controlling interface with W32 window system |
;;; w32-win.el --- parse switches controlling interface with W32 window system |
2 |
|
|
3 |
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1994, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Kevin Gallo |
;; Author: Kevin Gallo |
6 |
;; Keywords: terminals |
;; Keywords: terminals |
1066 |
(global-set-key [f10] (lambda () |
(global-set-key [f10] (lambda () |
1067 |
(interactive) (w32-send-sys-command ?\xf100))) |
(interactive) (w32-send-sys-command ?\xf100))) |
1068 |
|
|
|
(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))) |
|
|
|
|
1069 |
(substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame |
(substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame |
1070 |
global-map) |
global-map) |
1071 |
|
|