*** empty log message ***

2 files changed, 24 insertions, 23 deletions

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 5ca1c02c252..533731290ef 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -304,30 +304,30 @@ The text before the mouse position, on the same line, is used as the prefix."
   (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 --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 974019b8aac..833ccf15800 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -213,7 +213,8 @@ are left in ARGS."
             (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