Mercurial > emacs
comparison lisp/mouse.el @ 584:4cd7543be581
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 16 Mar 1992 20:39:07 +0000 |
| parents | 36359663b6d8 |
| children | 505130d1ddf8 |
comparison
equal
deleted
inserted
replaced
| 583:3c0c1cd8428a | 584:4cd7543be581 |
|---|---|
| 14 ;;; GNU General Public License for more details. | 14 ;;; GNU General Public License for more details. |
| 15 | 15 |
| 16 ;;; You should have received a copy of the GNU General Public License | 16 ;;; You should have received a copy of the GNU General Public License |
| 17 ;;; along with GNU Emacs; see the file COPYING. If not, write to | 17 ;;; along with GNU Emacs; see the file COPYING. If not, write to |
| 18 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 18 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
| 19 | |
| 20 (provide 'mouse) | |
| 21 | 19 |
| 22 | 20 |
| 23 ;;; Utility functions. | 21 ;;; Utility functions. |
| 24 | 22 |
| 25 (defun mouse-movement-p (event) | 23 (defun mouse-movement-p (event) |
| 452 ;;; Bindings for mouse commands. | 450 ;;; Bindings for mouse commands. |
| 453 | 451 |
| 454 (global-set-key [mouse-1] 'mouse-set-point) | 452 (global-set-key [mouse-1] 'mouse-set-point) |
| 455 (global-set-key [S-mouse-1] 'mouse-set-mark) | 453 (global-set-key [S-mouse-1] 'mouse-set-mark) |
| 456 (global-set-key [mouse-3] 'mouse-delete-other-windows) | 454 (global-set-key [mouse-3] 'mouse-delete-other-windows) |
| 455 | |
| 456 (provide 'mouse) | |
| 457 |