mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

* net/tramp.el (tramp-convert-file-attributes): Set file's gid

Browse Source 
change bit only when id-format is 'integer.  Reported by Matt
Hodges <M.P.Hodges@rl.ac.uk>.
This commit is contained in:
Michael Albinus 2006-02-01 22:26:45 +00:00
parent 60ee095775
commit ca637b2a27
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2006-02-01 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-convert-file-attributes): Set file's gid
change bit only when id-format is 'integer. Reported by Matt
Hodges <M.P.Hodges@rl.ac.uk>.
2006-02-01 Juanma Barranquero <lekktu@gmail.com>
* hilit-chg.el (highlight-changes-initial-state)

11
lisp/net/tramp.el
View File

@ -6766,13 +6766,14 @@ If `tramp-discard-garbage' is nil, just erase buffer."
"Convert file-attributes ATTR generated by perl script or ls.
Convert file mode bits to string and set virtual device number.
Return ATTR."
;; Convert file mode bits to string.
(unless (stringp (nth 8 attr))
;; Convert file mode bits to string.
(setcar (nthcdr 8 attr) (tramp-file-mode-from-int (nth 8 attr))))
;; Set file's gid change bit.
(setcar (nthcdr 9 attr)
(not (= (nth 3 attr)
(tramp-get-remote-gid multi-method method user host))))
;; Set file's gid change bit. Possible only when id-format is 'integer.
(when (numberp (nth 3 attr))
(setcar (nthcdr 9 attr)
(not (= (nth 3 attr)
(tramp-get-remote-gid multi-method method user host)))))
;; Set virtual device number.
(setcar (nthcdr 11 attr)
(tramp-get-device multi-method method user host))