diff options
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 4 |
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'. |