comparison lisp/mouse.el @ 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.

3118:e7dd24a618fb

This must be bound to a mouse click."
  (interactive "e")
  (let ((point-save (point)))
    (unwind-protect
	(progn (mouse-set-point click)
	       (push-mark nil t)
	       (sit-for 1))
      (goto-char point-save))))

(defun mouse-kill (click)
  "Kill the region between point and the mouse click.
The text is saved in the kill ring, as with \\[kill-region]."

(defun mouse-kill-ring-save (click)
  "Copy the region between point and the mouse click in the kill ring.
This does not delete the region; it acts like \\[kill-ring-save]."
  (interactive "e")
  (mouse-set-mark click)
  (call-interactively 'kill-ring-save))

;;; 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
;;; people found that confusing.

	  (if (not (eq buffer-undo-list t))
	      (setq buffer-undo-list
		    (cons (cons (car kill-ring) (point)) buffer-undo-list))))
      ;; Otherwise, save this region.
      (mouse-set-mark click)
      (call-interactively 'kill-ring-save)
      (setq mouse-save-then-kill-posn
	    (list (car kill-ring) (point) click-posn)))))

(defun mouse-buffer-menu (event)
  "Pop up a menu of buffers for selection with the mouse.

3119:0d4886af9262

This must be bound to a mouse click."
  (interactive "e")
  (let ((point-save (point)))
    (unwind-protect
	(progn (mouse-set-point click)
	       (push-mark nil t t)
	       (or transient-mark-mode
		   (sit-for 1)))
      (goto-char point-save))))

(defun mouse-kill (click)
  "Kill the region between point and the mouse click.
The text is saved in the kill ring, as with \\[kill-region]."

(defun mouse-kill-ring-save (click)
  "Copy the region between point and the mouse click in the kill ring.
This does not delete the region; it acts like \\[kill-ring-save]."
  (interactive "e")
  (mouse-set-mark click)
  (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
;;; people found that confusing.

	  (if (not (eq buffer-undo-list t))
	      (setq buffer-undo-list
		    (cons (cons (car kill-ring) (point)) buffer-undo-list))))
      ;; Otherwise, save this region.
      (mouse-set-mark click)
      (kill-ring-save (point) (mark t))
      (setq mouse-save-then-kill-posn
	    (list (car kill-ring) (point) click-posn)))))

(defun mouse-buffer-menu (event)
  "Pop up a menu of buffers for selection with the mouse.