/[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.52.2.1 by miles, Fri Apr 4 06:20:37 2003 UTC revision 1.52.2.2 by miles, Tue Oct 14 23:42:15 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 84  Line 84 
84  ;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))  ;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))
85    
86  ;; Handle mouse-wheel events with mwheel.  ;; Handle mouse-wheel events with mwheel.
87  ;; Normally only mouse-wheel-mode and mwheel-install are autoloaded,  (mouse-wheel-mode 1)
 ;; but binding mouse-wheel must be done directly, since those functions  
 ;; do not recognize mouse-wheel as a valid button.  
 (autoload 'mwheel-scroll "mwheel")  
 (global-set-key [mouse-wheel] 'mwheel-scroll)  
 (global-set-key [C-mouse-wheel] 'mwheel-scroll)  
 (global-set-key [S-mouse-wheel] 'mwheel-scroll)  
88    
89  (defun w32-drag-n-drop-debug (event)  (defun w32-drag-n-drop-debug (event)
90    "Print the drag-n-drop EVENT in a readable form."    "Print the drag-n-drop EVENT in a readable form."
# Line 1066  XConsortium: rgb.txt,v 10.41 94/02/20 18 Line 1060  XConsortium: rgb.txt,v 10.41 94/02/20 18
1060  (global-set-key [f10] (lambda ()  (global-set-key [f10] (lambda ()
1061                          (interactive) (w32-send-sys-command ?\xf100)))                          (interactive) (w32-send-sys-command ?\xf100)))
1062    
 (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)))  
   
1063  (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame  (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame
1064                             global-map)                             global-map)
1065    
# Line 1268  font dialog to get the matching FONTS. O Line 1255  font dialog to get the matching FONTS. O
1255          (if (null font)          (if (null font)
1256              (error "Font not found")))))              (error "Font not found")))))
1257    
1258    ;;; arch-tag: 69fb1701-28c2-4890-b351-3d1fe4b4f166
1259  ;;; w32-win.el ends here  ;;; w32-win.el ends here

Legend:
Removed from v.1.52.2.1  
changed lines
  Added in v.1.52.2.2

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