diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-27 22:01:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-27 22:01:29 +0000 |
| commit | 8a96eef3f357234e2465ff28b72b7d1a8bf6a12f (patch) | |
| tree | ae0d48749d6f9f8b09a8e3a37debc6ea60ba4a3d /lisp/term/x-win.el | |
| parent | 2d7bfcc3edfd291492f41906b119c24e321a9e8f (diff) | |
| download | emacs-8a96eef3f357234e2465ff28b72b7d1a8bf6a12f.tar.gz emacs-8a96eef3f357234e2465ff28b72b7d1a8bf6a12f.tar.bz2 emacs-8a96eef3f357234e2465ff28b72b7d1a8bf6a12f.zip | |
(iconify-or-deiconify-frame): Make it work.
Diffstat (limited to 'lisp/term/x-win.el')
| -rw-r--r-- | lisp/term/x-win.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 3fe85424e3f..5ff135d1a3a 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) |