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 |
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." |
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 |
|
|
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 |