From ca637b2a27415373b47110008f93f4ebdf8c7358 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 1 Feb 2006 22:26:45 +0000 Subject: [PATCH] * net/tramp.el (tramp-convert-file-attributes): Set file's gid change bit only when id-format is 'integer. Reported by Matt Hodges . --- lisp/ChangeLog | 6 ++++++ lisp/net/tramp.el | 11 ++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0d51f0f1d67..32817654f43 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2006-02-01 Michael Albinus + + * net/tramp.el (tramp-convert-file-attributes): Set file's gid + change bit only when id-format is 'integer. Reported by Matt + Hodges . + 2006-02-01 Juanma Barranquero * hilit-chg.el (highlight-changes-initial-state) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 10a5dd9eedf..5ff8a0832bc 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -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)) -- 2.39.2