From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 1 Feb 2006 22:26:45 +0000 (+0000)
Subject: * net/tramp.el (tramp-convert-file-attributes): Set file's gid
X-Git-Tag: emacs-pretest-22.0.90~4452
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca637b2a27415373b47110008f93f4ebdf8c7358;p=emacs.git

* 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 0d51f0f1d67..32817654f43 100644
--- 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 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))