From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kaushal Modi Newsgroups: gmane.emacs.bugs Subject: bug#21847: 25.0.50; Unable to edebug diff-goto-source Date: Fri, 6 Nov 2015 18:27:53 -0500 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1446852632 22428 80.91.229.3 (6 Nov 2015 23:30:32 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 6 Nov 2015 23:30:32 +0000 (UTC) To: 21847@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Nov 07 00:30:17 2015 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 1ZuqSX-0003Dm-9w for geb-bug-gnu-emacs@m.gmane.org; Sat, 07 Nov 2015 00:30:17 +0100 Original-Received: from localhost ([::1]:41562 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZuqSW-0004vx-I4 for geb-bug-gnu-emacs@m.gmane.org; Fri, 06 Nov 2015 18:30:16 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57678) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZuqSP-0004vm-EF for bug-gnu-emacs@gnu.org; Fri, 06 Nov 2015 18:30:13 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZuqSL-0007mW-JN for bug-gnu-emacs@gnu.org; Fri, 06 Nov 2015 18:30:09 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:37238) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZuqSL-0007mS-DU for bug-gnu-emacs@gnu.org; Fri, 06 Nov 2015 18:30:05 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1ZuqSL-00030R-0i for bug-gnu-emacs@gnu.org; Fri, 06 Nov 2015 18:30:05 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Kaushal Modi Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 06 Nov 2015 23:30:04 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 21847 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: "bug-gnu-emacs@gnu.org" Original-Received: via spool by submit@debbugs.gnu.org id=B.144685255311454 (code B ref -1); Fri, 06 Nov 2015 23:30:04 +0000 Original-Received: (at submit) by debbugs.gnu.org; 6 Nov 2015 23:29:13 +0000 Original-Received: from localhost ([127.0.0.1]:56179 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1ZuqRS-0002yd-FV for submit@debbugs.gnu.org; Fri, 06 Nov 2015 18:29:13 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:47392) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1ZuqR5-0002xZ-Is for submit@debbugs.gnu.org; Fri, 06 Nov 2015 18:29:08 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZuqR0-0007cA-VD for submit@debbugs.gnu.org; Fri, 06 Nov 2015 18:28:47 -0500 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:43616) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZuqR0-0007c6-RR for submit@debbugs.gnu.org; Fri, 06 Nov 2015 18:28:42 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57398) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZuqQx-0004sQ-3U for bug-gnu-emacs@gnu.org; Fri, 06 Nov 2015 18:28:42 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZuqQt-0007bA-3G for bug-gnu-emacs@gnu.org; Fri, 06 Nov 2015 18:28:39 -0500 Original-Received: from mail-oi0-x22b.google.com ([2607:f8b0:4003:c06::22b]:33036) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZuqQs-0007aQ-RS for bug-gnu-emacs@gnu.org; Fri, 06 Nov 2015 18:28:35 -0500 Original-Received: by oiad129 with SMTP id d129so74179043oia.0 for ; Fri, 06 Nov 2015 15:28:34 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:from:date:message-id:subject:to:content-type :content-transfer-encoding; bh=zRVWlwphQ9WMndQdFLxIrcn2xgj0IJHUvbDHF8JD7aY=; b=w5pYPLtkwsS+erfPoQSEtPWKGTwUN0gjU1qJ5KdEaFNb68A20fG0pMvl/NVVtL9l4V T6JBomUbQa0Df9MD4IgBmb3IU8r/8YlkV4Ni5TixLPNKI6QgFZHB6ejevxZDE0CvR+uc JYslGjCgfnU0e54gZrni4uBmYf9TS1APVOHzGsGNyZRqHYoHqEfxC/4QI+ejiiYfw0SV sFaP/BA47IbHoB1fEbYq8oCZPXzyPhMS4op29/LnpLbesywaLGafDcvK4uALqIe2ZA7H XJrKdcBu7a0tARyTQSNVos/MJLwzasZVruagjJ6gkRzT1XW8Tl0dPbiTHirIMCcvdBwq 3MnA== X-Received: by 10.202.104.24 with SMTP id d24mr9515251oic.57.1446852514171; Fri, 06 Nov 2015 15:28:34 -0800 (PST) Original-Received: by 10.202.80.133 with HTTP; Fri, 6 Nov 2015 15:27:53 -0800 (PST) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). 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: 208.118.235.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:108504 Archived-At: I am unable to edebug certain functions. I have seen this for a while but this time I am filing a report. I can consistently recreate this issue in emacs -Q session. STEPS: - Open the lisp/vc/diff-mode.el file - Navigate to diff-goto-source function (C-s defun diff-goto-source RET) - C-M-x (or M-x edebug-defun) You will get this error: pcase--macroexpand: Unknown edebug-enter pattern: (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched)))) =3D=3D=3D=3D BACKTRACE Debugger entered--Lisp error: (error "Unknown edebug-enter pattern: (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))") signal(error ("Unknown edebug-enter pattern: (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))")) error("Unknown %s pattern: %S" edebug-enter (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))) pcase--macroexpand((edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))) pcase--macroexpand((\` (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))))) pcase--macroexpand((app car (\` (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched)))))))) mapcar(pcase--macroexpand ((pred consp) (app car (\` (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))))) (app cdr (\` nil)))) pcase--macroexpand((and (pred consp) (app car (\` (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))))) (app cdr (\` nil)))) pcase--macroexpand((\` ((\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched)))))))) pcase--macroexpand((app cdr (\` ((\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))))))) mapcar(pcase--macroexpand ((pred consp) (app car (\` (\, _dst))) (app cdr (\` ((\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...))))))))) pcase--macroexpand((and (pred consp) (app car (\` (\, _dst))) (app cdr (\` ((\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...))))))))) pcase--macroexpand((\` ((\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched)))))))) pcase--macroexpand((app cdr (\` ((\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))))))) mapcar(pcase--macroexpand ((pred consp) (app car (\` (\, src))) (app cdr (\` ((\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...))))))))) pcase--macroexpand((and (pred consp) (app car (\` (\, src))) (app cdr (\` ((\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...))))))))) pcase--macroexpand((\` ((\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched)))))))) pcase--macroexpand((app cdr (\` ((\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))))))) mapcar(pcase--macroexpand ((pred consp) (app car (\` (\, pos))) (app cdr (\` ((\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...))))))))) pcase--macroexpand((and (pred consp) (app car (\` (\, pos))) (app cdr (\` ((\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...))))))))) pcase--macroexpand((\` ((\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched)))))))) pcase--macroexpand((app cdr (\` ((\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))))))) mapcar(pcase--macroexpand ((pred consp) (app car (\` (\, line-offset))) (app cdr (\` ((\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...))))))))) pcase--macroexpand((and (pred consp) (app car (\` (\, line-offset))) (app cdr (\` ((\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...))))))))) pcase--macroexpand((\` ((\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched)))))))) pcase--macroexpand((app cdr (\` ((\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))))))) mapcar(pcase--macroexpand ((pred consp) (app car (\` (\, buf))) (app cdr (\` ((\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...))))))))) pcase--macroexpand((and (pred consp) (app car (\` (\, buf))) (app cdr (\` ((\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...))))))))) pcase--macroexpand((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched)))))))) #[257 "\303\300\304 @!\"\305\306\307\310\311\301\302 #\312\"\313\314%D\2= 07" [val #[514 "\211C \301\242\236\211\204 \302 \242\"\301 \242 E\301\242B\240\210\211\262 \202\202 \211@ A\211@ A\211@\2119\204` \303\304\305\300\242G\"!\300 \306\307\310 \" BBD\300\242B\240\210 \311\240\210 \307\312 \"B\241\210 AA \240\210\262 \313 \242!\240\210\307\314\315\316\317\320 \f!\321\"\322\323% \"\311 BB\262 \266\205\262 \207" [(nil) (nil) pcase-codegen make-symbol format "pcase-%d" lambda mapcar car funcall cdr copy-sequence make-byte-code 257 "\211@\300\242\236\300\301 \300\242\"\240\210\211A\207" vconcat vector [delq] 6 "\n\n(fn PA)"] 16 "\n\n(fn CODE VARS)"] (nil) pcase--match pcase--macroexpand make-byte-code 257 "\302\301\242>\204 \301\302\301\242B\240\210\303\302A!\203 \304\202 \300\302A \"\207" vconcat vector [pcase--small-branch-p pcase-codegen] 4 "\n\n(fn VARS)"] 10 "\n\n(fn CASE)"](((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched))))))) (progn (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after (edebug-before 32) 34 (car ...)) (edebug-after (edebug-before 35) 37 (cdr ...)))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t))))) mapcar(#[257 "\303\300\304 @!\"\305\306\307\310\311\301\302 #\312\"\313\314%D\207" [val #[514 "\211C \301\242\236\211\204 \302 \242\"\301 \242 E\301\242B\240\210\211\262 \202\202 \211@ A\211@ A\211@\2119\204` \303\304\305\300\242G\"!\300 \306\307\310 \" BBD\300\242B\240\210 \311\240\210 \307\312 \"B\241\210 AA \240\210\262 \313 \242!\240\210\307\314\315\316\317\320 \f!\321\"\322\323% \"\311 BB\262 \266\205\262 \207" [(nil) (nil) pcase-codegen make-symbol format "pcase-%d" lambda mapcar car funcall cdr copy-sequence make-byte-code 257 "\211@\300\242\236\300\301 \300\242\"\240\210\211A\207" vconcat vector [delq] 6 "\n\n(fn PA)"] 16 "\n\n(fn CODE VARS)"] (nil) pcase--match pcase--macroexpand make-byte-code 257 "\302\301\242>\204 \301\302\301\242B\240\210\303\302A!\203 \304\202 \300\302A \"\207" vconcat vector [pcase--small-branch-p pcase-codegen] 4 "\n\n(fn VARS)"] 10 "\n\n(fn CASE)"] (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...)))))) (progn (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after ... 34 ...) (edebug-after ... 37 ...))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t)))) (pcase--dontcare nil))) pcase--expand((edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))) (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...)))))) (progn (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after ... 34 ...) (edebug-after ... 37 ...))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t)))) (pcase--dontcare nil))) pcase--let*((((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...)))))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) ((edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after (edebug-before 32) 34 (car (edebug-after 0 33 pos))) (edebug-after (edebug-before 35) 37 (cdr (edebug-after 0 36 src))))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t)))) #[385 "\301 \"\211@ \232\203 \211A\202 \302 \"\303 B #\210\211\262 \207" [pcase--memoize gethash pcase--let* puthash] 8 ("/home/kmodi/usr_local/apps/6/emacs/master/share/emacs/25.0.50/lisp/emacs-= lisp/pcase.elc" . 5678)]((((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...)))))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after (edebug-before 32) 34 (car (edebug-after 0 33 pos))) (edebug-after (edebug-before 35) 37 (cdr (edebug-after 0 36 src))))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t))) macroexpand((pcase-let (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function ...))))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after (edebug-before 32) 34 (car (edebug-after 0 33 pos))) (edebug-after (edebug-before 35) 37 (cdr (edebug-after 0 36 src))))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t))) nil) macroexp-macroexpand((pcase-let (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function ...))))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after (edebug-before 32) 34 (car (edebug-after 0 33 pos))) (edebug-after (edebug-before 35) 37 (cdr (edebug-after 0 36 src))))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t))) nil) macroexp--expand-all((pcase-let (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter (quote diff-goto-source) nil (function ...))))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after (edebug-before 32) 34 (car (edebug-after 0 33 pos))) (edebug-after (edebug-before 35) 37 (cdr (edebug-after 0 36 src))))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t)))) macroexp--all-forms((edebug-after (edebug-before 21) 47 (pcase-let (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter ... nil ...)))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after (edebug-before 32) 34 (car ...)) (edebug-after (edebug-before 35) 37 (cdr ...)))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t)))) 1) #[514 "\300 \301\"\211\204 \302 \242\303\"\202g \304 !\204+ \3051$ \306\307 ! \"0\202* \310\311 \"\262 \210\312 \242\" \242 =3D\203b \242\302 \242\303\"\211\262 \232\203J \242\202e \312 \"\240\210\211 \242=3D\203\\ \211\202e \313 !\202e \313 !\262 \207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"](((edebug-after (edebug-before 21) 47 (pcase-let (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, ...))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after ... 34 ...) (edebug-after ... 37 ...))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t))))) edebug-after) macroexp--expand-all((edebug-after (edebug-before 21) 47 (pcase-let (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, (edebug-enter ... nil ...)))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after (edebug-before 32) 34 (car ...)) (edebug-after (edebug-before 35) 37 (cdr ...)))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t))))) macroexp--all-forms(((edebug-after (edebug-before 21) 47 (pcase-let (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, ...))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after ... 34 ...) (edebug-after ... 37 ...))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t)))))) #[1028 "\300 \300\301 \302\"\303 ! \242A# \242#\207" [macroexp--cons macroexp--all-clauses 1 macroexp--all-forms] 10 "\n\n(fn FORM BODY BINDINGS FUN)"](((let ((rev (edebug-after (edebug-before 13) 20 (not (edebug-after (edebug-before 14) 19 (save-excursion ... ...)))))) (edebug-after (edebug-before 21) 47 (pcase-let (((\` (... ... ... ... ... ...)) (edebug-after (edebug-before 23) 26 (diff-find-source-location ... ...)))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ ... ...)))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor ... ...)) t)))))) ((edebug-after (edebug-before 21) 47 (pcase-let (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, ...))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after ... 34 ...) (edebug-after ... 37 ...))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t))))) ((rev (edebug-after (edebug-before 13) 20 (not (edebug-after (edebug-before 14) 19 (save-excursion (edebug-after (edebug-before 15) 16 (beginning-of-line)) (edebug-after (edebug-before 17) 18 (looking-at "[-<]")))))))) let) macroexp--expand-all((let ((rev (edebug-after (edebug-before 13) 20 (not (edebug-after (edebug-before 14) 19 (save-excursion (edebug-after ... 16 ...) (edebug-after ... 18 ...))))))) (edebug-after (edebug-before 21) 47 (pcase-let (((\` ((\, buf) (\, line-offset) (\, pos) (\, src) (\, _dst) (\, ...))) (edebug-after (edebug-before 23) 26 (diff-find-source-location (edebug-after 0 24 other-file) (edebug-after 0 25 rev))))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ (edebug-after ... 34 ...) (edebug-after ... 37 ...))))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor (edebug-after 0 43 rev) (edebug-after 0 44 switched))) t)))))) macroexp--all-forms((edebug-after (edebug-before 12) 48 (let ((rev (edebug-after (edebug-before 13) 20 (not (edebug-after (edebug-before 14) 19 (save-excursion ... ...)))))) (edebug-after (edebug-before 21) 47 (pcase-let (((\` (... ... ... ... ... ...)) (edebug-after (edebug-before 23) 26 (diff-find-source-location ... ...)))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ ... ...)))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor ... ...)) t)))))) 1) #[514 "\300 \301\"\211\204 \302 \242\303\"\202g \304 !\204+ \3051$ \306\307 ! \"0\202* \310\311 \"\262 \210\312 \242\" \242 =3D\203b \242\302 \242\303\"\211\262 \232\203J \242\202e \312 \"\240\210\211 \242=3D\203\\ \211\202e \313 !\202e \313 !\262 \207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"](((edebug-after (edebug-before 12) 48 (let ((rev (edebug-after (edebug-before 13) 20 (not (edebug-after ... 19 ...))))) (edebug-after (edebug-before 21) 47 (pcase-let (((\` ...) (edebug-after ... 26 ...))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after ... 38 ...))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after ... 45 ...) t))))))) edebug-after) macroexp--expand-all((edebug-after (edebug-before 12) 48 (let ((rev (edebug-after (edebug-before 13) 20 (not (edebug-after (edebug-before 14) 19 (save-excursion ... ...)))))) (edebug-after (edebug-before 21) 47 (pcase-let (((\` (... ... ... ... ... ...)) (edebug-after (edebug-before 23) 26 (diff-find-source-location ... ...)))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after (edebug-before 31) 38 (+ ... ...)))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after (edebug-before 42) 45 (diff-xor ... ...)) t))))))) macroexp--all-forms((lambda nil (edebug-after (edebug-before 4) 11 (if (edebug-after 0 5 event) (edebug-after (edebug-before 6) 10 (posn-set-point (edebug-after (edebug-before 7) 9 (event-end (edebug-after 0 8 event))))))) (edebug-after (edebug-before 12) 48 (let ((rev (edebug-after (edebug-before 13) 20 (not (edebug-after ... 19 ...))))) (edebug-after (edebug-before 21) 47 (pcase-let (((\` ...) (edebug-after ... 26 ...))) (edebug-after (edebug-before 27) 29 (pop-to-buffer (edebug-after 0 28 buf))) (edebug-after (edebug-before 30) 39 (goto-char (edebug-after ... 38 ...))) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg (edebug-after 0 41 line-offset) (edebug-after ... 45 ...) t))))))) 2) macroexp--expand-all((function (lambda nil (edebug-after (edebug-before 4) 11 (if (edebug-after 0 5 event) (edebug-after (edebug-before 6) 10 (posn-set-point (edebug-after (edebug-before 7) 9 (event-end ...)))))) (edebug-after (edebug-before 12) 48 (let ((rev (edebug-after (edebug-before 13) 20 (not ...)))) (edebug-after (edebug-before 21) 47 (pcase-let ((... ...)) (edebug-after (edebug-before 27) 29 (pop-to-buffer ...)) (edebug-after (edebug-before 30) 39 (goto-char ...)) (edebug-after (edebug-before 40) 46 (diff-hunk-status-msg ... ... t))))))))) macroexp--all-forms((edebug-enter (quote diff-goto-source) (list other-file event) (function (lambda nil (edebug-after (edebug-before 4) 11 (if (edebug-after 0 5 event) (edebug-after (edebug-before 6) 10 (posn-set-point (edebug-after ... 9 ...))))) (edebug-after (edebug-before 12) 48 (let ((rev (edebug-after ... 20 ...))) (edebug-after (edebug-before 21) 47 (pcase-let (...) (edebug-after ... 29 ...) (edebug-after ... 39 ...) (edebug-after ... 46 ...)))))))) 1) #[514 "\300 \301\"\211\204 \302 \242\303\"\202g \304 !\204+ \3051$ \306\307 ! \"0\202* \310\311 \"\262 \210\312 \242\" \242 =3D\203b \242\302 \242\303\"\211\262 \232\203J \242\202e \312 \"\240\210\211 \242=3D\203\\ \211\202e \313 !\202e \313 !\262 \207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"](((edebug-enter (quote diff-goto-source) (list other-file event) (function (lambda nil (edebug-after (edebug-before 4) 11 (if (edebug-after 0 5 event) (edebug-after (edebug-before 6) 10 (posn-set-point ...)))) (edebug-after (edebug-before 12) 48 (let ((rev ...)) (edebug-after (edebug-before 21) 47 (pcase-let ... ... ... ...)))))))) edebug-enter) macroexp--expand-all((edebug-enter (quote diff-goto-source) (list other-file event) (function (lambda nil (edebug-after (edebug-before 4) 11 (if (edebug-after 0 5 event) (edebug-after (edebug-before 6) 10 (posn-set-point (edebug-after ... 9 ...))))) (edebug-after (edebug-before 12) 48 (let ((rev (edebug-after ... 20 ...))) (edebug-after (edebug-before 21) 47 (pcase-let (...) (edebug-after ... 29 ...) (edebug-after ... 39 ...) (edebug-after ... 46 ...))))))))) macroexp--all-forms((lambda (&optional other-file event) "Jump to the corresponding source line.\n`diff-jump-to-old-file' (or its opposite if the OTHER-FILE prefix arg\nis given) determines whether to jump to the old or the new file.\nIf the prefix arg is bigger than 8 (for example with \\[universal-argument] \\[universal-argument])\nthen `diff-jump-to-old-file' is also set, for the next invocations." (interactive (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after (edebug-before 0) 3 (list (edebug-after 0 1 current-prefix-arg) (edebug-after 0 2 last-input-event))))))) (edebug-enter (quote diff-goto-source) (list other-file event) (function (lambda nil (edebug-after (edebug-before 4) 11 (if (edebug-after 0 5 event) (edebug-after (edebug-before 6) 10 (posn-set-point ...)))) (edebug-after (edebug-before 12) 48 (let ((rev ...)) (edebug-after (edebug-before 21) 47 (pcase-let ... ... ... ...)))))))) 2) macroexp--expand-all((function (lambda (&optional other-file event) "Jump to the corresponding source line.\n`diff-jump-to-old-file' (or its opposite if the OTHER-FILE prefix arg\nis given) determines whether to jump to the old or the new file.\nIf the prefix arg is bigger than 8 (for example with \\[universal-argument] \\[universal-argument])\nthen `diff-jump-to-old-file' is also set, for the next invocations." (interactive (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after (edebug-before 0) 3 (list ... ...)))))) (edebug-enter (quote diff-goto-source) (list other-file event) (function (lambda nil (edebug-after (edebug-before 4) 11 (if (edebug-after 0 5 event) (edebug-after ... 10 ...))) (edebug-after (edebug-before 12) 48 (let (...) (edebug-after ... 47 ...))))))))) macroexp--all-forms((defalias (quote diff-goto-source) (function (lambda (&optional other-file event) "Jump to the corresponding source line.\n`diff-jump-to-old-file' (or its opposite if the OTHER-FILE prefix arg\nis given) determines whether to jump to the old or the new file.\nIf the prefix arg is bigger than 8 (for example with \\[universal-argument] \\[universal-argument])\nthen `diff-jump-to-old-file' is also set, for the next invocations." (interactive (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after ... 3 ...))))) (edebug-enter (quote diff-goto-source) (list other-file event) (function (lambda nil (edebug-after (edebug-before 4) 11 (if ... ...)) (edebug-after (edebug-before 12) 48 (let ... ...)))))))) 1) #[514 "\300 \301\"\211\204 \302 \242\303\"\202g \304 !\204+ \3051$ \306\307 ! \"0\202* \310\311 \"\262 \210\312 \242\" \242 =3D\203b \242\302 \242\303\"\211\262 \232\203J \242\202e \312 \"\240\210\211 \242=3D\203\\ \211\202e \313 !\202e \313 !\262 \207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"](((defalias (quote diff-goto-source) (function (lambda (&optional other-file event) "Jump to the corresponding source line.\n`diff-jump-to-old-file' (or its opposite if the OTHER-FILE prefix arg\nis given) determines whether to jump to the old or the new file.\nIf the prefix arg is bigger than 8 (for example with \\[universal-argument] \\[universal-argument])\nthen `diff-jump-to-old-file' is also set, for the next invocations." (interactive (edebug-enter (quote diff-goto-source) nil (function (lambda nil ...)))) (edebug-enter (quote diff-goto-source) (list other-file event) (function (lambda nil (edebug-after ... 11 ...) (edebug-after ... 48 ...)))))))) defalias) macroexp--expand-all((defun diff-goto-source (&optional other-file event) "Jump to the corresponding source line.\n`diff-jump-to-old-file' (or its opposite if the OTHER-FILE prefix arg\nis given) determines whether to jump to the old or the new file.\nIf the prefix arg is bigger than 8 (for example with \\[universal-argument] \\[universal-argument])\nthen `diff-jump-to-old-file' is also set, for the next invocations." (interactive (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after (edebug-before 0) 3 (list (edebug-after 0 1 current-prefix-arg) (edebug-after 0 2 last-input-event))))))) (edebug-enter (quote diff-goto-source) (list other-file event) (function (lambda nil (edebug-after (edebug-before 4) 11 (if (edebug-after 0 5 event) (edebug-after (edebug-before 6) 10 (posn-set-point ...)))) (edebug-after (edebug-before 12) 48 (let ((rev ...)) (edebug-after (edebug-before 21) 47 (pcase-let ... ... ... ...))))))))) macroexpand-all((defun diff-goto-source (&optional other-file event) "Jump to the corresponding source line.\n`diff-jump-to-old-file' (or its opposite if the OTHER-FILE prefix arg\nis given) determines whether to jump to the old or the new file.\nIf the prefix arg is bigger than 8 (for example with \\[universal-argument] \\[universal-argument])\nthen `diff-jump-to-old-file' is also set, for the next invocations." (interactive (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after (edebug-before 0) 3 (list (edebug-after 0 1 current-prefix-arg) (edebug-after 0 2 last-input-event))))))) (edebug-enter (quote diff-goto-source) (list other-file event) (function (lambda nil (edebug-after (edebug-before 4) 11 (if (edebug-after 0 5 event) (edebug-after (edebug-before 6) 10 (posn-set-point ...)))) (edebug-after (edebug-before 12) 48 (let ((rev ...)) (edebug-after (edebug-before 21) 47 (pcase-let ... ... ... ...))))))))) eval-sexp-add-defvars((defun diff-goto-source (&optional other-file event) "Jump to the corresponding source line.\n`diff-jump-to-old-file' (or its opposite if the OTHER-FILE prefix arg\nis given) determines whether to jump to the old or the new file.\nIf the prefix arg is bigger than 8 (for example with \\[universal-argument] \\[universal-argument])\nthen `diff-jump-to-old-file' is also set, for the next invocations." (interactive (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after (edebug-before 0) 3 (list (edebug-after 0 1 current-prefix-arg) (edebug-after 0 2 last-input-event))))))) (edebug-enter (quote diff-goto-source) (list other-file event) (function (lambda nil (edebug-after (edebug-before 4) 11 (if (edebug-after 0 5 event) (edebug-after (edebug-before 6) 10 (posn-set-point ...)))) (edebug-after (edebug-before 12) 48 (let ((rev ...)) (edebug-after (edebug-before 21) 47 (pcase-let ... ... ... ...))))))))) edebug-defun() funcall-interactively(edebug-defun) call-interactively(edebug-defun record nil) command-execute(edebug-defun record) execute-extended-command(nil "edebug-defun" nil) funcall-interactively(execute-extended-command nil "edebug-defun" nil) call-interactively(execute-extended-command nil nil) command-execute(execute-extended-command) =3D=3D=3D=3D M-x report-emacs-bug generated info In GNU Emacs 25.0.50.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.24.23) of 2015-11-04 Repository revision: 54e2ed97bf904eda2ee5ae9b7822288e10b3abc5 Windowing system distributor 'The X.Org Foundation', version 11.0.60900000 System Description: Red Hat Enterprise Linux Workstation release 6.6 (Santi= ago) Configured using: 'configure --prefix=3D/home/kmodi/usr_local/apps/6/emacs/master 'CPPFLAGS=3D-fgnu89-inline -I/home/kmodi/usr_local/6/include -I/usr/include/freetype2 -I/usr/include' 'CFLAGS=3D-ggdb3 -O0' 'CXXFLAGS=3D-ggdb3 -O0' 'LDFLAGS=3D-L/home/kmodi/usr_local/6/lib -L/home/kmodi/usr_local/6/lib64 -ggdb3'' Configured features: XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS GCONF GSETTINGS NOTIFY ACL LIBSELINUX GNUTLS LIBXML2 FREETYPE LIBOTF XFT ZLIB TOOLKIT_SCROLL_BARS GTK2 X11 Important settings: value of $LANG: en_US.UTF-8 value of $XMODIFIERS: @im=3Dnone locale-coding-system: utf-8-unix Major mode: Debugger Minor modes in effect: diff-auto-refine-mode: t tooltip-mode: t global-eldoc-mode: t electric-indent-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t buffer-read-only: t line-number-mode: t transient-mark-mode: t Recent messages: Undo! Mark saved where search started Edebug: diff-goto-source pcase--macroexpand: Unknown edebug-enter pattern: (edebug-enter (quote diff-goto-source) nil (function (lambda nil (edebug-after 0 22 switched)))) Debug on Error enabled globally You can run the command =E2=80=98toggle-debug-on-error=E2=80=99 with M-x t-= er RET Debug on Error enabled globally Edebug: diff-goto-source Entering debugger... Making completion list... Load-path shadows: None found. Features: (shadow sort gnus-util mail-extr emacsbug message dired format-spec rfc822 mml mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util help-fns mail-prsvr mail-utils help-mode debug cus-start cus-load edebug misearch multi-isearch vc cl-loaddefs pcase cl-lib vc-dispatcher vc-git diff-mode easymenu easy-mmode time-date mule-util tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel x-win term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment elisp-mode lisp-mode prog-mode register page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese charscript case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer cl-preloaded nadvice loaddefs button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote dbusbind inotify dynamic-setting system-font-setting font-render-setting move-toolbar gtk x-toolkit x multi-tty make-network-process emacs) Memory information: ((conses 16 100165 5930) (symbols 48 21341 0) (miscs 40 72 183) (strings 32 17698 4157) (string-bytes 1 528409) (vectors 16 12978) (vector-slots 8 442318 4498) (floats 8 148 131) (intervals 56 1129 10) (buffers 976 14) (heap 1024 32588 732)) -- Kaushal Modi