From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Thierry Volpiatto Newsgroups: gmane.emacs.bugs Subject: bug#10165: [PATCH] Allow setting corner in mouse avoidance mode. Date: Wed, 30 Nov 2011 06:58:54 +0100 Message-ID: <877h2itald.fsf@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1322632816 18351 80.91.229.12 (30 Nov 2011 06:00:16 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 30 Nov 2011 06:00:16 +0000 (UTC) To: 10165@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Nov 30 07:00:10 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RVdDE-0001D5-CL for geb-bug-gnu-emacs@m.gmane.org; Wed, 30 Nov 2011 07:00:08 +0100 Original-Received: from localhost ([::1]:52900 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RVdDD-0002Cj-MH for geb-bug-gnu-emacs@m.gmane.org; Wed, 30 Nov 2011 01:00:07 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:60362) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RVdDA-0002CF-56 for bug-gnu-emacs@gnu.org; Wed, 30 Nov 2011 01:00:05 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RVdD8-0000Fu-Gi for bug-gnu-emacs@gnu.org; Wed, 30 Nov 2011 01:00:03 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:44925) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RVdD8-0000FW-93 for bug-gnu-emacs@gnu.org; Wed, 30 Nov 2011 01:00:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1RVdD9-0004x5-00 for bug-gnu-emacs@gnu.org; Wed, 30 Nov 2011 01:00:03 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Thierry Volpiatto Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 30 Nov 2011 06:00:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 10165 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.132263276118960 (code B ref -1); Wed, 30 Nov 2011 06:00:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 30 Nov 2011 05:59:21 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RVdCT-0004vj-9l for submit@debbugs.gnu.org; Wed, 30 Nov 2011 00:59:21 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RVdCQ-0004vc-Ff for submit@debbugs.gnu.org; Wed, 30 Nov 2011 00:59:19 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RVdCN-0008R0-EO for submit@debbugs.gnu.org; Wed, 30 Nov 2011 00:59:16 -0500 Original-Received: from lists.gnu.org ([140.186.70.17]:55359) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RVdCM-0008Qt-Vw for submit@debbugs.gnu.org; Wed, 30 Nov 2011 00:59:15 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:34736) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RVdCH-00027u-Hs for bug-gnu-emacs@gnu.org; Wed, 30 Nov 2011 00:59:14 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RVdCG-0008OG-Df for bug-gnu-emacs@gnu.org; Wed, 30 Nov 2011 00:59:09 -0500 Original-Received: from lo.gmane.org ([80.91.229.12]:59111) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RVdCF-0008Nz-Vz for bug-gnu-emacs@gnu.org; Wed, 30 Nov 2011 00:59:08 -0500 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1RVdCE-0000vb-LI for bug-gnu-emacs@gnu.org; Wed, 30 Nov 2011 06:59:06 +0100 Original-Received: from 121.78.88.79.rev.sfr.net ([79.88.78.121]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 30 Nov 2011 06:59:06 +0100 Original-Received: from thierry.volpiatto by 121.78.88.79.rev.sfr.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 30 Nov 2011 06:59:06 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 79 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: 121.78.88.79.rev.sfr.net User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.91 (gnu/linux) Cancel-Lock: sha1:2HHKZ3ZeXNTJ5pyPlG83Ked5FGE= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Wed, 30 Nov 2011 01:00:03 -0500 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:54453 Archived-At: --=-=-= Content-Type: text/plain > Hi all, > there was nothing except modifying function > `mouse-avoidance-banish-destination' to set in which corner mouse is > banish. > This patch allow setting this through > `mouse-avoidance-banish-destination' user variable like this: > (left . top) or (right . bottom) etc... Thanks. We're in feature freeze---please file this in the bug database so it doesn't get forgotten. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=patch-r118037.patch Content-Description: mouse-avoidance-banish-destination # HG changeset patch # User Thierry Volpiatto # Date 1322632617 -3600 # Node ID 885228e9f341f392fc6886bf2855a66c5bdba6c5 # Parent c511f9c3f7a2cab8b3684b2f1ea4782176988ac6 * lisp/avoid.el: Allow setting in which corner banish move the mouse. (mouse-avoidance-banish-destination): New user variable, a cons pair to specify banish corner position. (mouse-avoidance-banish-destination): Set destination according to mouse-avoidance-banish-destination value. diff --git a/lisp/avoid.el b/lisp/avoid.el --- a/lisp/avoid.el +++ b/lisp/avoid.el @@ -115,6 +115,11 @@ :type 'integer :group 'avoid) +(defcustom mouse-avoidance-banish-destination '(left . top) + "Set the position to which Mouse Avoidance mode `banish' moves the mouse." + :group 'avoid + :type 'list) + ;; Internal variables (defvar mouse-avoidance-state nil) (defvar mouse-avoidance-pointer-shapes nil) @@ -183,10 +188,18 @@ (defun mouse-avoidance-banish-destination () "The position to which Mouse Avoidance mode `banish' moves the mouse. -You can redefine this if you want the mouse banished to a different corner." - (let* ((pos (window-edges))) - (cons (- (nth 2 pos) 2) - (nth 1 pos)))) +If you want the mouse banished to a different corner set +`mouse-avoidance-banish-destination' as you need." + (let* ((pos (loop for v in (window-edges) + for k in '(left top right bottom) + collect (cons k v))) + (side (car mouse-avoidance-banish-destination)) + (up-down (cdr mouse-avoidance-banish-destination)) + (fn (case side + (left '+) + (right '-)))) + (cons (funcall fn (assoc-default side pos) 2) + (assoc-default up-down pos)))) (defun mouse-avoidance-banish-mouse () ;; Put the mouse pointer in the upper-right corner of the current frame. --=-=-= Content-Type: text/plain -- Thierry Get my Gnupg key: gpg --keyserver pgp.mit.edu --recv-keys 59F29997 --=-=-=--