[Emacs-diffs] Changes to emacs/lisp/mouse.el

[Stefan Monnier]

Index: emacs/lisp/mouse.el
diff -c emacs/lisp/mouse.el:1.279 emacs/lisp/mouse.el:1.280
*** emacs/lisp/mouse.el:1.279   Wed Sep 21 20:24:00 2005
--- emacs/lisp/mouse.el Thu Sep 22 21:30:58 2005
***************
*** 868,875 ****
      ;; that a tiny move during a single-click would cause the intangible
      ;; text to be selected.
      (goto-char start)
!     (goto-char end))
!   (let ((range (mouse-start-end start (point) mode)))
      (move-overlay ol (car range) (nth 1 range))))
  
  (defun mouse-drag-region-1 (start-event)
--- 868,876 ----
      ;; that a tiny move during a single-click would cause the intangible
      ;; text to be selected.
      (goto-char start)
!     (goto-char end)
!     (setq end (point)))
!   (let ((range (mouse-start-end start end mode)))
      (move-overlay ol (car range) (nth 1 range))))
  
  (defun mouse-drag-region-1 (start-event)