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: Sat, 03 Dec 2011 10:26:09 +0100 Message-ID: <87zkfaxaz2.fsf@gmail.com> References: <877h2itald.fsf@gmail.com> <87pqgaj757.fsf@mail.jurta.org> <87liqxj401.fsf@gmail.com> <871uspy0e3.fsf@gmail.com> <87ipm0spfp.fsf@mail.jurta.org> <874nxj4ei8.fsf@gmail.com> <87zkfb2znw.fsf@gmail.com> <87y5uvb5x8.fsf@mail.jurta.org> <87wrafusgd.fsf@gmail.com> <87wraezyvf.fsf@mail.jurta.org> <874nxi7u70.fsf@gmail.com> <877h2eav6t.fsf@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1322904410 3623 80.91.229.12 (3 Dec 2011 09:26:50 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sat, 3 Dec 2011 09:26:50 +0000 (UTC) To: 10165@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Dec 03 10:26:47 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 1RWlrq-0005qR-SR for geb-bug-gnu-emacs@m.gmane.org; Sat, 03 Dec 2011 10:26:47 +0100 Original-Received: from localhost ([::1]:49779 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RWlrq-0004Xy-Cz for geb-bug-gnu-emacs@m.gmane.org; Sat, 03 Dec 2011 04:26:46 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:51122) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RWlrn-0004Xi-Mt for bug-gnu-emacs@gnu.org; Sat, 03 Dec 2011 04:26:44 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RWlrm-0003ju-QP for bug-gnu-emacs@gnu.org; Sat, 03 Dec 2011 04:26:43 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:50024) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RWlrm-0003jq-Oc for bug-gnu-emacs@gnu.org; Sat, 03 Dec 2011 04:26:42 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1RWls5-0002sT-VG for bug-gnu-emacs@gnu.org; Sat, 03 Dec 2011 04:27:02 -0500 X-Loop: help-debbugs@gnu.org In-Reply-To: <877h2itald.fsf@gmail.com> Resent-From: Thierry Volpiatto Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 03 Dec 2011 09:27:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 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.132290441211042 (code B ref -1); Sat, 03 Dec 2011 09:27:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 3 Dec 2011 09:26:52 +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 1RWlrv-0002s1-PE for submit@debbugs.gnu.org; Sat, 03 Dec 2011 04:26:52 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RWlrt-0002rv-QB for submit@debbugs.gnu.org; Sat, 03 Dec 2011 04:26:51 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RWlrZ-0003is-5C for submit@debbugs.gnu.org; Sat, 03 Dec 2011 04:26:30 -0500 Original-Received: from lists.gnu.org ([140.186.70.17]:54009) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RWlrZ-0003io-3p for submit@debbugs.gnu.org; Sat, 03 Dec 2011 04:26:29 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:51056) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RWlrY-0004Vx-2n for bug-gnu-emacs@gnu.org; Sat, 03 Dec 2011 04:26:29 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RWlrX-0003iX-7p for bug-gnu-emacs@gnu.org; Sat, 03 Dec 2011 04:26:28 -0500 Original-Received: from lo.gmane.org ([80.91.229.12]:38942) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RWlrW-0003iL-QO for bug-gnu-emacs@gnu.org; Sat, 03 Dec 2011 04:26:27 -0500 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1RWlrT-0005gD-Fq for bug-gnu-emacs@gnu.org; Sat, 03 Dec 2011 10:26:23 +0100 Original-Received: from 132.78.88.79.rev.sfr.net ([79.88.78.132]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 03 Dec 2011 10:26:23 +0100 Original-Received: from thierry.volpiatto by 132.78.88.79.rev.sfr.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 03 Dec 2011 10:26:23 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 50 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: 132.78.88.79.rev.sfr.net User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.92 (gnu/linux) Cancel-Lock: sha1:nl+LO2j7df7pIg5B7+59HTFbJYc= 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: Sat, 03 Dec 2011 04:27:01 -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:54643 Archived-At: Use this, as there is an error in precedent patch (still using value of old variable), sorry. --8<---------------cut here---------------start------------->8--- (defun mouse-avoidance-banish-destination () "The position to which Mouse Avoidance mode `banish' moves the mouse. If you want the mouse banished to a different corner set `mouse-avoidance-banish-position' as you need." (let* ((fra-or-win (assoc-default 'frame-or-window mouse-avoidance-banish-position 'eq)) (list-values (case fra-or-win (frame (list 0 0 (frame-width) (frame-height))) (window (window-edges)))) (alist (loop for v in list-values for k in '(left top right bottom) collect (cons k v))) (side (assoc-default 'side mouse-avoidance-banish-position 'eq)) (side-dist (assoc-default 'side-pos mouse-avoidance-banish-position 'eq)) (top-or-bottom (assoc-default 'top-or-bottom mouse-avoidance-banish-position 'eq)) (top-or-bottom-dist (assoc-default 'top-or-bottom-pos mouse-avoidance-banish-position 'eq)) (side-fn (case side (left '+) (right '-))) (top-or-bottom-fn (case top-or-bottom (top '+) (bottom '-)))) (cons (funcall side-fn ; -/+ (assoc-default side alist 'eq) ; right or left side-dist) ; distance from side (funcall top-or-bottom-fn ; -/+ (assoc-default top-or-bottom alist 'eq) ; top/bottom top-or-bottom-dist)))) ; distance from top/bottom --8<---------------cut here---------------end--------------->8--- -- Thierry Get my Gnupg key: gpg --keyserver pgp.mit.edu --recv-keys 59F29997