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 | 897897e32b3b3108cf4563954e5d5560c55cc0a4 (patch) | |
| tree | 790606431be5a0b104b14aef40af42bc1a083ca5 | |
| parent | c5fb599fa1be4b9a645e86d7129f30f84d139d5e (diff) | |
| download | emacs-897897e32b3b3108cf4563954e5d5560c55cc0a4.tar.gz emacs-897897e32b3b3108cf4563954e5d5560c55cc0a4.tar.bz2 emacs-897897e32b3b3108cf4563954e5d5560c55cc0a4.zip | |
(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.
| -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))))) |