Mercurial > emacs
changeset 68527:e66f443e6371
* 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>.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Wed, 01 Feb 2006 22:26:45 +0000 |
| parents | 728253cae438 |
| children | bd5e46db392c |
| files | lisp/ChangeLog lisp/net/tramp.el |
| diffstat | 2 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Feb 01 17:01:03 2006 +0000 +++ b/lisp/ChangeLog Wed Feb 01 22:26:45 2006 +0000 @@ -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)
--- a/lisp/net/tramp.el Wed Feb 01 17:01:03 2006 +0000 +++ b/lisp/net/tramp.el Wed Feb 01 22:26:45 2006 +0000 @@ -6766,13 +6766,14 @@ "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))