changeset 8135:1f57b34ade27

(mouse-drag-region): Bind this-command like last-command. (mouse-kill-ring-save): Bind this-command and last-command.
author Richard M. Stallman <rms@gnu.org>
date Mon, 04 Jul 1994 00:49:37 +0000
parents 7b7bb255393e
children 9ad3db62f0e7
files lisp/mouse.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Sun Jul 03 22:16:34 1994 +0000
+++ b/lisp/mouse.el	Mon Jul 04 00:49:37 1994 +0000
@@ -258,7 +258,7 @@
 	  (let ((fun (key-binding (vector (car event)))))
 	    (if (not (= (overlay-start mouse-drag-overlay)
 			(overlay-end mouse-drag-overlay)))
-		(let (last-command)
+		(let (last-command this-command)
 		  (push-mark (overlay-start mouse-drag-overlay) t t)
 		  (goto-char (overlay-end mouse-drag-overlay))
 		  (copy-region-as-kill (point) (mark t)))
@@ -390,7 +390,8 @@
 This does not delete the region; it acts like \\[kill-ring-save]."
   (interactive "e")
   (mouse-set-mark-fast click)
-  (kill-ring-save (point) (mark t))
+  (let (this-command last-command)
+    (kill-ring-save (point) (mark t)))
   (mouse-show-mark))
 
 ;;; This function used to delete the text between point and the mouse