diff options
| author | Richard M. Stallman | 1994-11-15 16:57:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-15 16:57:24 +0000 |
| commit | cefaf3b60c551e7a262c7fec7dfd5145a51b6f67 (patch) | |
| tree | 2d175e1449ca905bb8739711657282e38607013e | |
| parent | 58451992fb95e6d1c96e9f29f6c1729faf5ab5d4 (diff) | |
| download | emacs-cefaf3b60c551e7a262c7fec7dfd5145a51b6f67.tar.gz emacs-cefaf3b60c551e7a262c7fec7dfd5145a51b6f67.zip | |
(mouse-save-then-kill): Call mouse-show-mark
when we adjust an existing region.
| -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 96aa3db85bd..6ee1cfb0fbc 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -675,8 +675,8 @@ If you do this twice in the same position, the selection is killed." | |||
| 675 | (kill-new (buffer-substring (point) (mark t)) t)) | 675 | (kill-new (buffer-substring (point) (mark t)) t)) |
| 676 | ;; We just have point, so set mark here. | 676 | ;; We just have point, so set mark here. |
| 677 | (mouse-set-mark-fast click) | 677 | (mouse-set-mark-fast click) |
| 678 | (kill-ring-save (point) (mark t)) | 678 | (kill-ring-save (point) (mark t))) |
| 679 | (mouse-show-mark)) | 679 | (mouse-show-mark) |
| 680 | (setq mouse-save-then-kill-posn | 680 | (setq mouse-save-then-kill-posn |
| 681 | (list (car kill-ring) (point) click-posn)))))) | 681 | (list (car kill-ring) (point) click-posn)))))) |
| 682 | 682 | ||