Changeset 3884

Show
Ignore:
Timestamp:
09/20/05 23:40:49 (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.0/lisp/ChangeLog.Meadow

    r3877 r3884  
     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.0/lisp/term/w32-win.el

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