On Mai 16 2017, Alan Third <alan@idiocy.org> wrote:
On Mon, May 15, 2017 at 08:23:27PM +0200, Charles A. Roelli wrote:
Patch is attached, with a commit message.
For some reason I can’t apply this patch. It looks fine, and I can’t
see what the problem is at all.
The patch is broken, the hunk for test/lisp/mouse-tests.el has the wrong
line count:
@@ -47,5 +47,13 @@
(should-not (mouse--down-1-maybe-follows-link))
(should (equal unread-command-events '((mouse-2 nil 1))))))
+(ert-deftest bug26816-mouse-frame-movement ()
+ "Mouse moves relative to frame."
+ (skip-unless (display-graphic-p))
+ (let ((frame (selected-frame)))
+ (set-mouse-position frame 0 0)
+ (should (equal (mouse-position)
+ (cons frame (cons 0 0))))))
+
+
;;; mouse-tests.el ends here