Mercurial > emacs
comparison lisp/mouse.el @ 1057:d9775f33488d
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 31 Aug 1992 05:54:58 +0000 |
| parents | a7fc54083464 |
| children | 19c6978ab218 |
comparison
equal
deleted
inserted
replaced
| 1056:a7fc54083464 | 1057:d9775f33488d |
|---|---|
| 482 ((= (current-column) (car relative-coordinate)) (ding)))))) | 482 ((= (current-column) (car relative-coordinate)) (ding)))))) |
| 483 | 483 |
| 484 | 484 |
| 485 ;;; Bindings for mouse commands. | 485 ;;; Bindings for mouse commands. |
| 486 | 486 |
| 487 ;; This first won't be needed once the drag and down events | |
| 488 ;; are properly implemented. | |
| 489 (global-set-key [mouse-1] 'mouse-set-point) | |
| 490 | |
| 487 (global-set-key [down-mouse-1] 'mouse-set-point) | 491 (global-set-key [down-mouse-1] 'mouse-set-point) |
| 488 (global-set-key [drag-mouse-1] 'mouse-set-mark) | 492 (global-set-key [drag-mouse-1] 'mouse-set-mark) |
| 489 (global-set-key [mouse-2] 'mouse-yank-at-click) | 493 (global-set-key [mouse-2] 'mouse-yank-at-click) |
| 490 (global-set-key [mouse-3] 'mouse-kill-ring-save) | 494 (global-set-key [mouse-3] 'mouse-kill-ring-save) |
| 491 (global-set-key [S-mouse-3] 'mouse-kill) | 495 (global-set-key [S-mouse-3] 'mouse-kill) |