aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/mouse.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/mouse.el')
-rw-r--r--lisp/mouse.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el
index a6d553b60a1..24fe57cdc50 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2025,7 +2025,7 @@ The region will be defined with mark and point."
2025 (pop-mark))))) 2025 (pop-mark)))))
2026 ;; Cleanup on errors 2026 ;; Cleanup on errors
2027 (error (funcall cleanup) 2027 (error (funcall cleanup)
2028 (signal (car err) (cdr err)))))) 2028 (signal err)))))
2029 2029
2030(defun mouse--drag-set-mark-and-point (start click click-count) 2030(defun mouse--drag-set-mark-and-point (start click click-count)
2031 (let* ((range (mouse-start-end start click click-count)) 2031 (let* ((range (mouse-start-end start click click-count))
@@ -2790,7 +2790,7 @@ This must be bound to a button-down mouse event."
2790 ;; Clean up in case something went wrong. 2790 ;; Clean up in case something went wrong.
2791 (error (setq track-mouse old-track-mouse) 2791 (error (setq track-mouse old-track-mouse)
2792 (setq mouse-fine-grained-tracking old-mouse-fine-grained-tracking) 2792 (setq mouse-fine-grained-tracking old-mouse-fine-grained-tracking)
2793 (signal (car err) (cdr err)))))) 2793 (signal err)))))
2794 2794
2795;; The drag event must be bound to something but does not need any effect, 2795;; The drag event must be bound to something but does not need any effect,
2796;; as everything takes place in `mouse-drag-region-rectangle'. 2796;; as everything takes place in `mouse-drag-region-rectangle'.