diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-06-05 17:36:29 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-06-05 17:36:29 +0000 |
| commit | 33a3543461e21301aad2b648b8ce67d3cfaed773 (patch) | |
| tree | 03c94a6b99518860c7c8273fe1376c9c37da5830 /lisp/mouse.el | |
| parent | 34dda5f4fcb1e2e6dff3929cb330752be138b53c (diff) | |
| download | emacs-33a3543461e21301aad2b648b8ce67d3cfaed773.tar.gz | |
(mouse-set-region): Don't bounce the cursor on X.
mouse-drag-region takes care of showing it, sufficiently.
Diffstat (limited to 'lisp/mouse.el')
| -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." (if (numberp (posn-point posn)) (goto-char (posn-point posn))) ;; If mark is highlighted, no need to bounce the cursor. - (or (and transient-mark-mode - (framep (selected-frame))) + ;; On X, we highlight while dragging, thus once again no need to bounce. + (or transient-mark-mode + (eq (framep (selected-frame)) 'x) (sit-for 1)) (push-mark) (set-mark (point)) |