Mercurial > emacs
changeset 3119:0d4886af9262
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 26 May 1993 18:09:52 +0000 |
| parents | e7dd24a618fb |
| children | c6c87b7f85b8 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))