/[emacs]/emacs/lisp/mouse.el
ViewVC logotype

Diff of /emacs/lisp/mouse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.230 by rms, Wed Nov 14 02:49:15 2001 UTC revision 1.231 by sds, Tue Nov 27 18:00:53 2001 UTC
# Line 743  remains active.  Otherwise, it remains u Line 743  remains active.  Otherwise, it remains u
743                    (mouse-scroll-subr start-window (1+ (- mouse-row bottom))                    (mouse-scroll-subr start-window (1+ (- mouse-row bottom))
744                                       mouse-drag-overlay start-point)                                       mouse-drag-overlay start-point)
745                    (setq end-of-range (overlay-end mouse-drag-overlay))))))))))                    (setq end-of-range (overlay-end mouse-drag-overlay))))))))))
746          
747        ;; In case we did not get a mouse-motion event        ;; In case we did not get a mouse-motion event
748        ;; for the final move of the mouse before a drag event        ;; for the final move of the mouse before a drag event
749        ;; pretend that we did get one.        ;; pretend that we did get one.
# Line 1860  and selects that window." Line 1860  and selects that window."
1860  ;;;!! ;;               (abs-x (car pos))  ;;;!! ;;               (abs-x (car pos))
1861  ;;;!! ;;               (abs-y (cdr pos))  ;;;!! ;;               (abs-y (cdr pos))
1862  ;;;!! ;;               (relative-coordinate  ;;;!! ;;               (relative-coordinate
1863  ;;;!! ;;                (coordinates-in-window-p (` ((, abs-x) (, abs-y)))  ;;;!! ;;                (coordinates-in-window-p `(,abs-x ,abs-y)
1864  ;;;!! ;;                                         (selected-window)))  ;;;!! ;;                                         (selected-window)))
1865  ;;;!! ;;               (begin-reg nil)  ;;;!! ;;               (begin-reg nil)
1866  ;;;!! ;;               (end-reg nil)  ;;;!! ;;               (end-reg nil)

Legend:
Removed from v.1.230  
changed lines
  Added in v.1.231

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26