bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#13636: 24.3.50; tramp+ftp broken


From: Michael Albinus
Subject: bug#13636: 24.3.50; tramp+ftp broken
Date: Wed, 06 Feb 2013 21:15:12 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux)

Thierry Volpiatto <address@hidden> writes:

> Hi Michael,

Hi Thierry,

>> What happens, if you move your ~/.netrc away (temporarily)?
> It is working when I remove .netrc
> (file-remote-p "/ftp:mafreebox.freebox.fr:")
> => "/ftp:mafreebox.freebox.fr:"
>
> Here the entry in .netrc:
>
> machine mafreebox.freebox.fr login freebox password xxxxx

Finally, it looks like this error has been introduced with revno
#111057. Tramp/ange-ftp is just a victim, the same error might happen in
other constellations as well.

The following patch cures it for me:

--8<---------------cut here---------------start------------->8---
*** /usr/local/src/emacs/lisp/vc/vc-hooks.el.~111682~   2013-02-06 
21:11:32.205313196 +0100
--- /usr/local/src/emacs/lisp/vc/vc-hooks.el    2013-02-06 20:54:51.324349951 
+0100
***************
*** 858,865 ****
          (set (make-local-variable 'backup-inhibited) t))
        ;; Let the backend setup any buffer-local things he needs.
        (vc-call-backend backend 'find-file-hook))
!        ((let* ((truename (expand-file-name buffer-file-truename))
!              (link-type (and (not (equal buffer-file-name truename))
                               (vc-backend truename))))
          (cond ((not link-type) nil)   ;Nothing to do.
                ((eq vc-follow-symlinks nil)
--- 858,867 ----
          (set (make-local-variable 'backup-inhibited) t))
        ;; Let the backend setup any buffer-local things he needs.
        (vc-call-backend backend 'find-file-hook))
!        ((let* ((truename (and buffer-file-truename
!                             (expand-file-name buffer-file-truename)))
!              (link-type (and truename
!                              (not (equal buffer-file-name truename))
                               (vc-backend truename))))
          (cond ((not link-type) nil)   ;Nothing to do.
                ((eq vc-follow-symlinks nil)
--8<---------------cut here---------------end--------------->8---

Could you, please, check?

Best regards, Michael.





reply via email to

[Prev in Thread] Current Thread [Next in Thread]