Mercurial > emacs

changeset 303:f7330c156716

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 28 Jun 1991 17:24:57 +0000
parents 7c3ce5b350b8
children f3dd86b71a52
files lisp/mouse.el lisp/term/x-win.el
diffstat 2 files changed, 24 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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