Mercurial > emacs
comparison lisp/mouse.el @ 8135:1f57b34ade27
(mouse-drag-region): Bind this-command like last-command.
(mouse-kill-ring-save): Bind this-command and last-command.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 04 Jul 1994 00:49:37 +0000 |
parents | 20100d7e5b0f |
children | 0c7bcd40a21e |
comparison
equal
deleted
inserted
replaced
8134:7b7bb255393e | 8135:1f57b34ade27 |
---|---|
256 ;;; (eq (posn-window (event-end event)) start-window) | 256 ;;; (eq (posn-window (event-end event)) start-window) |
257 ;;; (numberp (posn-point (event-end event))) | 257 ;;; (numberp (posn-point (event-end event))) |
258 (let ((fun (key-binding (vector (car event))))) | 258 (let ((fun (key-binding (vector (car event))))) |
259 (if (not (= (overlay-start mouse-drag-overlay) | 259 (if (not (= (overlay-start mouse-drag-overlay) |
260 (overlay-end mouse-drag-overlay))) | 260 (overlay-end mouse-drag-overlay))) |
261 (let (last-command) | 261 (let (last-command this-command) |
262 (push-mark (overlay-start mouse-drag-overlay) t t) | 262 (push-mark (overlay-start mouse-drag-overlay) t t) |
263 (goto-char (overlay-end mouse-drag-overlay)) | 263 (goto-char (overlay-end mouse-drag-overlay)) |
264 (copy-region-as-kill (point) (mark t))) | 264 (copy-region-as-kill (point) (mark t))) |
265 (goto-char (overlay-end mouse-drag-overlay)) | 265 (goto-char (overlay-end mouse-drag-overlay)) |
266 (setq this-command 'mouse-set-point)))) | 266 (setq this-command 'mouse-set-point)))) |
388 (defun mouse-kill-ring-save (click) | 388 (defun mouse-kill-ring-save (click) |
389 "Copy the region between point and the mouse click in the kill ring. | 389 "Copy the region between point and the mouse click in the kill ring. |
390 This does not delete the region; it acts like \\[kill-ring-save]." | 390 This does not delete the region; it acts like \\[kill-ring-save]." |
391 (interactive "e") | 391 (interactive "e") |
392 (mouse-set-mark-fast click) | 392 (mouse-set-mark-fast click) |
393 (kill-ring-save (point) (mark t)) | 393 (let (this-command last-command) |
394 (kill-ring-save (point) (mark t))) | |
394 (mouse-show-mark)) | 395 (mouse-show-mark)) |
395 | 396 |
396 ;;; This function used to delete the text between point and the mouse | 397 ;;; This function used to delete the text between point and the mouse |
397 ;;; whenever it was equal to the front of the kill ring, but some | 398 ;;; whenever it was equal to the front of the kill ring, but some |
398 ;;; people found that confusing. | 399 ;;; people found that confusing. |