# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 678129897 0
# Node ID f7330c156716cb32546feba4b7d0eba571d8f9a2
# Parent  7c3ce5b350b83cbae61e0922d2f7af7e5e4fe7ba
*** empty log message ***

diff -r 7c3ce5b350b8 -r f7330c156716 lisp/mouse.el
--- a/lisp/mouse.el	Wed Jun 26 21:34:53 1991 +0000
+++ b/lisp/mouse.el	Fri Jun 28 17:24:57 1991 +0000
@@ -304,30 +304,30 @@
   (define-key map mouse-button-middle 'mouse-scroll-right-full))
 
 
+;;;;
+;;;; Here are experimental things being tested.  Mouse events
+;;;; are of the form:
+;;;;	((x y) window screen-part key-sequence timestamp)
 ;;
-;; Here are experimental things being tested.  Mouse events
-;; are of the form:
-;;	((x y) window screen-part key-sequence timestamp)
-
-;;
-;; Dynamically track mouse coordinates
+;;;;
+;;;; Dynamically track mouse coordinates
+;;;;
 ;;
-
-(defun track-mouse (event)
-  "Track the coordinates, absolute and relative, of the mouse."
-  (interactive "@e")
-  (while mouse-grabbed
-    (let* ((pos (read-mouse-position (selected-screen)))
-	   (abs-x (car pos))
-	   (abs-y (cdr pos))
-	   (relative-coordinate (coordinates-in-window-p
-				 (list (car pos) (cdr pos))
-				 (selected-window))))
-      (if (consp relative-coordinate)
-	  (message "mouse: [%d %d], (%d %d)" abs-x abs-y
-		   (car relative-coordinate)
-		   (car (cdr relative-coordinate)))
-	(message "mouse: [%d %d]" abs-x abs-y)))))
+;;(defun track-mouse (event)
+;;  "Track the coordinates, absolute and relative, of the mouse."
+;;  (interactive "@e")
+;;  (while mouse-grabbed
+;;    (let* ((pos (read-mouse-position (selected-screen)))
+;;	   (abs-x (car pos))
+;;	   (abs-y (cdr pos))
+;;	   (relative-coordinate (coordinates-in-window-p
+;;				 (list (car pos) (cdr pos))
+;;				 (selected-window))))
+;;      (if (consp relative-coordinate)
+;;	  (message "mouse: [%d %d], (%d %d)" abs-x abs-y
+;;		   (car relative-coordinate)
+;;		   (car (cdr relative-coordinate)))
+;;	(message "mouse: [%d %d]" abs-x abs-y)))))
 
 ;;
 ;; Dynamically put a box around the line indicated by point
diff -r 7c3ce5b350b8 -r f7330c156716 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Wed Jun 26 21:34:53 1991 +0000
+++ b/lisp/term/x-win.el	Fri Jun 28 17:24:57 1991 +0000
@@ -213,7 +213,8 @@
 	    (foreground-color "foreground" "black")
 	    (mouse-color "mouse" "black")
 	    (cursor-color "cursor" "black")
-	    (border-color "border" "black"))))
+	    (border-color "border" "black")))
+  (setq x-screen-defaults screen-default-alist))
 
 
 ;; This is the function which creates the first X window.  It is called