annotate tests/Dnd/droptest.el @ 270:8a65e71a4a53
r21-0b33
Added tag r20-5b33 for changeset b2472a1930f2
| author |
cvs |
| date |
Mon, 13 Aug 2007 10:27:21 +0200 |
| parents |
acd284d43ca1 |
| children |
c42ec1d1cded |
| rev |
line source |
|
197
|
1 ;; a simple test of the drop event
|
|
|
2 ;;
|
|
|
3
|
|
|
4 (defun some-drop (event)
|
|
|
5 (interactive "@e")
|
|
|
6 (setq dnd-data (event-dnd-data event))
|
|
|
7 (message "At %d,%d; button %d, data %s" (event-x event) (event-y event) (event-button event) (event-dnd-data event)))
|
|
|
8
|
|
|
9 (define-key global-map [drop1] 'some-drop)
|
