From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Ishmael Newsgroups: gmane.emacs.bugs Subject: bug#17378: 24.3.1: xterm-mouse-event: Wrong type argument: wholenump, -6 Date: Mon, 5 May 2014 08:52:50 -0700 (PDT) Message-ID: <1399305170951-321296.post@n5.nabble.com> References: <1398895293364-321010.post@n5.nabble.com> <1399156821880-321198.post@n5.nabble.com> <83mwexzaam.fsf@gnu.org> <1399228548648-321242.post@n5.nabble.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1399414039 31662 80.91.229.3 (6 May 2014 22:07:19 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 6 May 2014 22:07:19 +0000 (UTC) To: 17378@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed May 07 00:07:13 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1WhnRw-0002FQ-Lt for geb-bug-gnu-emacs@m.gmane.org; Wed, 07 May 2014 00:02:56 +0200 Original-Received: from localhost ([::1]:58133 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WhLFa-0003e6-VZ for geb-bug-gnu-emacs@m.gmane.org; Mon, 05 May 2014 11:56:18 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41259) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WhLFR-0003X1-3F for bug-gnu-emacs@gnu.org; Mon, 05 May 2014 11:56:15 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WhLFL-0007RN-3G for bug-gnu-emacs@gnu.org; Mon, 05 May 2014 11:56:09 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:34501) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WhLFL-0007RJ-0N for bug-gnu-emacs@gnu.org; Mon, 05 May 2014 11:56:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1WhLFK-0000ew-67 for bug-gnu-emacs@gnu.org; Mon, 05 May 2014 11:56:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Ishmael Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 05 May 2014 15:56:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 17378 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: moreinfo X-Debbugs-Original-To: Bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.13993053202477 (code B ref -1); Mon, 05 May 2014 15:56:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 5 May 2014 15:55:20 +0000 Original-Received: from localhost ([127.0.0.1]:51852 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WhLEd-0000dp-AT for submit@debbugs.gnu.org; Mon, 05 May 2014 11:55:20 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:38783) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WhLCc-0000Zu-TX for submit@debbugs.gnu.org; Mon, 05 May 2014 11:53:15 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WhLCR-0006HF-Ds for submit@debbugs.gnu.org; Mon, 05 May 2014 11:53:09 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:50272) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WhLCR-0006H7-Bh for submit@debbugs.gnu.org; Mon, 05 May 2014 11:53:03 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:40458) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WhLCL-0001x2-VG for Bug-gnu-emacs@gnu.org; Mon, 05 May 2014 11:53:03 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WhLCG-0006Dq-Ne for Bug-gnu-emacs@gnu.org; Mon, 05 May 2014 11:52:57 -0400 Original-Received: from sam.nabble.com ([216.139.236.26]:35752) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WhLCG-0006DY-HN for Bug-gnu-emacs@gnu.org; Mon, 05 May 2014 11:52:52 -0400 Original-Received: from [192.168.236.26] (helo=sam.nabble.com) by sam.nabble.com with esmtp (Exim 4.72) (envelope-from ) id 1WhLCE-0005F6-Uw for Bug-gnu-emacs@gnu.org; Mon, 05 May 2014 08:52:50 -0700 In-Reply-To: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Mailman-Approved-At: Mon, 05 May 2014 11:55:16 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x 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:88690 Archived-At: Here you go. Debugger entered--Lisp error: (wrong-type-argument wholenump -6) posn-at-x-y(-6 58) (nthcdr 2 (posn-at-x-y x y)) (append (list nil (quote menu-bar)) (nthcdr 2 (posn-at-x-y x y))) (if w (posn-at-x-y (- x left) (- y top) w t) (append (list nil (quote menu-bar)) (nthcdr 2 (posn-at-x-y x y)))) (let ((event (if w (posn-at-x-y (- x left) (- y top) w t) (append (list nil (quote menu-bar)) (nthcdr 2 (posn-at-x-y x y)))))) (setcar (nthcdr 3 event) timestamp) event) (list type (let ((event (if w (posn-at-x-y (- x left) (- y top) w t) (append (list nil (quote menu-bar)) (nthcdr 2 (posn-at-x-y x y)))))) (setcar (nthcdr 3 event) timestamp) event)) (setq last-input-event (list type (let ((event (if w (posn-at-x-y (- x left) (- y top) w t) (append (list nil ...) (nthcdr 2 ...))))) (setcar (nthcdr 3 event) timestamp) event))) (let* ((click (cond ((null extension) (xterm-mouse--read-event-sequence-1000)) ((eq extension 1006) (xterm-mouse--read-event-sequence-1006)) (t (error "Unsupported XTerm mouse protocol")))) (type (nth 0 click)) (x (nth 1 click)) (y (nth \ 2 click)) (timestamp (xterm-mouse-truncate-wrap (* 1000 (- (float-time) (or xt-mouse-epoch (setq xt-mouse-epoch ...)))))) (w (window-at x y)) (ltrb (window-edges w)) (left (nth 0 ltrb)) (top (nth 1 ltrb))) (set-terminal-parameter nil (quot\ e xterm-mouse-x) x) (set-terminal-parameter nil (quote xterm-mouse-y) y) (setq last-input-event (list type (let ((event (if w (posn-at-x-y ... ... w t) (append ... ...)))) (setcar (nthcdr 3 event) timestamp) event)))) xterm-mouse-event(nil) (let* ((xterm-mouse-last nil) (down (xterm-mouse-event extension)) (down-command (nth 0 down)) (down-data (nth 1 down)) (down-where (nth 1 down-data)) (down-binding (key-binding (if (symbolp down-where) (vector down-where down-command) (\ vector down-command)))) (is-click (string-match "^mouse" (symbol-name (car down))))) (if is-click nil (if (cond ((null extension) (and (eq (read-event) 27) (eq (read-event) 91) (eq (read-event) 77))) ((eq extension 1006) (and (eq (read-eve\ nt) 27) (eq (read-event) 91) (eq (read-event) 60)))) nil (error "Unexpected escape sequence from XTerm"))) (let* ((click (if is-click down (xterm-mouse-event extension))) (click-data (nth 1 click)) (click-where (nth 1 click-data))) (if (me\ mq down-binding (quote (nil ignore))) (if (and (symbolp click-where) (consp click-where)) (vector (list click-where click-data) click) (vector click)) (setq unread-command-events (append (if (eq down-where click-where) (list click) (list (\ list ... click-data) (if ... 0 ...))) unread-command-events)) (if xterm-mouse-debug-buffer (print unread-command-events xterm-mouse-debug-buffer)) (if (and (symbolp down-where) (consp down-where)) (vector (list down-where down-data) down) \ (vector down))))) (progn (deactivate-mark) (let* ((xterm-mouse-last nil) (down (xterm-mouse-event extension)) (down-command (nth 0 down)) (down-data (nth 1 down)) (down-where (nth 1 down-data)) (down-binding (key-binding (if (symbolp down-where) (vector d\ own-where down-command) (vector down-command)))) (is-click (string-match "^mouse" (symbol-name (car down))))) (if is-click nil (if (cond ((null extension) (and (eq ... 27) (eq ... 91) (eq ... 77))) ((eq extension 1006) (and (eq ... 27) (eq\ ... 91) (eq ... 60)))) nil (error "Unexpected escape sequence from XTerm"))) (let* ((click (if is-click down (xterm-mouse-event extension))) (click-data (nth 1 click)) (click-where (nth 1 click-data))) (if (memq down-binding (quote (nil i\ gnore))) (if (and (symbolp click-where) (consp click-where)) (vector (list click-where click-data) click) (vector click)) (setq unread-command-events (append (if (eq down-where click-where) (list click) (list ... ...)) unread-command-event\ s)) (if xterm-mouse-debug-buffer (print unread-command-events xterm-mouse-debug-buffer)) (if (and (symbolp down-where) (consp down-where)) (vector (list down-where down-data) down) (vector down)))))) (unwind-protect (progn (deactivate-mark) (let* ((xterm-mouse-last nil) (down (xterm-mouse-event extension)) (down-command (nth 0 down)) (down-data (nth 1 down)) (down-where (nth 1 down-data)) (down-binding (key-binding (if (symbolp down-\ where) (vector down-where down-command) (vector down-command)))) (is-click (string-match "^mouse" (symbol-name (car down))))) (if is-click nil (if (cond ((null extension) (and ... ... ...)) ((eq extension 1006) (and ... ... ...))) nil (err\ or "Unexpected escape sequence from XTerm"))) (let* ((click (if is-click down (xterm-mouse-event extension))) (click-data (nth 1 click)) (click-where (nth 1 click-data))) (if (memq down-binding (quote (nil ignore))) (if (and (symbolp click\ -where) (consp click-where)) (vector (list click-where click-data) click) (vector click)) (setq unread-command-events (append (if ... ... ...) unread-command-events)) (if xterm-mouse-debug-buffer (print unread-command-events xterm-mouse-de\ bug-buffer)) (if (and (symbolp down-where) (consp down-where)) (vector (list down-where down-data) down) (vector down)))))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (deactivate-mark) (let* ((xterm-mouse-last nil) (down (xterm-mouse-event extension)) (down-command (nth 0 down)) (down-data (nth 1 down)) (down-where (nth 1 down-data\ )) (down-binding (key-binding (if ... ... ...))) (is-click (string-match "^mouse" (symbol-name ...)))) (if is-click nil (if (cond (... ...) (... ...)) nil (error "Unexpected escape sequence from XTerm"))) (let* ((click (if is-click down ..\ .)) (click-data (nth 1 click)) (click-where (nth 1 click-data))) (if (memq down-binding (quote ...)) (if (and ... ...) (vector ... click) (vector click)) (setq unread-command-events (append ... unread-command-events)) (if xterm-mouse-debug\ -buffer (print unread-command-events xterm-mouse-debug-buffer)) (if (and ... ...) (vector ... down) (vector down)))))) (set-window-configuration wconfig))) (save-excursion (let ((wconfig (current-window-configuration))) (unwind-protect (progn (deactivate-mark) (let* ((xterm-mouse-last nil) (down (xterm-mouse-event extension)) (down-command (nth 0 down)) (down-data (nth 1 down)) (down-where \ (nth 1 down-data)) (down-binding (key-binding ...)) (is-click (string-match "^mouse" ...))) (if is-click nil (if (cond ... ...) nil (error "Unexpected escape sequence from XTerm"))) (let* ((click ...) (click-data ...) (click-where ...)) (i\ f (memq down-binding ...) (if ... ... ...) (setq unread-command-events ...) (if xterm-mouse-debug-buffer ...) (if ... ... ...))))) (set-window-configuration wconfig)))) xterm-mouse-translate-1() xterm-mouse-translate(nil) -- View this message in context: http://emacs.1067599.n5.nabble.com/24-3-1-xterm-mouse-event-Wrong-type-argument-wholenump-6-tp321010p321296.html Sent from the Emacs - Bugs mailing list archive at Nabble.com.