# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738439792 0
# Node ID 0d4886af92621803f552f8c88c0f24d39cfcf10a
# Parent  e7dd24a618fbf764c5df42e8e35c07da26ae4489
(mouse-set-mark): Activate the mark.
Don't bounce the cursor if Transient Mark mode.
(mouse-save-then-kill): Pass explicit args to kill-ring-save.
(mouse-kill-ring-save): Likewise.

diff -r e7dd24a618fb -r 0d4886af9262 lisp/mouse.el
--- a/lisp/mouse.el	Wed May 26 18:00:55 1993 +0000
+++ b/lisp/mouse.el	Wed May 26 18:09:52 1993 +0000
@@ -167,8 +167,9 @@
   (let ((point-save (point)))
     (unwind-protect
 	(progn (mouse-set-point click)
-	       (push-mark nil t)
-	       (sit-for 1))
+	       (push-mark nil t t)
+	       (or transient-mark-mode
+		   (sit-for 1)))
       (goto-char point-save))))
 
 (defun mouse-kill (click)
@@ -192,7 +193,7 @@
 This does not delete the region; it acts like \\[kill-ring-save]."
   (interactive "e")
   (mouse-set-mark click)
-  (call-interactively 'kill-ring-save))
+  (kill-ring-save (point) (mark t)))
 
 ;;; This function used to delete the text between point and the mouse
 ;;; whenever it was equal to the front of the kill ring, but some
@@ -225,7 +226,7 @@
 		    (cons (cons (car kill-ring) (point)) buffer-undo-list))))
       ;; Otherwise, save this region.
       (mouse-set-mark click)
-      (call-interactively 'kill-ring-save)
+      (kill-ring-save (point) (mark t))
       (setq mouse-save-then-kill-posn
 	    (list (car kill-ring) (point) click-posn)))))