diff options
| author | Karl Heuer | 1995-04-14 22:39:19 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-04-14 22:39:19 +0000 |
| commit | dc269e81ca22ea04ac0c87ac035fd2f328241273 (patch) | |
| tree | d9ffc7cd593f32afe4b3e57a0eb413ed4e064cc4 | |
| parent | 8095bf233dba40256cc2878baaf4514e547d5295 (diff) | |
| download | emacs-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.el | 2 |
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) |