mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-save-then-kill): Call mouse-show-mark

Browse source 
when we adjust an existing region.
This commit is contained in:
Richard M. Stallman 1994-11-15 16:57:24 +00:00
parent 58451992fb
commit cefaf3b60c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mouse.el
View file

@ -675,8 +675,8 @@ If you do this twice in the same position, the selection is killed."
(kill-new (buffer-substring (point) (mark t)) t))
;; We just have point, so set mark here.
(mouse-set-mark-fast click)
(kill-ring-save (point) (mark t))
(mouse-show-mark))
(kill-ring-save (point) (mark t)))
(mouse-show-mark)
(setq mouse-save-then-kill-posn
(list (car kill-ring) (point) click-posn))))))