diff options
| author | Richard M. Stallman | 1993-05-15 20:32:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-15 20:32:23 +0000 |
| commit | 1cc8a3f41a169505f9078ccc4d53dfc87bf598cb (patch) | |
| tree | a10e6872f449ad5911b5a1b0d645b7a9abc825eb | |
| parent | 20f3a745bb2ac52425d97c0d061ffcf83be7e98a (diff) | |
| download | emacs-1cc8a3f41a169505f9078ccc4d53dfc87bf598cb.tar.gz emacs-1cc8a3f41a169505f9078ccc4d53dfc87bf598cb.zip | |
(mouse-set-region): Call set-mark to activate mark.
| -rw-r--r-- | lisp/mouse.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 779d4fa5b67..5f032754c00 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -111,6 +111,7 @@ This must be bound to a mouse drag event." | |||
| 111 | (eq (framep (selected-frame)) 'x)) | 111 | (eq (framep (selected-frame)) 'x)) |
| 112 | (sit-for 1)) | 112 | (sit-for 1)) |
| 113 | (push-mark) | 113 | (push-mark) |
| 114 | (set-mark (point)) | ||
| 114 | (if (numberp (posn-point end)) | 115 | (if (numberp (posn-point end)) |
| 115 | (goto-char (posn-point end))))) | 116 | (goto-char (posn-point end))))) |
| 116 | 117 | ||