RE: Tramp is keeping ange-ftp from finding .netrc

[Richard.G.Bielawski]

Michael,

Yes it did work. 

Thanks.


-----Original Message-----
From: Michael Albinus [mailto:address@hidden 
Sent: Tuesday, July 19, 2005 3:54 PM
To: address@hidden
Cc: address@hidden
Subject: Re: Tramp is keeping ange-ftp from finding .netrc


<address@hidden> writes:

> I need to use a .netrc file for several reasons.
> But I keep running into a problem where ange-ftp fails to read the 
> .netrc.

Could you, please, try the following patch:

magdalene:~/src/emacs/lisp/net> diff -c tramp.el.orig tramp.el
*** tramp.el.orig       2005-07-19 22:50:45.000000000 +0200
--- tramp.el    2005-07-19 22:51:23.000000000 +0200
***************
*** 4824,4835 ****
  (defun tramp-completion-handle-expand-file-name (name &optional dir)
    "Like `expand-file-name' for tramp files."
    (let ((fullname (concat (or dir default-directory) name)))
!     (tramp-drop-volume-letter
!      (if (tramp-completion-mode fullname)
!        (tramp-run-real-handler
!         'expand-file-name (list name dir))
!        (tramp-completion-run-real-handler
!       'expand-file-name (list name dir))))))
  
  ;;; Internal Functions:
  
--- 4824,4834 ----
  (defun tramp-completion-handle-expand-file-name (name &optional dir)
    "Like `expand-file-name' for tramp files."
    (let ((fullname (concat (or dir default-directory) name)))
!     (if (tramp-completion-mode fullname)
!       (tramp-run-real-handler
!        'expand-file-name (list name dir))
!       (tramp-completion-run-real-handler
!        'expand-file-name (list name dir)))))
  
  ;;; Internal Functions:
  
> Richard Bielawski

Best regards, Michael.