Re: tramp 2.1.13-pre messed up symbolic link?

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

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

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

> Hi Michael,

Hi Yang,

> There is one small issue (that I've noticed for a long time). After
> saving, the target file's permission is always set to be "-rwxrwxrwx"
> regardless of the original one. For example, the target file is
> "test.cc (-rw-------)" the symbolic link is "test_link.cc (always
> lrwxrwxrwx)"  After opening "test_link.cc" through tramp and saving
> something, "test.cc" now has a permission of "-rwxrwxrwx".  It there a
> way to retain the target file's original permission after saving
> through the symbolic link file?

Please try the appended patch. It should fix it.

> Thanks
> --Yang

Best regards, Michael.


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

*** /tmp/tramp.el	Wed Jun 25 13:32:11 2008
--- /tmp/tramp.el.~1~	Wed Jun 25 13:32:11 2008
***************
*** 2675,2684 ****
  
  (defun tramp-handle-file-modes (filename)
    "Like `file-modes' for Tramp files."
!   (let ((truename (or (file-truename filename) filename)))
!     (when (and (stringp truename) (file-exists-p truename))
!       (tramp-mode-string-to-int
!        (nth 8 (file-attributes truename))))))
  
  (defun tramp-handle-file-directory-p (filename)
    "Like `file-directory-p' for Tramp files."
--- 2675,2683 ----
  
  (defun tramp-handle-file-modes (filename)
    "Like `file-modes' for Tramp files."
!   (when (file-exists-p filename)
!     (tramp-mode-string-to-int
!      (nth 8 (file-attributes filename)))))
  
  (defun tramp-handle-file-directory-p (filename)
    "Like `file-directory-p' for Tramp files."