[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
From: |
Jason Rumney |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term/w32-win.el |
Date: |
Fri, 04 Jan 2002 19:23:42 -0500 |
Index: emacs/lisp/term/w32-win.el
diff -c emacs/lisp/term/w32-win.el:1.45 emacs/lisp/term/w32-win.el:1.46
*** emacs/lisp/term/w32-win.el:1.45 Sun Dec 23 23:52:30 2001
--- emacs/lisp/term/w32-win.el Fri Jan 4 19:23:42 2002
***************
*** 76,121 ****
(require 'faces)
(require 'select)
(require 'menu-bar)
! (if (fboundp 'new-fontset)
! (require 'fontset))
! ;; Because Windows scrollbars look and act quite differently compared
! ;; with the standard X scroll-bars, we don't try to use the normal
! ;; scroll bar routines.
!
! (defun w32-handle-scroll-bar-event (event)
! "Handle W32 scroll bar EVENT to do normal Window style scrolling."
! (interactive "e")
! (let ((old-window (selected-window)))
! (unwind-protect
! (let* ((position (event-start event))
! (window (nth 0 position))
! (portion-whole (nth 2 position))
! (bar-part (nth 4 position)))
! (save-excursion
! (select-window window)
! (cond
! ((eq bar-part 'up)
! (goto-char (window-start window))
! (scroll-down 1))
! ((eq bar-part 'above-handle)
! (scroll-down))
! ((eq bar-part 'handle)
! (scroll-bar-maybe-set-window-start event))
! ((eq bar-part 'below-handle)
! (scroll-up))
! ((eq bar-part 'down)
! (goto-char (window-start window))
! (scroll-up 1))
! )))
! (select-window old-window))))
!
! ;; The following definition is used for debugging.
;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))
-
- (global-set-key [vertical-scroll-bar mouse-1] 'w32-handle-scroll-bar-event)
-
- ;; (scroll-bar-mode nil)
(defvar mouse-wheel-scroll-amount 4
"*Number of lines to scroll per click of the mouse wheel.")
--- 76,85 ----
(require 'faces)
(require 'select)
(require 'menu-bar)
! (require 'fontset)
! ;; The following definition is used for debugging scroll bar events.
;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))
(defvar mouse-wheel-scroll-amount 4
"*Number of lines to scroll per click of the mouse wheel.")
- [Emacs-diffs] Changes to emacs/lisp/term/w32-win.el,
Jason Rumney <=