From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Bill Wohler Newsgroups: gmane.emacs.devel,gmane.emacs.pretest.bugs Subject: 23.0.50; vc-svn-parse-status can't parse output Date: Wed, 19 Sep 2007 22:10:01 -0700 Message-ID: <32721.1190265001@olgas.newt.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1190265025 23825 80.91.229.12 (20 Sep 2007 05:10:25 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 20 Sep 2007 05:10:25 +0000 (UTC) Cc: Stefan Reichör To: emacs-pretest-bug@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Sep 20 07:10:23 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1IYEIv-0006zv-38 for ged-emacs-devel@m.gmane.org; Thu, 20 Sep 2007 07:10:21 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IYEIs-0000DK-Ua for ged-emacs-devel@m.gmane.org; Thu, 20 Sep 2007 01:10:19 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IYEIn-0000Cc-5M for emacs-devel@gnu.org; Thu, 20 Sep 2007 01:10:13 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IYEIm-0000CQ-Do for emacs-devel@gnu.org; Thu, 20 Sep 2007 01:10:12 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IYEIm-0000CN-A5 for emacs-devel@gnu.org; Thu, 20 Sep 2007 01:10:12 -0400 Original-Received: from fencepost.gnu.org ([140.186.70.10]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1IYEIl-0006VT-U1 for emacs-devel@gnu.org; Thu, 20 Sep 2007 01:10:12 -0400 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by fencepost.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1IYEID-0002Ai-2q for emacs-pretest-bug@gnu.org; Thu, 20 Sep 2007 01:09:37 -0400 Original-Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1IYEIi-0006V1-Bx for emacs-pretest-bug@gnu.org; Thu, 20 Sep 2007 01:10:11 -0400 Original-Received: from pop-tawny.atl.sa.earthlink.net ([207.69.195.67]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1IYEIi-0006Ul-1p for emacs-pretest-bug@gnu.org; Thu, 20 Sep 2007 01:10:08 -0400 Original-Received: from h-68-166-189-43.snvacaid.dynamic.covad.net ([68.166.189.43] helo=olgas.localdomain) by pop-tawny.atl.sa.earthlink.net with esmtp (Exim 3.36 #1) id 1IYEIc-0006jA-00; Thu, 20 Sep 2007 01:10:02 -0400 Original-Received: by olgas.localdomain (Postfix, from userid 1000) id DB82616FEC; Wed, 19 Sep 2007 22:10:01 -0700 (PDT) Original-Received: from olgas.newt.com (localhost [127.0.0.1]) by olgas.localdomain (Postfix) with ESMTP id D8A9416FAB; Wed, 19 Sep 2007 22:10:01 -0700 (PDT) X-Detected-Kernel: Solaris 8 (1) X-Detected-Kernel: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:79350 gmane.emacs.pretest.bugs:19940 Archived-At: [Now that emacs-pretest-bug is defunct, shouldn't the report-emacs-bug recipient address be updated?] I'm testing a version of psvn.el with Tramp updates. When I use `f' to find a file in the svn-status buffer, I get the appended error and trace: Debugger entered--Lisp error: (error "Couldn't parse output from `svn statu= s -v'") signal(error ("Couldn't parse output from `svn status -v'")) error("Couldn't parse output from `svn status -v'") (cond ((not state) nil) ((looking-at "....\\s-+\\(\\*\\s-+\\)?[-0]\\s-+\\= (\\?\\|[0-9]+\\)") (list state "0" nil)) ((looking-at "....\\s-+\\(\\*\\s-+= \\)?\\([0-9]+\\)\\s-+\\([0-9]+\\)") (list state ... ...)) ((looking-at "^I = +") nil) ((looking-at " \\{40\\}") nil) (t (error "Couldn't parse output fr= om `svn status -v'"))) (let ((state ...)) (cond (... nil) (... ...) (... ...) (... nil) (... nil= ) (t ...))) vc-svn-parse-status() (if (not (equal 0 status)) (if (or ... ... ...) nil (vc-svn-pop-up-error = "Error running Subversion to check status of `%s'" ...)) (vc-svn-parse-stat= us)) (let ((status ...)) (goto-char (point-min)) (if (not ...) (if ... nil ...= ) (vc-svn-parse-status))) (save-excursion (set-buffer (get-buffer-create " *Subversion Output*")) (= erase-buffer) (let (...) (goto-char ...) (if ... ... ...))) (vc-svn-with-output-buffer (let (...) (goto-char ...) (if ... ... ...))) vc-svn-run-status("/sudo:root@olgas.newt.com:/etc/postfix/virtual") (null (vc-svn-run-status file)) (not (null (vc-svn-run-status file))) (and (file-exists-p (expand-file-name ".svn/entries" ...)) (not (null ...= ))) vc-svn-registered("/sudo:root@olgas.newt.com:/etc/postfix/virtual") apply(vc-svn-registered "/sudo:root@olgas.newt.com:/etc/postfix/virtual") vc-call-backend(SVN registered "/sudo:root@olgas.newt.com:/etc/postfix/vi= rtual") #[(b) "=C3=82=C3=83 #=C2=85=14=00=C3=84 =C3=85#=C2=85=14=00=C3=86=C3=87= =C3=88\"=C2=87" [b file vc-call-backend registered vc-file-setprop vc-backe= nd throw found t] 4](SVN) mapc(#[(b) "=C3=82=C3=83 #=C2=85=14=00=C3=84 =C3=85#=C2=85=14=00=C3=86= =C3=87=C3=88\"=C2=87" [b file vc-call-backend registered vc-file-setprop vc= -backend throw found t] 4] (RCS CVS SVN SCCS Bzr Git Hg Arch MCVS)) byte-code("=C3=83=C3=84\"=19=C3=85=C3=86 =C2=83=11=00 =C3=87=3D=C2=83=15= =00\n=C2=82=18=00 \nB\"=C2=88)=C3=88=C3=84=C3=87#=C2=88=C3=89=C2=87" [file= backend vc-handled-backends vc-file-getprop vc-backend mapc #[(b) "=C3=82= =C3=83 #=C2=85=14=00=C3=84 =C3=85#=C2=85=14=00=C3=86=C3=87=C3=88\"=C2=87" = [b file vc-call-backend registered vc-file-setprop vc-backend throw found t= ] 4] none vc-file-setprop nil] 4) vc-registered("/sudo:root@olgas.newt.com:/etc/postfix/virtual") apply(vc-registered "/sudo:root@olgas.newt.com:/etc/postfix/virtual") tramp-run-real-handler(vc-registered ("/sudo:root@olgas.newt.com:/etc/pos= tfix/virtual")) tramp-sh-file-name-handler(vc-registered "/sudo:root@olgas.newt.com:/etc/= postfix/virtual") apply(tramp-sh-file-name-handler vc-registered "/sudo:root@olgas.newt.com= :/etc/postfix/virtual") tramp-file-name-handler(vc-registered "/sudo:root@olgas.newt.com:/etc/pos= tfix/virtual") vc-registered("/sudo:root@olgas.newt.com:/etc/postfix/virtual") vc-backend("/sudo:root@olgas.newt.com:/etc/postfix/virtual") #[nil "=C3=81!=C2=87" [buffer-file-name vc-backend] 2]() vc-find-file-hook() run-hooks(find-file-hook) after-find-file(nil t) find-file-noselect-1(# "/sudo:root@olgas.newt.com:/etc/po= stfix/virtual" nil nil "/sudo:root@olgas.newt.com:/etc/postfix/virtual" ((0= 41118) (-1 0))) find-file-noselect("/sudo:root@olgas.newt.com:/etc/postfix/virtual" nil n= il nil) find-file("/sudo:root@olgas.newt.com:/etc/postfix/virtual") mapc(find-file ("/sudo:root@olgas.newt.com:/etc/postfix/virtual")) (let ((fnames ...)) (mapc (quote find-file) fnames)) svn-status-find-files() call-interactively(svn-status-find-files) recursive-edit() byte-code("=C3=86=10 @=C3=87=3D=C2=83!=00=C3=88=C3=89=C3=8A\"=C2=88=C3=8B= =C3=89!=C2=89=1AA@)=C2=A2=C3=8C=3D=C2=83!=00=C3=88=C3=8D=C3=8A\"=C2=88=C3= =8E=0B!=C2=88=C3=8F =C2=88=C3=90 !=C2=88\f=C2=83c=00=C3=91ed\"=0DV=C2=83W= =00eb=C2=88=C3=92=0D=C2=A5y=C2=88`=1E=1Bdb=C2=88=C3=92=0D=C2=A5=0DZy=C2=88= =0E=1B`|=C2=88)=C3=93c=C2=88eb=C2=88=C3=94=C3=95=C3=96 \"=C2=88=C3=97 =C2= =88=C3=94=C3=98!=C2=88=C3=99=C3=8A=1E=1C=1E=1D=C3=94=C3=98!=C2=88=C2=8A=C3= =9A =C2=88+=C3=99=C2=87" [unread-command-char debugger-args x debugger-buff= er noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t bac= ktrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer cou= nt-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-e= dit middlestart buffer-read-only standard-output] 4) debug(error (args-out-of-range 75 81)) buffer-substring(75 81) (setq svn-marks (buffer-substring (point) (+ ... svn-marks-length)) svn-f= ile-mark (elt svn-marks 0) svn-property-mark (elt svn-marks 1) svn-wc-locke= d-mark (elt svn-marks 2) svn-with-history-mark (elt svn-marks 3) svn-switch= ed-mark (elt svn-marks 4) svn-repo-locked-mark (elt svn-marks 5)) (cond ((=3D ... ...) nil) ((looking-at "Status against revision:[ ]+\\([0= -9]+\\)") (unless svn-status-head-revision ...)) ((looking-at "Performing s= tatus on external item at '\\(.*\\)'") (setq skip-double-external-dir-entry= -name ...) nil) (t (setq svn-marks ... svn-file-mark ... svn-property-mark = ... svn-wc-locked-mark ... svn-with-history-mark ... svn-switched-mark ... = svn-repo-locked-mark ...) (when svn-status-remote ...) (when ... ...) (when= ... ...) (when ... ...) (when ... ...) (when ... ...) (when ... ...) (forw= ard-char svn-marks-length) (skip-chars-forward " ") (cond ... ... ... ...) = (unless path ...) (setq dir ...) (if ... ...) (if ... ... ...) (when ... ..= . ...) (setq revision-width ...) (setq author-width ...))) (while (< (point) (point-max)) (cond (... nil) (... ...) (... ... nil) (t= ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) = (forward-line 1)) (let ((old-ui-information ...) (svn-marks) (svn-file-mark) (svn-property-= mark) (svn-wc-locked-mark) (svn-repo-locked-mark) (svn-with-history-mark) (= svn-switched-mark) (svn-update-mark) (local-rev) (last-change-rev) (author)= (path) (dir) (revision-width svn-status-default-revision-width) (author-wi= dth svn-status-default-author-width) (svn-marks-length ...) (dir-set ...) (= externals-map ...) (skip-double-external-dir-entry-name nil)) (set-buffer s= vn-process-buffer-name) (setq svn-status-info nil) (run-hooks (quote svn-pr= e-parse-status-hook)) (goto-char (point-min)) (while (< ... ...) (cond ... = ... ... ...) (forward-line 1)) (unless svn-status-verbose (setq svn-status-= info ...)) (setq svn-status-default-column (+ 6 revision-width revision-wid= th author-width ...)) (setq svn-status-line-format (format " %%c%%c%%c %%%d= s %%%ds %%-%ds" revision-width revision-width author-width)) (setq svn-stat= us-info (nreverse svn-status-info)) (when svn-status-sort-status-buffer (se= tq svn-status-info ...))) (save-excursion (let (... ... ... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ...) (set-buffer svn-process-buffer-name) (setq sv= n-status-info nil) (run-hooks ...) (goto-char ...) (while ... ... ...) (unl= ess svn-status-verbose ...) (setq svn-status-default-column ...) (setq svn-= status-line-format ...) (setq svn-status-info ...) (when svn-status-sort-st= atus-buffer ...))) svn-parse-status-result() (cond ((eq svn-process-cmd ...) (svn-process-sentinel-fixup-path-seperato= rs) (svn-parse-status-result) (svn-status-apply-elide-list) (when svn-statu= s-update-previous-process-output ... ... ... ... ... ...) (when svn-status-= update-list ... ...) (when svn-status-display-new-status-buffer ... ...)) (= (eq svn-process-cmd ...) (svn-status-show-process-output ... t) (pop-to-buf= fer svn-status-last-output-buffer-name) (svn-log-view-mode) (forward-line 2= ) (unless ... ...) (font-lock-fontify-buffer) (message "svn log finished"))= ((eq svn-process-cmd ...) (svn-status-show-process-output ... t) (message = "svn info finished")) ((eq svn-process-cmd ...) (svn-status-show-process-ou= tput ... t) (message "svn ls finished")) ((eq svn-process-cmd ...) (svn-sta= tus-activate-diff-mode) (message "svn diff finished")) ((eq svn-process-cmd= ...) (svn-status-parse-info-result)) ((eq svn-process-cmd ...) (svn-status= -show-process-output ... t) (when svn-status-pre-run-svn-buffer ...) (with-= current-buffer ... ...) (message "svn blame finished")) ((eq svn-process-cm= d ...) (svn-process-sentinel-fixup-path-seperators) (svn-status-remove-temp= -file-maybe) (when ... ...) (svn-status-update-with-command-list ...) (svn-= revert-some-buffers) (run-hooks ...) (setq svn-status-files-to-commit nil s= vn-status-recursive-commit nil) (message "svn: Committed revision %s." svn-= status-commit-rev-number)) ((eq svn-process-cmd ...) (svn-status-show-proce= ss-output ... t) (setq svn-status-update-list ...) (svn-revert-some-buffers= ) (svn-status-update) (if ... ... ...)) ((eq svn-process-cmd ...) (svn-stat= us-update-with-command-list ...) (message "svn add finished")) ((eq svn-pro= cess-cmd ...) (svn-status-update) (message "svn lock finished")) ((eq svn-p= rocess-cmd ...) (svn-status-update) (message "svn unlock finished")) ((eq s= vn-process-cmd ...) (svn-status-update) (message "svn mkdir finished")) ((e= q svn-process-cmd ...) (when ... ...) (svn-status-update) (message "svn rev= ert finished")) ((eq svn-process-cmd ...) (svn-status-update) (message "svn= resolved finished")) ((eq svn-process-cmd ...) (svn-status-update-with-com= mand-list ...) (message "svn rm finished")) ((eq svn-process-cmd ...) (mess= age "svn cleanup finished")) ((eq svn-process-cmd ...) (svn-status-show-pro= cess-output ... t) (message "svn proplist finished")) ((eq svn-process-cmd = ...) (svn-status default-directory)) ((eq svn-process-cmd ...) (svn-status-= property-parse-property-names)) ((eq svn-process-cmd ...) (svn-status-remov= e-temp-file-maybe) (if ... ... ...)) ((eq svn-process-cmd ...) (svn-status-= update))) (cond ((string=3D event "finished\n") (run-hooks ...) (cond ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)= ) ((string=3D event "killed\n") (message "svn process killed")) ((string-ma= tch "exited abnormally" event) (while ...) (goto-char ...) (if ... ... ...)= ) (t (message "svn process had unknown event: %s" event)) (svn-status-show-= process-output nil t)) (let ((act-buf ...)) (when svn-pre-run-mode-line-process (with-current-bu= ffer svn-status-pre-run-svn-buffer ...) (setq svn-pre-run-mode-line-process= nil)) (set-buffer (process-buffer process)) (setq svn-status-mode-line-pro= cess-status "") (svn-status-update-mode-line) (cond (... ... ...) (... ...)= (... ... ... ...) (t ...) (svn-status-show-process-output nil t))) svn-process-sentinel(# "finished\n")