diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-05-26 18:09:52 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-05-26 18:09:52 +0000 |
commit | 62d7f1ff44daf10a5be9217a0cf5e95709f94508 (patch) | |
tree | 440fe598218a00ac11b68e63174e6603ba1772ed /lisp/mouse.el | |
parent | 8a01ecc27edf0bd6e237fbc7020c46de6b9ab9f9 (diff) | |
download | emacs-62d7f1ff44daf10a5be9217a0cf5e95709f94508.tar.gz |
(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.
Diffstat (limited to 'lisp/mouse.el')
-rw-r--r-- | lisp/mouse.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 5f032754c00..46212cfa1b9 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -167,8 +167,9 @@ This must be bound to a mouse click." (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 @@ Prefix arguments are interpreted as with \\[yank]." 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 @@ which prepares for a second click to delete the text." (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))))) |