diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-07-02 23:07:48 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-07-02 23:07:48 -0400 |
| commit | 5592c08fbf5a0ca9f3f7803d2d214a6f6a7097ba (patch) | |
| tree | 75ec04f05724aa16096d9a31a202ff1ddd775377 /lisp/mouse-sel.el | |
| parent | 873fbd0b84997863af25e3ddae23b6c078a3e6f5 (diff) | |
| download | emacs-5592c08fbf5a0ca9f3f7803d2d214a6f6a7097ba.tar.gz | |
Simplify mouse-dragging implementation.
Now that DEL deletes active regions, we can handle it by using the
ordinary region instead of a separate overlay.
* mouse.el (mouse-drag-overlay): Variable deleted.
(mouse-move-drag-overlay, mouse-show-mark): Functions deleted.
(mouse--remap-link-click-p): New function.
(mouse-drag-track): Handle dragging by using temporary Transient
Mark mode, instead of a special overlay.
(mouse-kill-ring-save, mouse-save-then-kill): Don't call
mouse-show-mark.
* mouse-sel.el (mouse-sel-selection-alist): mouse-drag-overlay
deleted.
Diffstat (limited to 'lisp/mouse-sel.el')
| -rw-r--r-- | lisp/mouse-sel.el | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index d7f4c9bd222..bd3054a5b94 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el @@ -129,11 +129,6 @@ ;; that the X primary selection is used. Under other windowing systems, ;; alternate functions are used, which simply store the selection value ;; in a variable. -;; -;; * You can change the selection highlight face by altering the properties -;; of mouse-drag-overlay, eg. -;; -;; (overlay-put mouse-drag-overlay 'face 'bold) ;;; Code: @@ -293,8 +288,7 @@ primary selection and region." (overlay-put mouse-secondary-overlay 'face 'secondary-selection)) (defconst mouse-sel-selection-alist - '((PRIMARY mouse-drag-overlay mouse-sel-primary-thing) - (SECONDARY mouse-secondary-overlay mouse-sel-secondary-thing)) + '((SECONDARY mouse-secondary-overlay mouse-sel-secondary-thing)) "Alist associating selections with variables. Each element is of the form: |