bug#18924: 25.0.50; visiting files in Bazaar workarea

[Stefan Kangas]

Hi Michael,

See below a bug report related to Tramp.  AFAICT, you never replied in
this discussion, so I'm not sure if it's on your radar or not.

Best regards,
Stefan Kangas

Bernardo <bernardo.bacic@pobox.com> writes:

> hi,
>
>>
>> If you (setq debug-on-error t debug-on-quit t) and hit C-g during this,
>> do you get a backtrace?  If so, can you show it to us?
>>
>
> sure, see below for the backtrace; however, i've got some clues about
> what's going on and if i'm right it's not really Emacs' problem but my
> dodgy practice of copying the workareas around
>
> so the wider picture is like this - at work we have a project with a
> Bazaar repository sitting on a LAN PC and most of people using
> 'lightweight' Bazaar checkout (i.e. no local history of changes).
>
> to complicate things further the application builds under both GNU/Linux
> and Windows so people will have two checkouts in their respective OSes
>
> i don't have access to office LAN from home and sometimes i zip the
> whole workarea in order to (mostly) read code living in the dark corners
> of the project that i know very little about; well i was convinced i've
> zipped up the GNU/Linux workarea, but that's probably not the case; once
> unzipped on my home Debian PC the .bzr points to a badly formed path
> (i.e. starting with Windows drive letter + the ':' character which is
> mapped to a network drive/directory) to the Bazaar repository; well, it
> looks like this confuses the hell out of 'tramp' when trying to look at
> this repository;
>
> i'm fairly confident this is the cause of the problem; apologies for all
> the confusion caused
>
> i forgot all about the 'lightweight' checkout (it was fist performed
> years ago when the project started) until Eli mentioned it in the
> Emacs-Help group/list
>
> not sure if you guys want to address this "issue" but here's the
> backtrace as requested
>
> Debugger entered--Lisp error: (quit)
>   signal(quit nil)
>   tramp-maybe-open-connection([#("scp" 0 3 (tramp-default t)) nil "H" 
> "/Bzr/Apple/Application/.bzr/branch/format" nil])
>   tramp-send-command([#("scp" 0 3 (tramp-default t)) nil "H" 
> "/Bzr/Apple/Application/.bzr/branch/format" nil] "test 0 2>/dev/null; echo 
> tramp_exit_status $?")
>   tramp-send-command-and-check([#("scp" 0 3 (tramp-default t)) nil "H" 
> "/Bzr/Apple/Application/.bzr/branch/format" nil] "test 0")
>   tramp-get-test-command([#("scp" 0 3 (tramp-default t)) nil "H" 
> "/Bzr/Apple/Application/.bzr/branch/format" nil])
>   tramp-find-file-exists-command([#("scp" 0 3 (tramp-default t)) nil "H" 
> "/Bzr/Apple/Application/.bzr/branch/format" nil])
>   tramp-get-file-exists-command([#("scp" 0 3 (tramp-default t)) nil "H" 
> "/Bzr/Apple/Application/.bzr/branch/format" nil])
>   
> tramp-sh-handle-file-exists-p(#("/scp:H:/Bzr/Apple/Application/.bzr/branch/format"
>  1 4 (tramp-default t)))
>   apply(tramp-sh-handle-file-exists-p 
> #("/scp:H:/Bzr/Apple/Application/.bzr/branch/format" 1 4 (tramp-default t)))
>   tramp-sh-file-name-handler(file-exists-p 
> #("/scp:H:/Bzr/Apple/Application/.bzr/branch/format" 1 4 (tramp-default t)))
>   apply(tramp-sh-file-name-handler file-exists-p 
> #("/scp:H:/Bzr/Apple/Application/.bzr/branch/format" 1 4 (tramp-default t)))
>   tramp-file-name-handler(file-exists-p 
> #("/scp:H:/Bzr/Apple/Application/.bzr/branch/format" 1 4 (tramp-default t)))
>   file-exists-p(#("/scp:H:/Bzr/Apple/Application/.bzr/branch/format" 1 4 
> (tramp-default t)))
>   vc-bzr-working-revision("/home/one/Projects/Apple/Application/readme.txt")
>   apply(vc-bzr-working-revision 
> "/home/one/Projects/Apple/Application/readme.txt")
>   vc-call-backend(Bzr working-revision 
> "/home/one/Projects/Apple/Application/readme.txt")
>   vc-working-revision("/home/one/Projects/Apple/Application/readme.txt" Bzr)
>   vc-default-mode-line-string(Bzr 
> "/home/one/Projects/Apple/Application/readme.txt")
>   apply(vc-default-mode-line-string Bzr 
> "/home/one/Projects/Apple/Application/readme.txt")
>   vc-call-backend(Bzr mode-line-string 
> "/home/one/Projects/Apple/Application/readme.txt")
>   vc-mode-line("/home/one/Projects/Apple/Application/readme.txt" Bzr)
>   vc-find-file-hook()
>   run-hooks(find-file-hook)
>   after-find-file(nil t)
>   find-file-noselect-1(#<buffer readme.txt> 
> "~/Projects/Apple/Application/readme.txt" nil nil 
> "~/Projects/Apple/Application/readme.txt" (8653796 2065))
>   find-file-noselect("/home/one/Projects/Apple/Application/readme.txt" nil 
> nil nil)
>   find-file("/home/one/Projects/Apple/Application/readme.txt")
>   command-line-1(("--eval" "(setq debug-on-error t debug-on-quit t)" 
> "readme.txt"))
>   command-line()
>   normal-top-level()
>
>
> --
> Rgds, Bernardo