Mercurial > emacs
comparison lisp/mouse.el @ 11453:5ed0795c4155
Create mouse-drag-overlay as a dead overlay, instead
of having it live in the *scratch* buffer until first used.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 14 Apr 1995 22:39:19 +0000 |
| parents | e6bdaaa6ce1b |
| children | f470809e6a60 |
comparison
equal
deleted
inserted
replaced
| 11452:a24224fc5a92 | 11453:5ed0795c4155 |
|---|---|
| 369 (goto-char opoint)) | 369 (goto-char opoint)) |
| 370 (sit-for mouse-scroll-delay))))) | 370 (sit-for mouse-scroll-delay))))) |
| 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) |
| 378 | 380 |
| 379 (defun mouse-drag-region (start-event) | 381 (defun mouse-drag-region (start-event) |