aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1995-04-14 22:39:19 +0000
committerKarl Heuer1995-04-14 22:39:19 +0000
commitdc269e81ca22ea04ac0c87ac035fd2f328241273 (patch)
treed9ffc7cd593f32afe4b3e57a0eb413ed4e064cc4
parent8095bf233dba40256cc2878baaf4514e547d5295 (diff)
downloademacs-dc269e81ca22ea04ac0c87ac035fd2f328241273.tar.gz
emacs-dc269e81ca22ea04ac0c87ac035fd2f328241273.zip
Create mouse-drag-overlay as a dead overlay, instead
of having it live in the *scratch* buffer until first used.
-rw-r--r--lisp/mouse.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el
index d75ee90b40c..a889706f3f7 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -371,7 +371,9 @@ Upon exit, point is at the far edge of the newly visible text."
371 (or (eq window (selected-window)) 371 (or (eq window (selected-window))
372 (goto-char opoint)))) 372 (goto-char opoint))))
373 373
374;; Create an overlay and immediately delete it, to get "overlay in no buffer".
374(defvar mouse-drag-overlay (make-overlay 1 1)) 375(defvar mouse-drag-overlay (make-overlay 1 1))
376(delete-overlay mouse-drag-overlay)
375(overlay-put mouse-drag-overlay 'face 'region) 377(overlay-put mouse-drag-overlay 'face 'region)
376 378
377(defvar mouse-selection-click-count 0) 379(defvar mouse-selection-click-count 0)