From bcde3748c6627f312397907fc87f6666fe695ddb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 15 May 1995 23:00:16 +0000 Subject: [PATCH] (mouse-save-then-kill): When making a new region and not adjusting an old one, always make new kill-ring entry and don't call mouse-show-mark. --- lisp/mouse.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index a889706f3f7..562d139a64c 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -677,7 +677,7 @@ If you do this twice in the same position, the selection is killed." (mouse-show-mark)) ;; If we click this button again without moving it, ;; that time kill. - (mouse-save-then-kill-delete-region (point) (mark)) + (mouse-save-then-kill-delete-region (mark) (point)) (setq mouse-selection-click-count 0) (setq mouse-save-then-kill-posn nil)) (if (and (eq last-command 'mouse-save-then-kill) @@ -709,14 +709,14 @@ If you do this twice in the same position, the selection is killed." (goto-char new) (set-mark new)) (setq deactivate-mark nil))) - (kill-new (buffer-substring (point) (mark t)) t)) + (kill-new (buffer-substring (point) (mark t)) t) + (mouse-show-mark)) ;; Set the mark where point is, then move where clicked. (mouse-set-mark-fast click) (if before-scroll (goto-char before-scroll)) (exchange-point-and-mark) - (kill-ring-save (point) (mark t))) - (mouse-show-mark) + (kill-new (buffer-substring (point) (mark t)) t)) (mouse-set-region-1) (setq mouse-save-then-kill-posn (list (car kill-ring) (point) click-posn))))))) -- 2.39.2