# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 715240498 0
# Node ID d9775f33488d5a05ec3a49bf763c52b3dac949cb
# Parent  a7fc54083464305f2540f5da0c75fcf590a6820a
*** empty log message ***

diff -r a7fc54083464 -r d9775f33488d lisp/mouse.el
--- a/lisp/mouse.el	Mon Aug 31 05:06:54 1992 +0000
+++ b/lisp/mouse.el	Mon Aug 31 05:54:58 1992 +0000
@@ -484,6 +484,10 @@
 
 ;;; Bindings for mouse commands.
 
+;; This first won't be needed once the drag and down events
+;; are properly implemented.
+(global-set-key   [mouse-1]	'mouse-set-point)
+
 (global-set-key   [down-mouse-1]	'mouse-set-point)
 (global-set-key   [drag-mouse-1]	'mouse-set-mark)
 (global-set-key   [mouse-2]	'mouse-yank-at-click)