[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term/w32-win.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term/w32-win.el [lexbind] |
Date: |
Tue, 14 Oct 2003 19:42:28 -0400 |
Index: emacs/lisp/term/w32-win.el
diff -c emacs/lisp/term/w32-win.el:1.52.2.1 emacs/lisp/term/w32-win.el:1.52.2.2
*** emacs/lisp/term/w32-win.el:1.52.2.1 Fri Apr 4 01:20:37 2003
--- emacs/lisp/term/w32-win.el Tue Oct 14 19:42:15 2003
***************
*** 1,6 ****
;;; w32-win.el --- parse switches controlling interface with W32 window system
! ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
;; Author: Kevin Gallo
;; Keywords: terminals
--- 1,6 ----
;;; w32-win.el --- parse switches controlling interface with W32 window system
! ;; Copyright (C) 1993, 1994, 2003 Free Software Foundation, Inc.
;; Author: Kevin Gallo
;; Keywords: terminals
***************
*** 84,96 ****
;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))
;; Handle mouse-wheel events with mwheel.
! ;; Normally only mouse-wheel-mode and mwheel-install are autoloaded,
! ;; 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)
(defun w32-drag-n-drop-debug (event)
"Print the drag-n-drop EVENT in a readable form."
--- 84,90 ----
;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))
;; Handle mouse-wheel events with mwheel.
! (mouse-wheel-mode 1)
(defun w32-drag-n-drop-debug (event)
"Print the drag-n-drop EVENT in a readable form."
***************
*** 1066,1078 ****
(global-set-key [f10] (lambda ()
(interactive) (w32-send-sys-command ?\xf100)))
- (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)))
-
(substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame
global-map)
--- 1060,1065 ----
***************
*** 1268,1271 ****
--- 1255,1259 ----
(if (null font)
(error "Font not found")))))
+ ;;; arch-tag: 69fb1701-28c2-4890-b351-3d1fe4b4f166
;;; w32-win.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/term/w32-win.el [lexbind],
Miles Bader <=