From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Christoph Scholtes Newsgroups: gmane.emacs.bugs Subject: bug#9726: 24.0.90; vc-dir: error in process sentinel - Wrong argument type Date: Mon, 10 Oct 2011 22:18:24 -0600 Message-ID: <4E93C390.1040604@gmail.com> References: <8662jwnpis.fsf@googlemail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: dough.gmane.org 1318306741 24110 80.91.229.12 (11 Oct 2011 04:19:01 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 11 Oct 2011 04:19:01 +0000 (UTC) To: 9726@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Oct 11 06:18:56 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 1RDTns-00006N-BX for geb-bug-gnu-emacs@m.gmane.org; Tue, 11 Oct 2011 06:18:56 +0200 Original-Received: from localhost ([::1]:37627 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RDTnr-0001Jl-5Z for geb-bug-gnu-emacs@m.gmane.org; Tue, 11 Oct 2011 00:18:55 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:44095) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RDTnm-0001JS-Kb for bug-gnu-emacs@gnu.org; Tue, 11 Oct 2011 00:18:52 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RDTnj-0006Fm-Pc for bug-gnu-emacs@gnu.org; Tue, 11 Oct 2011 00:18:50 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:49525) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RDTnj-0006Fd-LX for bug-gnu-emacs@gnu.org; Tue, 11 Oct 2011 00:18:47 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1RDTnx-0000MD-T7 for bug-gnu-emacs@gnu.org; Tue, 11 Oct 2011 00:19:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Christoph Scholtes Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 11 Oct 2011 04:19:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 9726 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 9726-submit@debbugs.gnu.org id=B9726.13183067391365 (code B ref 9726); Tue, 11 Oct 2011 04:19:01 +0000 Original-Received: (at 9726) by debbugs.gnu.org; 11 Oct 2011 04:18:59 +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 1RDTnu-0000Lx-UX for submit@debbugs.gnu.org; Tue, 11 Oct 2011 00:18:59 -0400 Original-Received: from mail-gx0-f172.google.com ([209.85.161.172]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RDTnr-0000Lk-7d for 9726@debbugs.gnu.org; Tue, 11 Oct 2011 00:18:57 -0400 Original-Received: by ggnk3 with SMTP id k3so5150542ggn.3 for <9726@debbugs.gnu.org>; Mon, 10 Oct 2011 21:18:34 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=googlemail.com; s=gamma; h=message-id:date:from:user-agent:mime-version:to:subject:references :in-reply-to:content-type:content-transfer-encoding; bh=4pS6dPmJN0ZbCmW2zP+Hbqmo+K3YC6WxAm7ThmPbqds=; b=YVUU9L2J7Hj4IYEbrkUvx3ddSfYdk5CjZ8gnwsy9OsB0Ua+IZz0XqFKSoAxgKr6O+S 0jSKi9XR2z2hheJTqxzKWMLMjQ2iGmmD+mIU2VRTWqwjudJHNLk+0QYelGREyxjEmR0y 3mdGPIuged9T8FLCR9LEokc1wZiN5ox0Kdxdw= Original-Received: by 10.236.161.10 with SMTP id v10mr27494417yhk.88.1318306714738; Mon, 10 Oct 2011 21:18:34 -0700 (PDT) Original-Received: from [192.168.1.3] (71-212-157-18.hlrn.qwest.net. [71.212.157.18]) by mx.google.com with ESMTPS id m10sm58719895ang.12.2011.10.10.21.18.27 (version=SSLv3 cipher=OTHER); Mon, 10 Oct 2011 21:18:33 -0700 (PDT) User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:7.0.1) Gecko/20110929 Thunderbird/7.0.1 In-Reply-To: <8662jwnpis.fsf@googlemail.com> X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Tue, 11 Oct 2011 00:19:01 -0400 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:52499 Archived-At: On 10/10/2011 10:03 PM, I wrote: > Running Emacs 24.0.90 (r106044) with Windows 7/64bit. > The following errors occur when using vc-dir in the Emacs /bin directory > of the trunk tree: > > error in process sentinel: vc-dir-node-directory: Wrong type argument: > arrayp, nil > error in process sentinel: Wrong type argument: arrayp, nil > > Recipe (from trunk\bin directory!): > emacs -Q > M-x vc-dir > C-j > error occurs Elisp backtrace: Debugger entered--Lisp error: (wrong-type-argument arrayp nil) apply(debug error (wrong-type-argument arrayp nil)) edebug(error (wrong-type-argument arrayp nil)) signal(wrong-type-argument (arrayp nil)) edebug-signal(wrong-type-argument (arrayp nil)) ewoc-data(nil) vc-dir-node-directory(nil) vc-dir-update((("." nil) ("COPYING" unregistered)) #) (edebug-after (edebug-before 2) 5 (vc-dir-update (edebug-after 0 3 entries) (edebug-after 0 4 (symbol-value G47125)))) (save-current-buffer (set-buffer (edebug-after 0 1 (symbol-value G47125))) (edebug-after (edebug-before 2) 5 (vc-dir-update (edebug-after 0 3 entries) (edebug-after 0 4 (symbol-value G47125)))) (edebug-after (edebug-before 6) 23 (if (edebug-after 0 7 more-to-come) nil (edebug-after (edebug-before 8) 22 (let ((remaining (edebug-after ... 11 ...))) (edebug-after (edebug-before 12) 21 (if (edebug-after 0 13 remaining) (edebug-after ... 18 ...) (edebug-after ... 20 ...)))))))) (edebug-after (edebug-before 0) 24 (save-current-buffer (set-buffer (edebug-after 0 1 (symbol-value G47125))) (edebug-after (edebug-before 2) 5 (vc-dir-update (edebug-after 0 3 entries) (edebug-after 0 4 (symbol-value G47125)))) (edebug-after (edebug-before 6) 23 (if (edebug-after 0 7 more-to-come) nil (edebug-after (edebug-before 8) 22 (let ((remaining ...)) (edebug-after (edebug-before 12) 21 (if ... ... ...)))))))) (lambda (G47125) (edebug-after (edebug-before 0) 24 (save-current-buffer (set-buffer (edebug-after 0 1 (symbol-value G47125))) (edebug-after (edebug-before 2) 5 (vc-dir-update (edebug-after 0 3 entries) (edebug-after 0 4 (symbol-value G47125)))) (edebug-after (edebug-before 6) 23 (if (edebug-after 0 7 more-to-come) nil (edebug-after (edebug-before 8) 22 (let (...) (edebug-after ... 21 ...))))))))(--buffer--) apply((lambda (G47125) (edebug-after (edebug-before 0) 24 (save-current-buffer (set-buffer (edebug-after 0 1 (symbol-value G47125))) (edebug-after (edebug-before 2) 5 (vc-dir-update (edebug-after 0 3 entries) (edebug-after 0 4 (symbol-value G47125)))) (edebug-after (edebug-before 6) 23 (if (edebug-after 0 7 more-to-come) nil (edebug-after (edebug-before 8) 22 (let (...) (edebug-after ... 21 ...)))))))) --buffer-- nil) (lambda (&rest --cl-rest--) (apply (quote (lambda (G47125) (edebug-after (edebug-before 0) 24 (save-current-buffer (set-buffer (edebug-after 0 1 ...)) (edebug-after (edebug-before 2) 5 (vc-dir-update ... ...)) (edebug-after (edebug-before 6) 23 (if ... nil ...)))))) (quote --buffer--) --cl-rest--))() edebug-enter(edebug-anon2 ((("." nil) ("COPYING" unregistered)) nil) (lambda (&rest --cl-rest--) (apply (quote (lambda (G47125) (edebug-after (edebug-before 0) 24 (save-current-buffer (set-buffer (edebug-after 0 1 ...)) (edebug-after (edebug-before 2) 5 (vc-dir-update ... ...)) (edebug-after (edebug-before 6) 23 (if ... nil ...)))))) (quote --buffer--) --cl-rest--))) edebug-enter(edebug-anon2 ((("." nil) ("COPYING" unregistered)) nil) (lambda (&rest --cl-rest--) (apply (quote (lambda (G47125) (edebug-after (edebug-before 0) 24 (save-current-buffer (set-buffer (edebug-after 0 1 ...)) (edebug-after (edebug-before 2) 5 (vc-dir-update ... ...)) (edebug-after (edebug-before 6) 23 (if ... nil ...)))))) (quote --buffer--) --cl-rest--))) (lambda (G47126 entries &optional more-to-come) (edebug-enter (quote edebug-anon2) (list entries more-to-come) (list (quote lambda) (quote (&rest --cl-rest--)) (list (quote apply) (list (quote quote) (function (lambda (G47125) (edebug-after ... 24 ...)))) (list (quote quote) G47126) (quote --cl-rest--)))))(--buffer-- (("." nil) ("COPYING" unregistered))) apply((lambda (G47126 entries &optional more-to-come) (edebug-enter (quote edebug-anon2) (list entries more-to-come) (list (quote lambda) (quote (&rest --cl-rest--)) (list (quote apply) (list (quote quote) (function (lambda (G47125) (edebug-after ... 24 ...)))) (list (quote quote) G47126) (quote --cl-rest--))))) --buffer-- (("." nil) ("COPYING" unregistered))) (lambda (&rest --cl-rest--) (apply (quote (lambda (G47126 entries &optional more-to-come) (edebug-enter (quote edebug-anon2) (list entries more-to-come) (list (quote lambda) (quote (&rest --cl-rest--)) (list (quote apply) (list ... ...) (list ... G47126) (quote --cl-rest--)))))) (quote --buffer--) --cl-rest--))((("." nil) ("COPYING" unregistered))) vc-bzr-after-dir-status((lambda (&rest --cl-rest--) (apply (quote (lambda (G47126 entries &optional more-to-come) (edebug-enter (quote edebug-anon2) (list entries more-to-come) (list (quote lambda) (quote (&rest --cl-rest--)) (list (quote apply) (list ... ...) (list ... G47126) (quote --cl-rest--)))))) (quote --buffer--) --cl-rest--)) "bin/") eval((vc-bzr-after-dir-status (quote (lambda (&rest --cl-rest--) (apply (quote (lambda (G47126 entries &optional more-to-come) (edebug-enter (quote edebug-anon2) (list entries more-to-come) (list ... ... ...)))) (quote --buffer--) --cl-rest--))) (file-relative-name "d:/devel/emacs/emacs-bzr/trunk_jenkins/bin/" (vc-bzr-root "d:/devel/emacs/emacs-bzr/trunk_jenkins/bin/")))) vc-exec-after((vc-bzr-after-dir-status (quote (lambda (&rest --cl-rest--) (apply (quote (lambda (G47126 entries &optional more-to-come) (edebug-enter (quote edebug-anon2) (list entries more-to-come) (list ... ... ...)))) (quote --buffer--) --cl-rest--))) (file-relative-name "d:/devel/emacs/emacs-bzr/trunk_jenkins/bin/" (vc-bzr-root "d:/devel/emacs/emacs-bzr/trunk_jenkins/bin/")))) vc-process-sentinel(# "finished\n") recursive-edit() edebug-recursive-edit() edebug-display() edebug-debugger(45 after nil) edebug-after(42 45 nil) (save-current-buffer (set-buffer (edebug-after 0 36 vc-dir-process-buffer)) (edebug-after (edebug-before 37) 39 (setq default-directory (edebug-after 0 38 def-dir))) (edebug-after (edebug-before 40) 41 (erase-buffer)) (edebug-after (edebug-before 42) 45 (vc-call-backend (edebug-after 0 43 backend) (quote dir-status) (edebug-after 0 44 def-dir) (list (quote lambda) (quote (&rest --cl-rest--)) (list (quote apply) (list (quote quote) (function (lambda ... ...))) (list (quote quote) --cl-buffer--) (quote --cl-rest--)))))) (edebug-after (edebug-before 35) 46 (save-current-buffer (set-buffer (edebug-after 0 36 vc-dir-process-buffer)) (edebug-after (edebug-before 37) 39 (setq default-directory (edebug-after 0 38 def-dir))) (edebug-after (edebug-before 40) 41 (erase-buffer)) (edebug-after (edebug-before 42) 45 (vc-call-backend (edebug-after 0 43 backend) (quote dir-status) (edebug-after 0 44 def-dir) (list (quote lambda) (quote (&rest --cl-rest--)) (list (quote apply) (list (quote quote) (function ...)) (list (quote quote) --cl-buffer--) (quote --cl-rest--))))))) (let ((--cl-buffer-- (make-symbol "--buffer--"))) (setf (symbol-value --cl-buffer--) (edebug-after (edebug-before 33) 34 (current-buffer))) (edebug-after (edebug-before 35) 46 (save-current-buffer (set-buffer (edebug-after 0 36 vc-dir-process-buffer)) (edebug-after (edebug-before 37) 39 (setq default-directory (edebug-after 0 38 def-dir))) (edebug-after (edebug-before 40) 41 (erase-buffer)) (edebug-after (edebug-before 42) 45 (vc-call-backend (edebug-after 0 43 backend) (quote dir-status) (edebug-after 0 44 def-dir) (list (quote lambda) (quote (&rest --cl-rest--)) (list (quote apply) (list ... ...) (list ... --cl-buffer--) (quote --cl-rest--)))))))) (lexical-let ((buffer (edebug-after (edebug-before 33) 34 (current-buffer)))) (edebug-after (edebug-before 35) 46 (with-current-buffer (edebug-after 0 36 vc-dir-process-buffer) (edebug-after (edebug-before 37) 39 (setq default-directory (edebug-after 0 38 def-dir))) (edebug-after (edebug-before 40) 41 (erase-buffer)) (edebug-after (edebug-before 42) 45 (vc-call-backend (edebug-after 0 43 backend) (quote dir-status) (edebug-after 0 44 def-dir) (lambda (entries &optional more-to-come) (edebug-enter (quote edebug-anon2) (list entries more-to-come) (function ...)))))))) (edebug-after (edebug-before 32) 47 (lexical-let ((buffer (edebug-after (edebug-before 33) 34 (current-buffer)))) (edebug-after (edebug-before 35) 46 (with-current-buffer (edebug-after 0 36 vc-dir-process-buffer) (edebug-after (edebug-before 37) 39 (setq default-directory (edebug-after 0 38 def-dir))) (edebug-after (edebug-before 40) 41 (erase-buffer)) (edebug-after (edebug-before 42) 45 (vc-call-backend (edebug-after 0 43 backend) (quote dir-status) (edebug-after 0 44 def-dir) (lambda (entries &optional more-to-come) (edebug-enter ... ... ...)))))))) (let ((def-dir (edebug-after 0 6 default-directory)) (backend (edebug-after 0 7 vc-dir-backend))) (edebug-after (edebug-before 8) 9 (vc-set-mode-line-busy-indicator)) (edebug-after (edebug-before 10) 21 (unless (edebug-after (edebug-before 11) 13 (buffer-live-p (edebug-after 0 12 vc-dir-process-buffer))) (edebug-after (edebug-before 14) 20 (setq vc-dir-process-buffer (edebug-after (edebug-before 15) 19 (generate-new-buffer (edebug-after ... 18 ...))))))) (edebug-after (edebug-before 22) 24 (ewoc-map (lambda (info) (edebug-enter (quote edebug-anon1) (list info) (function (lambda nil (edebug-after ... 9 ...))))) (edebug-after 0 23 vc-ewoc))) (edebug-after (edebug-before 25) 31 (ewoc-set-hf (edebug-after 0 26 vc-ewoc) (edebug-after (edebug-before 27) 30 (vc-dir-headers (edebug-after 0 28 backend) (edebug-after 0 29 def-dir))) "")) (edebug-after (edebug-before 32) 47 (lexical-let ((buffer (edebug-after (edebug-before 33) 34 (current-buffer)))) (edebug-after (edebug-before 35) 46 (with-current-buffer (edebug-after 0 36 vc-dir-process-buffer) (edebug-after (edebug-before 37) 39 (setq default-directory (edebug-after 0 38 def-dir))) (edebug-after (edebug-before 40) 41 (erase-buffer)) (edebug-after (edebug-before 42) 45 (vc-call-backend (edebug-after 0 43 backend) (quote dir-status) (edebug-after 0 44 def-dir) (lambda ... ...)))))))) (edebug-after (edebug-before 5) 48 (let ((def-dir (edebug-after 0 6 default-directory)) (backend (edebug-after 0 7 vc-dir-backend))) (edebug-after (edebug-before 8) 9 (vc-set-mode-line-busy-indicator)) (edebug-after (edebug-before 10) 21 (unless (edebug-after (edebug-before 11) 13 (buffer-live-p (edebug-after 0 12 vc-dir-process-buffer))) (edebug-after (edebug-before 14) 20 (setq vc-dir-process-buffer (edebug-after (edebug-before 15) 19 (generate-new-buffer ...)))))) (edebug-after (edebug-before 22) 24 (ewoc-map (lambda (info) (edebug-enter (quote edebug-anon1) (list info) (function (lambda nil ...)))) (edebug-after 0 23 vc-ewoc))) (edebug-after (edebug-before 25) 31 (ewoc-set-hf (edebug-after 0 26 vc-ewoc) (edebug-after (edebug-before 27) 30 (vc-dir-headers (edebug-after 0 28 backend) (edebug-after 0 29 def-dir))) "")) (edebug-after (edebug-before 32) 47 (lexical-let ((buffer (edebug-after (edebug-before 33) 34 (current-buffer)))) (edebug-after (edebug-before 35) 46 (with-current-buffer (edebug-after 0 36 vc-dir-process-buffer) (edebug-after (edebug-before 37) 39 (setq default-directory ...)) (edebug-after (edebug-before 40) 41 (erase-buffer)) (edebug-after (edebug-before 42) 45 (vc-call-backend ... ... ... ...)))))))) (if (edebug-after (edebug-before 1) 2 (vc-dir-busy)) (edebug-after (edebug-before 3) 4 (error "Another update process is in progress, cannot run two at a time")) (edebug-after (edebug-before 5) 48 (let ((def-dir (edebug-after 0 6 default-directory)) (backend (edebug-after 0 7 vc-dir-backend))) (edebug-after (edebug-before 8) 9 (vc-set-mode-line-busy-indicator)) (edebug-after (edebug-before 10) 21 (unless (edebug-after (edebug-before 11) 13 (buffer-live-p (edebug-after 0 12 vc-dir-process-buffer))) (edebug-after (edebug-before 14) 20 (setq vc-dir-process-buffer (edebug-after ... 19 ...))))) (edebug-after (edebug-before 22) 24 (ewoc-map (lambda (info) (edebug-enter (quote edebug-anon1) (list info) (function ...))) (edebug-after 0 23 vc-ewoc))) (edebug-after (edebug-before 25) 31 (ewoc-set-hf (edebug-after 0 26 vc-ewoc) (edebug-after (edebug-before 27) 30 (vc-dir-headers (edebug-after 0 28 backend) (edebug-after 0 29 def-dir))) "")) (edebug-after (edebug-before 32) 47 (lexical-let ((buffer (edebug-after ... 34 ...))) (edebug-after (edebug-before 35) 46 (with-current-buffer (edebug-after 0 36 vc-dir-process-buffer) (edebug-after ... 39 ...) (edebug-after ... 41 ...) (edebug-after ... 45 ...)))))))) (edebug-after (edebug-before 0) 49 (if (edebug-after (edebug-before 1) 2 (vc-dir-busy)) (edebug-after (edebug-before 3) 4 (error "Another update process is in progress, cannot run two at a time")) (edebug-after (edebug-before 5) 48 (let ((def-dir (edebug-after 0 6 default-directory)) (backend (edebug-after 0 7 vc-dir-backend))) (edebug-after (edebug-before 8) 9 (vc-set-mode-line-busy-indicator)) (edebug-after (edebug-before 10) 21 (unless (edebug-after (edebug-before 11) 13 (buffer-live-p ...)) (edebug-after (edebug-before 14) 20 (setq vc-dir-process-buffer ...)))) (edebug-after (edebug-before 22) 24 (ewoc-map (lambda (info) (edebug-enter ... ... ...)) (edebug-after 0 23 vc-ewoc))) (edebug-after (edebug-before 25) 31 (ewoc-set-hf (edebug-after 0 26 vc-ewoc) (edebug-after (edebug-before 27) 30 (vc-dir-headers ... ...)) "")) (edebug-after (edebug-before 32) 47 (lexical-let ((buffer ...)) (edebug-after (edebug-before 35) 46 (with-current-buffer ... ... ... ...)))))))) (lambda nil (edebug-after (edebug-before 0) 49 (if (edebug-after (edebug-before 1) 2 (vc-dir-busy)) (edebug-after (edebug-before 3) 4 (error "Another update process is in progress, cannot run two at a time")) (edebug-after (edebug-before 5) 48 (let ((def-dir (edebug-after 0 6 default-directory)) (backend (edebug-after 0 7 vc-dir-backend))) (edebug-after (edebug-before 8) 9 (vc-set-mode-line-busy-indicator)) (edebug-after (edebug-before 10) 21 (unless (edebug-after ... 13 ...) (edebug-after ... 20 ...))) (edebug-after (edebug-before 22) 24 (ewoc-map (lambda ... ...) (edebug-after 0 23 vc-ewoc))) (edebug-after (edebug-before 25) 31 (ewoc-set-hf (edebug-after 0 26 vc-ewoc) (edebug-after ... 30 ...) "")) (edebug-after (edebug-before 32) 47 (lexical-let (...) (edebug-after ... 46 ...))))))))() edebug-enter(vc-dir-refresh nil (lambda nil (edebug-after (edebug-before 0) 49 (if (edebug-after (edebug-before 1) 2 (vc-dir-busy)) (edebug-after (edebug-before 3) 4 (error "Another update process is in progress, cannot run two at a time")) (edebug-after (edebug-before 5) 48 (let ((def-dir (edebug-after 0 6 default-directory)) (backend (edebug-after 0 7 vc-dir-backend))) (edebug-after (edebug-before 8) 9 (vc-set-mode-line-busy-indicator)) (edebug-after (edebug-before 10) 21 (unless (edebug-after ... 13 ...) (edebug-after ... 20 ...))) (edebug-after (edebug-before 22) 24 (ewoc-map (lambda ... ...) (edebug-after 0 23 vc-ewoc))) (edebug-after (edebug-before 25) 31 (ewoc-set-hf (edebug-after 0 26 vc-ewoc) (edebug-after ... 30 ...) "")) (edebug-after (edebug-before 32) 47 (lexical-let (...) (edebug-after ... 46 ...))))))))) vc-dir-refresh() vc-dir-mode() (edebug-after (edebug-before 41) 42 (vc-dir-mode)) (let ((use-vc-backend (edebug-after 0 40 backend))) (edebug-after (edebug-before 41) 42 (vc-dir-mode))) (edebug-after (edebug-before 39) 43 (let ((use-vc-backend (edebug-after 0 40 backend))) (edebug-after (edebug-before 41) 42 (vc-dir-mode)))) (if (edebug-after (edebug-before 35) 36 (derived-mode-p (quote vc-dir-mode))) (edebug-after (edebug-before 37) 38 (vc-dir-refresh)) (edebug-after (edebug-before 39) 43 (let ((use-vc-backend (edebug-after 0 40 backend))) (edebug-after (edebug-before 41) 42 (vc-dir-mode))))) (edebug-after (edebug-before 34) 44 (if (edebug-after (edebug-before 35) 36 (derived-mode-p (quote vc-dir-mode))) (edebug-after (edebug-before 37) 38 (vc-dir-refresh)) (edebug-after (edebug-before 39) 43 (let ((use-vc-backend (edebug-after 0 40 backend))) (edebug-after (edebug-before 41) 42 (vc-dir-mode)))))) (lambda nil (edebug-after (edebug-before 18) 25 (unless (edebug-after 0 19 backend) (edebug-after (edebug-before 20) 24 (setq backend (edebug-after (edebug-before 21) 23 (vc-responsible-backend (edebug-after 0 22 dir))))))) (edebug-after (edebug-before 26) 33 (let (pop-up-windows) (edebug-after (edebug-before 27) 32 (pop-to-buffer (edebug-after (edebug-before 28) 31 (vc-dir-prepare-status-buffer "*vc-dir*" (edebug-after 0 29 dir) (edebug-after 0 30 backend))))))) (edebug-after (edebug-before 34) 44 (if (edebug-after (edebug-before 35) 36 (derived-mode-p (quote vc-dir-mode))) (edebug-after (edebug-before 37) 38 (vc-dir-refresh)) (edebug-after (edebug-before 39) 43 (let ((use-vc-backend (edebug-after 0 40 backend))) (edebug-after (edebug-before 41) 42 (vc-dir-mode)))))))() edebug-enter(vc-dir ("d:/devel/emacs/emacs-bzr/trunk_jenkins/bin" nil) (lambda nil (edebug-after (edebug-before 18) 25 (unless (edebug-after 0 19 backend) (edebug-after (edebug-before 20) 24 (setq backend (edebug-after (edebug-before 21) 23 (vc-responsible-backend (edebug-after 0 22 dir))))))) (edebug-after (edebug-before 26) 33 (let (pop-up-windows) (edebug-after (edebug-before 27) 32 (pop-to-buffer (edebug-after (edebug-before 28) 31 (vc-dir-prepare-status-buffer "*vc-dir*" (edebug-after 0 29 dir) (edebug-after 0 30 backend))))))) (edebug-after (edebug-before 34) 44 (if (edebug-after (edebug-before 35) 36 (derived-mode-p (quote vc-dir-mode))) (edebug-after (edebug-before 37) 38 (vc-dir-refresh)) (edebug-after (edebug-before 39) 43 (let ((use-vc-backend (edebug-after 0 40 backend))) (edebug-after (edebug-before 41) 42 (vc-dir-mode)))))))) edebug-enter(vc-dir ("d:/devel/emacs/emacs-bzr/trunk_jenkins/bin" nil) (lambda nil (edebug-after (edebug-before 18) 25 (unless (edebug-after 0 19 backend) (edebug-after (edebug-before 20) 24 (setq backend (edebug-after (edebug-before 21) 23 (vc-responsible-backend (edebug-after 0 22 dir))))))) (edebug-after (edebug-before 26) 33 (let (pop-up-windows) (edebug-after (edebug-before 27) 32 (pop-to-buffer (edebug-after (edebug-before 28) 31 (vc-dir-prepare-status-buffer "*vc-dir*" (edebug-after 0 29 dir) (edebug-after 0 30 backend))))))) (edebug-after (edebug-before 34) 44 (if (edebug-after (edebug-before 35) 36 (derived-mode-p (quote vc-dir-mode))) (edebug-after (edebug-before 37) 38 (vc-dir-refresh)) (edebug-after (edebug-before 39) 43 (let ((use-vc-backend (edebug-after 0 40 backend))) (edebug-after (edebug-before 41) 42 (vc-dir-mode)))))))) vc-dir("d:/devel/emacs/emacs-bzr/trunk_jenkins/bin" nil) call-interactively(vc-dir t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil)