Re: 23.0.50; tramp/ido problem

[Michael Albinus <michael.albinus@gmx.de>]

[-- Attachment #1: Type: text/plain, Size: 677 bytes --]

<joakim@verona.se> writes:

> emacs -q
> m-x ido-mode
>
> now type:
>
> c-x f /ssh:
>
> now I get:
>
> File error: Permission denied
>
> Withouth ido-mode, I can type a full tramp url and open it.

The appended patch in ido.el shall fix it. Kim, do you object, or shall
I install it in the trunk?

> Another problem is that tramp doesnt work at all whan I start my normal emacs session
> withouth -q. So far I have no clue if its related. An earlier emacs build of mine
> does work well with the same setup and tramp.

You might start with an empty .emacs file, and add feature by feature
from you original .emacs. Then we will see what's the culprit.

Best regards, Michael.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-diff, Size: 2042 bytes --]

*** /home/albinus/src/emacs/lisp/ido.el.~1.137.~	2007-11-19 19:42:15.000000000 +0100
--- /home/albinus/src/emacs/lisp/ido.el	2007-11-22 22:34:14.000000000 +0100
***************
*** 3373,3396 ****
     ;; Caller must have done that if necessary.
  
     ((and ido-enable-tramp-completion
! 	 (or (fboundp 'tramp-completion-mode)
  	     (require 'tramp nil t))
  	 (string-match "\\`/[^/]+[:@]\\'" dir))
      ;; Strip method:user@host: part of tramp completions.
      ;; Tramp completions do not include leading slash.
!     (let ((len (1- (length dir)))
! 	  (compl
! 	   (or (file-name-all-completions "" dir)
! 	       ;; work around bug in ange-ftp.
! 	       ;; /ftp:user@host: => nil
! 	       ;; /ftp:user@host:./ => ok
! 	       (and
! 		(not (string= "/ftp:" dir))
! 		(tramp-tramp-file-p dir)
! 		(fboundp 'tramp-ftp-file-name-p)
! 		(funcall 'tramp-ftp-file-name-p dir)
! 		(string-match ":\\'" dir)
! 		(file-name-all-completions "" (concat dir "./"))))))
        (if (and compl
  	       (> (length (car compl)) len)
  	       (string= (substring (car compl) 0 len) (substring dir 1)))
--- 3373,3397 ----
     ;; Caller must have done that if necessary.
  
     ((and ido-enable-tramp-completion
! 	 (or (fboundp 'tramp-completion-mode-p)
  	     (require 'tramp nil t))
  	 (string-match "\\`/[^/]+[:@]\\'" dir))
      ;; Strip method:user@host: part of tramp completions.
      ;; Tramp completions do not include leading slash.
!     (let* ((len (1- (length dir)))
! 	   (tramp-completion-mode t)
! 	   (compl
! 	    (or (file-name-all-completions "" dir)
! 		;; work around bug in ange-ftp.
! 		;; /ftp:user@host: => nil
! 		;; /ftp:user@host:./ => ok
! 		(and
! 		 (not (string= "/ftp:" dir))
! 		 (tramp-tramp-file-p dir)
! 		 (fboundp 'tramp-ftp-file-name-p)
! 		 (funcall 'tramp-ftp-file-name-p dir)
! 		 (string-match ":\\'" dir)
! 		 (file-name-all-completions "" (concat dir "./"))))))
        (if (and compl
  	       (> (length (car compl)) len)
  	       (string= (substring (car compl) 0 len) (substring dir 1)))

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel