* 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>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d51f0f1d67e92f91fd70a17d5c1c6bfb98213e0..32817654f438dcc2fdf669566efc8c331fe0e3f5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 10a5dd9eedf82a2a7302cc9d61f26144db6dbf2b..5ff8a0832bc21788edfa3c266cdd995b1a8ba21f 100644 (file)
--- 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))