* 23.0.50; vc-svn-parse-status can't parse output
@ 2007-09-20 5:10 Bill Wohler
2007-09-20 7:14 ` Glenn Morris
0 siblings, 1 reply; 2+ messages in thread
From: Bill Wohler @ 2007-09-20 5:10 UTC (permalink / raw)
To: emacs-pretest-bug; +Cc: Stefan Reichör
[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!Ï Ð !\fc\0Ñed\"\rVW\0ebÒ\r¥y`\x1e^[dbÒ\r¥\rZy\x0e^[`|)ÓcebÔÕÖ \"× ÔØ!ÙÊ\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")
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: 23.0.50; vc-svn-parse-status can't parse output
2007-09-20 5:10 23.0.50; vc-svn-parse-status can't parse output Bill Wohler
@ 2007-09-20 7:14 ` Glenn Morris
0 siblings, 0 replies; 2+ messages in thread
From: Glenn Morris @ 2007-09-20 7:14 UTC (permalink / raw)
To: Bill Wohler; +Cc: emacs-pretest-bug, Stefan Reichör
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.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2007-09-20 7:14 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2007-09-20 5:10 23.0.50; vc-svn-parse-status can't parse output Bill Wohler
2007-09-20 7:14 ` Glenn Morris
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).