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) |