/[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.279 by monnier, Wed Sep 21 20:24:00 2005 UTC revision 1.280 by monnier, Thu Sep 22 21:30:58 2005 UTC
# Line 868  at the same position." Line 868  at the same position."
868      ;; that a tiny move during a single-click would cause the intangible      ;; that a tiny move during a single-click would cause the intangible
869      ;; text to be selected.      ;; text to be selected.
870      (goto-char start)      (goto-char start)
871      (goto-char end))      (goto-char end)
872    (let ((range (mouse-start-end start (point) mode)))      (setq end (point)))
873      (let ((range (mouse-start-end start end mode)))
874      (move-overlay ol (car range) (nth 1 range))))      (move-overlay ol (car range) (nth 1 range))))
875    
876  (defun mouse-drag-region-1 (start-event)  (defun mouse-drag-region-1 (start-event)

Legend:
Removed from v.1.279  
changed lines
  Added in v.1.280

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