tramp (2.0.45); Bad interaction between tramp and vc

[bernat]

Enter your bug report in this message, including as much detail as you
possibly can about the problem, what you did to cause it and what the
local and remote machines are.

If you can give a simple set of instructions to make this bug happen
reliably, please include those.  Thank you for helping kill bugs in
TRAMP.

Another useful thing to do is to put (setq tramp-debug-buffer t) in
the ~/.emacs file and to repeat the bug.  Then, include the contents
of the *tramp/foo* buffer and the *debug tramp/foo* buffer in your bug
report.

--bug report follows this line--


Hello,

When saving a remote file, having permissions on it but not on the
directory containing the file, I get this error :

Debugger entered--Lisp error: (file-error . "Copying directly failed, see 
buffer `mailcrans.sh' for details.")
  signal(file-error "Copying directly failed, see buffer `mailcrans.sh' for 
details.")
  tramp-barf-unless-okay(nil "scp" "bernat" "xxx.xxxx.xxx" "cp -f -p 
/usr/scripts/mailcrans.sh /usr/scripts/mailcrans.sh.\\~1.3.\\~" nil file-error 
"Copying directly failed, see buffer `%s' for details." "mailcrans.sh")
  tramp-do-copy-or-rename-file-directly(copy nil "scp" "bernat" "xxx.xxxx.xxx" 
"/usr/scripts/mailcrans.sh" "/usr/scripts/mailcrans.sh.~1.3.~" keep-date)
  tramp-do-copy-or-rename-file(copy 
"/scp:address@hidden:/usr/scripts/mailcrans.sh" 
"/scp:address@hidden:/usr/scripts/mailcrans.sh.~1.3.~" nil keep-date)
  tramp-handle-copy-file("/scp:address@hidden:/usr/scripts/mailcrans.sh" 
"/scp:address@hidden:/usr/scripts/mailcrans.sh.~1.3.~" nil keep-date)
  apply(tramp-handle-copy-file ("/scp:address@hidden:/usr/scripts/mailcrans.sh" 
"/scp:address@hidden:/usr/scripts/mailcrans.sh.~1.3.~" nil keep-date))
  tramp-sh-file-name-handler(copy-file 
"/scp:address@hidden:/usr/scripts/mailcrans.sh" 
"/scp:address@hidden:/usr/scripts/mailcrans.sh.~1.3.~" nil keep-date)
  apply(tramp-sh-file-name-handler copy-file 
("/scp:address@hidden:/usr/scripts/mailcrans.sh" 
"/scp:address@hidden:/usr/scripts/mailcrans.sh.~1.3.~" nil keep-date))
  tramp-file-name-handler(copy-file 
"/scp:address@hidden:/usr/scripts/mailcrans.sh" 
"/scp:address@hidden:/usr/scripts/mailcrans.sh.~1.3.~" nil keep-date)
  copy-file("/scp:address@hidden:/usr/scripts/mailcrans.sh" 
"/scp:address@hidden:/usr/scripts/mailcrans.sh.~1.3.~" nil keep-date)
  vc-make-version-backup("/scp:address@hidden:/usr/scripts/mailcrans.sh")
  vc-before-save()
  basic-save-buffer()
  save-buffer(1)
  call-interactively(save-buffer)


I am not sure of the work-around. Maybe it is possible to disable vc
when the directory is not writable ?

Emacs  : GNU Emacs 21.3.50.1 (i386-pc-linux-gnu, GTK+ Version 2.4.14, multi-tty)
 of 2005-01-30 on neo, modified by Debian
Package: tramp (2.0.45)

current state:
==============
(setq
 tramp-ls-command "/bin/ls"
 tramp-test-groks-nt nil
 tramp-file-exists-command "test -e %s"
 tramp-current-multi-method nil
 tramp-current-method "scp"
 tramp-current-user "bernat"
 tramp-current-host "xxx.xxxx.xxx"
 tramp-auto-save-directory nil
 tramp-default-method "scp"
 tramp-rsh-end-of-line "\n"
 tramp-default-password-end-of-line "\n"
 tramp-remote-path '("/bin" "/usr/bin" "/usr/sbin" "/usr/local/bin" 
"/usr/ccs/bin" "/local/bin" "/local/freeware/bin"
                     "/local/gnu/bin" "/usr/freeware/bin" "/usr/pkg/bin" 
"/usr/contrib/bin")
 tramp-login-prompt-regexp ".*ogin: *"
 tramp-password-prompt-regexp "^.*\\([pP]assword\\|passphrase.*\\):? *"
 tramp-wrong-passwd-regexp "^.*\\(Connection 
\\(?:\\(?:clo\\|refu\\)sed\\)\\|Host key verification failed\\.\\|Login 
\\(?:[Ii]ncorrect\\)\\|Name or service not known\\|\\(?:Permission 
denied\\|Sorry, try again\\)\\.\\).*\\|^.*\\(Received signal [0-9]+\\).*"
 tramp-yesno-prompt-regexp "\\(Are you sure you want to continue connecting 
(yes/no)\\?\\)\\s-*"
 tramp-yn-prompt-regexp "\\(Store key in cache\\? (y/n)\\)\\s-*"
 tramp-terminal-prompt-regexp "\\(TERM = (.*)\\|Terminal type\\? 
\\[.*\\]\\)\\s-*"
 tramp-temp-name-prefix "tramp."
 tramp-file-name-structure '("^/\\(\\([a-zA-Z_0-9-]+\\):\\)?\\(\\([^:@/         
]*\\)@\\)?\\([a-zA-Z0-9_.#-]*\\):\\(.*$\\)" 2 4 5 6)
 tramp-file-name-regexp "\\`/[^/:]+:"
 tramp-multi-file-name-structure 
'("^/\\(\\([a-zA-Z_0-9-]+\\)\\)?\\(\\(:%s\\)+\\)?:\\(.*$\\)" 2 3 -1)
 tramp-multi-file-name-hop-structure '("\\([a-zA-Z_0-9-]+\\):\\([^:@/   
]*\\)@\\([a-zA-Z0-9_.#-]*\\)" 1 2 3)
 tramp-multi-methods '("multi" "multiu")
 tramp-multi-connection-function-alist '(("telnet" tramp-multi-connect-telnet 
"telnet %h%n")
                                         ("rsh" tramp-multi-connect-rlogin "rsh 
%h -l %u%n")
                                         ("remsh" tramp-multi-connect-rlogin 
"remsh %h -l %u%n")
                                         ("ssh" tramp-multi-connect-rlogin "ssh 
%h -l %u%n")
                                         ("ssht" tramp-multi-connect-rlogin 
"ssh %h -e none -t -t -l %u%n")
                                         ("su" tramp-multi-connect-su "su - 
%u%n")
                                         ("sudo" tramp-multi-connect-su "sudo 
-u %u -s -p Password:%n"))
 tramp-methods '(("smb") ("ftp")
                 ("rcp" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "rsh")
                  (tramp-copy-program "rcp") (tramp-remote-sh "/bin/sh") 
(tramp-login-args nil) (tramp-copy-args nil)
                  (tramp-copy-keep-date-arg "-p") (tramp-password-end-of-line 
nil))
                 ("scp" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "ssh")
                  (tramp-copy-program "scp") (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p") 
(tramp-password-end-of-line nil))
                 ("scp1" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "ssh")
                  (tramp-copy-program "scp") (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-1" "-e" "none"))
                  (tramp-copy-args ("-1")) (tramp-copy-keep-date-arg "-p") 
(tramp-password-end-of-line nil))
                 ("scp2" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "ssh")
                  (tramp-copy-program "scp") (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-2" "-e" "none"))
                  (tramp-copy-args ("-2")) (tramp-copy-keep-date-arg "-p") 
(tramp-password-end-of-line nil))
                 ("scp1_old" (tramp-connection-function 
tramp-open-connection-rsh) (tramp-login-program "ssh1")
                  (tramp-copy-program "scp1") (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p") 
(tramp-password-end-of-line nil))
                 ("scp2_old" (tramp-connection-function 
tramp-open-connection-rsh) (tramp-login-program "ssh2")
                  (tramp-copy-program "scp2") (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p") 
(tramp-password-end-of-line nil))
                 ("rsync" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "ssh")
                  (tramp-copy-program "rsync") (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-e" "none"))
                  (tramp-copy-args ("-e" "ssh")) (tramp-copy-keep-date-arg 
"-t") (tramp-password-end-of-line nil))
                 ("remcp" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "remsh")
                  (tramp-copy-program "rcp") (tramp-remote-sh "/bin/sh") 
(tramp-login-args nil) (tramp-copy-args nil)
                  (tramp-copy-keep-date-arg "-p") (tramp-password-end-of-line 
nil))
                 ("rsh" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "rsh")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args nil) (tramp-copy-args nil)
                  (tramp-copy-keep-date-arg nil) (tramp-password-end-of-line 
nil))
                 ("ssh" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "ssh")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil) 
(tramp-password-end-of-line nil))
                 ("ssh1" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "ssh")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-1" "-e" "none"))
                  (tramp-copy-args ("-1")) (tramp-copy-keep-date-arg nil) 
(tramp-password-end-of-line nil))
                 ("ssh2" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "ssh")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-2" "-e" "none"))
                  (tramp-copy-args ("-2")) (tramp-copy-keep-date-arg nil) 
(tramp-password-end-of-line nil))
                 ("ssh1_old" (tramp-connection-function 
tramp-open-connection-rsh) (tramp-login-program "ssh1")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil) 
(tramp-password-end-of-line nil))
                 ("ssh2_old" (tramp-connection-function 
tramp-open-connection-rsh) (tramp-login-program "ssh2")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil) 
(tramp-password-end-of-line nil))
                 ("remsh" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "remsh")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args nil) (tramp-copy-args nil)
                  (tramp-copy-keep-date-arg nil) (tramp-password-end-of-line 
nil))
                 ("telnet" (tramp-connection-function 
tramp-open-connection-telnet) (tramp-login-program "telnet")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args nil) (tramp-copy-args nil)
                  (tramp-copy-keep-date-arg nil) (tramp-password-end-of-line 
nil))
                 ("su" (tramp-connection-function tramp-open-connection-su) 
(tramp-login-program "su")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-" "%u"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil) 
(tramp-password-end-of-line nil))
                 ("sudo" (tramp-connection-function tramp-open-connection-su) 
(tramp-login-program "sudo")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-u" "%u" "-s" "-p" "Password:")) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date-arg nil) (tramp-password-end-of-line 
nil))
                 ("multi" (tramp-connection-function 
tramp-open-connection-multi) (tramp-login-program nil)
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args nil) (tramp-copy-args nil)
                  (tramp-copy-keep-date-arg nil) (tramp-password-end-of-line 
nil))
                 ("scpx" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "ssh")
                  (tramp-copy-program "scp") (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-e" "none" "-t" "-t" "/bin/sh")) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date-arg "-p") (tramp-password-end-of-line 
nil))
                 ("sshx" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "ssh")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-e" "none" "-t" "-t" "/bin/sh")) 
(tramp-copy-args nil)
                  (tramp-copy-keep-date-arg nil) (tramp-password-end-of-line 
nil))
                 ("krlogin" (tramp-connection-function 
tramp-open-connection-rsh) (tramp-login-program "krlogin")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-x")) (tramp-copy-args nil)
                  (tramp-copy-keep-date-arg nil) (tramp-password-end-of-line 
nil))
                 ("plink" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "plink")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-ssh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil) 
(tramp-password-end-of-line "xy"))
                 ("plink1" (tramp-connection-function 
tramp-open-connection-rsh) (tramp-login-program "plink")
                  (tramp-copy-program nil) (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-1" "-ssh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil) 
(tramp-password-end-of-line "xy"))
                 ("pscp" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "plink")
                  (tramp-copy-program "pscp") (tramp-remote-sh "/bin/sh") 
(tramp-login-args ("-ssh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p") 
(tramp-password-end-of-line "xy"))
                 ("fcp" (tramp-connection-function tramp-open-connection-rsh) 
(tramp-login-program "fsh")
                  (tramp-copy-program "fcp") (tramp-remote-sh "/bin/sh -i") 
(tramp-login-args ("sh" "-i"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p") 
(tramp-password-end-of-line nil))
                 )
 tramp-end-of-output "///5088516d589a2cfb0fe5eec1917a35f2"
 tramp-coding-commands '(("mimencode -b" "mimencode -u -b" base64-encode-region 
base64-decode-region)
                         ("mmencode -b" "mmencode -u -b" base64-encode-region 
base64-decode-region)
                         ("recode data..base64" "recode base64..data" 
base64-encode-region base64-decode-region)
                         ("uuencode xxx" "uudecode -o /dev/stdout" 
tramp-uuencode-region uudecode-decode-region)
                         ("uuencode xxx" "uudecode -o -" tramp-uuencode-region 
uudecode-decode-region)
                         ("uuencode xxx" "uudecode -p" tramp-uuencode-region 
uudecode-decode-region)
                         ("uuencode xxx" "tramp_uudecode" tramp-uuencode-region 
uudecode-decode-region)
                         ("tramp_encode_with_module" "tramp_decode_with_module" 
base64-encode-region
                          base64-decode-region)
                         ("tramp_encode" "tramp_decode" base64-encode-region 
base64-decode-region))
 tramp-actions-before-shell '((tramp-password-prompt-regexp 
tramp-action-password)
                              (tramp-login-prompt-regexp tramp-action-login)
                              (shell-prompt-pattern tramp-action-succeed)
                              (tramp-shell-prompt-pattern tramp-action-succeed)
                              (tramp-wrong-passwd-regexp 
tramp-action-permission-denied)
                              (tramp-yesno-prompt-regexp tramp-action-yesno) 
(tramp-yn-prompt-regexp tramp-action-yn)
                              (tramp-terminal-prompt-regexp 
tramp-action-terminal)
                              (tramp-process-alive-regexp 
tramp-action-process-alive))
 tramp-actions-copy-out-of-band '((tramp-password-prompt-regexp 
tramp-action-password)
                                  (tramp-wrong-passwd-regexp 
tramp-action-permission-denied)
                                  (tramp-process-alive-regexp 
tramp-action-out-of-band))
 tramp-multi-actions '((tramp-password-prompt-regexp 
tramp-multi-action-password)
                       (tramp-login-prompt-regexp tramp-multi-action-login)
                       (shell-prompt-pattern tramp-multi-action-succeed)
                       (tramp-shell-prompt-pattern tramp-multi-action-succeed)
                       (tramp-wrong-passwd-regexp 
tramp-multi-action-permission-denied)
                       (tramp-process-alive-regexp 
tramp-multi-action-process-alive))
 tramp-terminal-type "dumb"
 tramp-shell-prompt-pattern "^[^#$%>\n]*[#$%>] *\\(\\[[0-9;]*[a-zA-Z] *\\)*"
 tramp-chunksize nil
 tramp-backup-directory-alist nil
 nil nil
 shell-prompt-pattern "^[^#$%>\n]*[#$%>] *"
 backup-by-copying nil
 backup-by-copying-when-linked nil
 backup-by-copying-when-mismatch nil
 backup-by-copying-when-privileged-mismatch 200
 password-cache t
 password-cache-expiry 200
 backup-directory-alist nil
 nil nil
 file-name-handler-alist '(("^/$\\|^/[^/:][^/]*$" . 
tramp-completion-file-name-handler)
                           ("\\`/[^/:]+:" . tramp-file-name-handler) ("\\`/:" . 
file-name-non-special))
 )