diff options
| -rw-r--r-- | lisp/mouse.el | 44 | ||||
| -rw-r--r-- | lisp/term/x-win.el | 3 |
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 |