23.0.50; vc-svn-parse-status can't parse output

23.0.50; vc-svn-parse-status can't parse output

[Bill Wohler]

[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 status -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 from `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-status))
  (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/virtual")
  #[(b) "Â\bÃ	#…\x14\0Ä	Å\b#…\x14\0ÆÇÈ\"‡" [b file vc-call-backend registered vc-file-setprop vc-backend throw found t] 4](SVN)
  mapc(#[(b) "Â\bÃ	#…\x14\0Ä	Å\b#…\x14\0ÆÇÈ\"‡" [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("Ã\bÄ\"\x19ÅÆ	ƒ\x11\0	Ç=ƒ\x15\0\n‚\x18\0	\nB\"ˆ)È\bÄÇ#ˆÉ‡" [file backend vc-handled-backends vc-file-getprop vc-backend mapc #[(b) "Â\bÃ	#…\x14\0Ä	Å\b#…\x14\0ÆÇÈ\"‡" [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/postfix/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/postfix/virtual")
  vc-registered("/sudo:root@olgas.newt.com:/etc/postfix/virtual")
  vc-backend("/sudo:root@olgas.newt.com:/etc/postfix/virtual")
  #[nil "Á\b!‡" [buffer-file-name vc-backend] 2]()
  vc-find-file-hook()
  run-hooks(find-file-hook)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer virtual> "/sudo:root@olgas.newt.com:/etc/postfix/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 nil 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("Æ\x10	@Ç=ƒ!\0ÈÉÊ\"ˆËÉ!‰\x1aA@)¢Ì=ƒ!\0ÈÍÊ\"ˆÎ\v!ˆÏ ˆÐ	!ˆ\fƒc\0Ñed\"\rVƒW\0ebˆÒ\r¥yˆ`\x1e^[dbˆÒ\r¥\rZyˆ\x0e^[`|ˆ)ÓcˆebˆÔÕÖ \"ˆ× ˆÔØ!ˆÙÊ\x1e\x1c\x1e\x1dÔØ!ˆŠÚ ˆ+Ù‡" [unread-command-char debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit 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-file-mark (elt svn-marks 0) svn-property-mark (elt svn-marks 1) svn-wc-locked-mark (elt svn-marks 2) svn-with-history-mark (elt svn-marks 3) svn-switched-mark (elt svn-marks 4) svn-repo-locked-mark (elt svn-marks 5))
  (cond ((= ... ...) nil) ((looking-at "Status against revision:[ ]+\\([0-9]+\\)") (unless svn-status-head-revision ...)) ((looking-at "Performing status 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 ... ...) (forward-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-width svn-status-default-author-width) (svn-marks-length ...) (dir-set ...) (externals-map ...) (skip-double-external-dir-entry-name nil)) (set-buffer svn-process-buffer-name) (setq svn-status-info nil) (run-hooks (quote svn-pre-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-width author-width ...)) (setq svn-status-line-format (format " %%c%%c%%c %%%ds %%%ds %%-%ds" revision-width revision-width author-width)) (setq svn-status-info (nreverse svn-status-info)) (when svn-status-sort-status-buffer (setq svn-status-info ...)))
  (save-excursion (let (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (set-buffer svn-process-buffer-name) (setq svn-status-info nil) (run-hooks ...) (goto-char ...) (while ... ... ...) (unless svn-status-verbose ...) (setq svn-status-default-column ...) (setq svn-status-line-format ...) (setq svn-status-info ...) (when svn-status-sort-status-buffer ...)))
  svn-parse-status-result()
  (cond ((eq svn-process-cmd ...) (svn-process-sentinel-fixup-path-seperators) (svn-parse-status-result) (svn-status-apply-elide-list) (when svn-status-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-buffer 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-output ... t) (message "svn ls finished")) ((eq svn-process-cmd ...) (svn-status-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-cmd ...) (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 svn-status-recursive-commit nil) (message "svn: Committed revision %s." svn-status-commit-rev-number)) ((eq svn-process-cmd ...) (svn-status-show-process-output ... t) (setq svn-status-update-list ...) (svn-revert-some-buffers) (svn-status-update) (if ... ... ...)) ((eq svn-process-cmd ...) (svn-status-update-with-command-list ...) (message "svn add finished")) ((eq svn-process-cmd ...) (svn-status-update) (message "svn lock finished")) ((eq svn-process-cmd ...) (svn-status-update) (message "svn unlock finished")) ((eq svn-process-cmd ...) (svn-status-update) (message "svn mkdir finished")) ((eq svn-process-cmd ...) (when ... ...) (svn-status-update) (message "svn revert finished")) ((eq svn-process-cmd ...) (svn-status-update) (message "svn resolved finished")) ((eq svn-process-cmd ...) (svn-status-update-with-command-list ...) (message "svn rm finished")) ((eq svn-process-cmd ...) (message "svn cleanup finished")) ((eq svn-process-cmd ...) (svn-status-show-process-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-remove-temp-file-maybe) (if ... ... ...)) ((eq svn-process-cmd ...) (svn-status-update)))
  (cond ((string= event "finished\n") (run-hooks ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ((string= event "killed\n") (message "svn process killed")) ((string-match "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-buffer svn-status-pre-run-svn-buffer ...) (setq svn-pre-run-mode-line-process nil)) (set-buffer (process-buffer process)) (setq svn-status-mode-line-process-status "") (svn-status-update-mode-line) (cond (... ... ...) (... ...) (... ... ... ...) (t ...) (svn-status-show-process-output nil t)))
  svn-process-sentinel(#<process svn> "finished\n")

Re: 23.0.50; vc-svn-parse-status can't parse output

[Glenn Morris]

Bill Wohler wrote:

> [Now that emacs-pretest-bug is defunct, shouldn't the report-emacs-bug
> recipient address be updated?]

The reasoning was to leave it alone to make it easier to change back,
if so desired. It makes no practical difference.

> I'm testing a version of psvn.el with Tramp updates.

I don't know what this means, but this message

>   signal(error ("Couldn't parse output from `svn status -v'"))

does not come from GNU Emacs. Again, I think you have another
vc-svn.el somewhere shadowing the Emacs one.