martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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))))))