diff options
| author | Richard M. Stallman | 1993-07-21 07:40:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-21 07:40:12 +0000 |
| commit | f767385c90ecd380ac86e29c3fc8f83c6d15bf5a (patch) | |
| tree | 8e85e4ab0834648993ccf4121827ab20a230f5db | |
| parent | b6e1c607fc969eb0eef0883f333bedbce0c24742 (diff) | |
| download | emacs-f767385c90ecd380ac86e29c3fc8f83c6d15bf5a.tar.gz emacs-f767385c90ecd380ac86e29c3fc8f83c6d15bf5a.zip | |
(mouse-drag-region): Use deactivate-mark.
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 868018436fb..fc00dddbb4f 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -173,7 +173,7 @@ This must be bound to a button-down mouse event." | |||
| 173 | (move-overlay mouse-drag-overlay | 173 | (move-overlay mouse-drag-overlay |
| 174 | start-point start-point | 174 | start-point start-point |
| 175 | (window-buffer start-window)) | 175 | (window-buffer start-window)) |
| 176 | (setq mark-active nil) | 176 | (deactivate-mark) |
| 177 | (let (event end end-point) | 177 | (let (event end end-point) |
| 178 | (track-mouse | 178 | (track-mouse |
| 179 | (while (progn | 179 | (while (progn |
| @@ -221,7 +221,7 @@ This must be bound to a button-down mouse event." | |||
| 221 | (numberp (posn-point (event-end event)))) | 221 | (numberp (posn-point (event-end event)))) |
| 222 | (goto-char (posn-point (event-end event)))) | 222 | (goto-char (posn-point (event-end event)))) |
| 223 | (if (= (point) start-point) | 223 | (if (= (point) start-point) |
| 224 | (setq mark-active nil) | 224 | (deactivate-mark) |
| 225 | (set-mark start-point)) | 225 | (set-mark start-point)) |
| 226 | (delete-overlay mouse-drag-overlay)))) | 226 | (delete-overlay mouse-drag-overlay)))) |
| 227 | 227 | ||