Re: tramp 2.1.13-pre messed up symbolic link?

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

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

"Yang Zhang" <fz15@cse.msstate.edu> writes:

> Hello Michael,

Hi,

> Thank you for your attention and help. The pre-installed tramp
> 2.1.13-pre with my emacs 23.0.60.1 is also having the symbolic
> problem. Here I attached the tramp debug buffer output. The other
> buffer "tramp /scp host*" is empty.

Thanks for the traces, they have been helpful. Please try the appended
patch (towards 2.1.14-pre), it shall fix the problem.

> Thank you very much,
>
> --Yang

Best regards, Michael.


[-- Attachment #2: Type: text/plain, Size: 1025 bytes --]

*** /tmp/tramp.el	Mon Jun 23 12:20:57 2008
--- /tmp/tramp.el20502jTz	Mon Jun 23 12:20:57 2008
***************
*** 6613,6621 ****
    (unless (stringp (nth 8 attr))
      (setcar (nthcdr 8 attr) (tramp-file-mode-from-int (nth 8 attr))))
    ;; Convert directory indication bit.
!   (if (string-match "^d" (nth 8 attr))
!       (setcar attr t)
!     (if (and (listp (car attr)) (stringp (caar attr))
  	     (string-match ".+ -> .\\(.+\\)." (caar attr)))
  	(setcar attr (match-string 1 (caar attr)))
        (setcar attr nil)))
--- 6613,6623 ----
    (unless (stringp (nth 8 attr))
      (setcar (nthcdr 8 attr) (tramp-file-mode-from-int (nth 8 attr))))
    ;; Convert directory indication bit.
!   (when (string-match "^d" (nth 8 attr))
!     (setcar attr t))
!   ;; Convert symlink from `tramp-handle-file-attributes-with-stat'.
!   (when (consp (car attr))
!     (if (and (stringp (caar attr))
  	     (string-match ".+ -> .\\(.+\\)." (caar attr)))
  	(setcar attr (match-string 1 (caar attr)))
        (setcar attr nil)))