mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(mouse-set-mark): Activate the mark.

Browse Source 
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.
This commit is contained in:
Richard M. Stallman 1993-05-26 18:09:52 +00:00
parent c5fb599fa1
commit 897897e32b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/mouse.el
View File

@ -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)))))