/[emacs]/emacs/lisp/term/w32-win.el
ViewVC logotype

Diff of /emacs/lisp/term/w32-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by lektu, Wed Mar 5 16:32:53 2003 UTC revision 1.58 by monnier, Sat May 24 16:22:20 2003 UTC
# Line 1  Line 1 
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
# Line 1066  XConsortium: rgb.txt,v 10.41 94/02/20 18 Line 1066  XConsortium: rgb.txt,v 10.41 94/02/20 18
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    

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26