Changeset 3883

Show
Ignore:
Timestamp:
09/20/05 23:24:08 (3 years ago)
Author:
horiguti
Message:

* term/w32-win.el (w32-handle-scroll-bar-event): Removed.
Fix related to MW137.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/2.1/lisp/ChangeLog.Meadow

    r3878 r3883  
     12005-09-20  Kyotaro HORIGUCHI <horiguti@meadowy.org> 
     2 
     3        * term/w32-win.el (w32-handle-scroll-bar-event): Removed. 
     4 
    152005-09-16  Kyotaro HORIGUCHI <horiguti@meadowy.org> 
    26 

  • branches/2.1/lisp/term/w32-win.el

    r3634 r3883  
    8585;; scroll bar routines. 
    8686 
    87 (defun w32-handle-scroll-bar-event (event) 
    88   "Handle W32 scroll bar EVENT to do normal Window style scrolling." 
    89   (interactive "e") 
    90   (let ((old-window (selected-window))) 
    91     (unwind-protect 
    92         (let* ((position (event-start event)) 
    93                (window (nth 0 position)) 
    94                (portion-whole (nth 2 position)) 
    95                (bar-part (nth 4 position))) 
    96           (save-excursion 
    97             (select-window window) 
    98             (cond 
    99              ((eq bar-part 'up) 
    100               (goto-char (window-start window)) 
    101               (scroll-down 1)) 
    102              ((eq bar-part 'above-handle) 
    103               (scroll-down)) 
    104              ((eq bar-part 'handle) 
    105               (scroll-bar-maybe-set-window-start event)) 
    106              ((eq bar-part 'below-handle) 
    107               (scroll-up)) 
    108              ((eq bar-part 'down) 
    109               (goto-char (window-start window)) 
    110               (scroll-up 1)) 
    111              ))) 
    112       (select-window old-window)))) 
     87(if (not (featurep 'meadow)) 
     88    (defun w32-handle-scroll-bar-event (event) 
     89      "Handle W32 scroll bar EVENT to do normal Window style scrolling." 
     90      (interactive "e") 
     91      (let ((old-window (selected-window))) 
     92        (unwind-protect 
     93            (let* ((position (event-start event)) 
     94                   (window (nth 0 position)) 
     95                   (portion-whole (nth 2 position)) 
     96                   (bar-part (nth 4 position))) 
     97              (save-excursion 
     98                (select-window window) 
     99                (cond 
     100                 ((eq bar-part 'up) 
     101                  (goto-char (window-start window)) 
     102                  (scroll-down 1)) 
     103                 ((eq bar-part 'above-handle) 
     104                  (scroll-down)) 
     105                 ((eq bar-part 'handle) 
     106                  (scroll-bar-maybe-set-window-start event)) 
     107                 ((eq bar-part 'below-handle) 
     108                  (scroll-up)) 
     109                 ((eq bar-part 'down) 
     110                  (goto-char (window-start window)) 
     111                  (scroll-up 1)) 
     112                 ))) 
     113          (select-window old-window))))) 
    113114 
    114115;; The following definition is used for debugging.