diff options
| -rw-r--r-- | lisp/mouse.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index d589ae48fc1..bdaf3c28962 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -315,8 +315,9 @@ This should be bound to a mouse drag event." | |||
| 315 | (if (numberp (posn-point posn)) | 315 | (if (numberp (posn-point posn)) |
| 316 | (goto-char (posn-point posn))) | 316 | (goto-char (posn-point posn))) |
| 317 | ;; If mark is highlighted, no need to bounce the cursor. | 317 | ;; If mark is highlighted, no need to bounce the cursor. |
| 318 | (or (and transient-mark-mode | 318 | ;; On X, we highlight while dragging, thus once again no need to bounce. |
| 319 | (framep (selected-frame))) | 319 | (or transient-mark-mode |
| 320 | (eq (framep (selected-frame)) 'x) | ||
| 320 | (sit-for 1)) | 321 | (sit-for 1)) |
| 321 | (push-mark) | 322 | (push-mark) |
| 322 | (set-mark (point)) | 323 | (set-mark (point)) |