Mercurial > emacs
changeset 11818:f470809e6a60
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 15 May 1995 23:00:16 +0000 |
| parents | ba82c338bee3 |
| children | d9b1cec100c6 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Mon May 15 22:22:25 1995 +0000 +++ b/lisp/mouse.el Mon May 15 23:00:16 1995 +0000 @@ -677,7 +677,7 @@ (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 @@ (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)))))))