mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(mouse-set-region): Call set-mark to activate mark.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-05-15 20:32:23 +00:00
parent 20f3a745bb
commit 1cc8a3f41a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/mouse.el
View File

@ -111,6 +111,7 @@ This must be bound to a mouse drag event."
(eq (framep (selected-frame)) 'x))
(sit-for 1))
(push-mark)
(set-mark (point))
(if (numberp (posn-point end))
(goto-char (posn-point end)))))