Mercurial > emacs
diff lisp/net/tramp.el @ 90291:d6f8fe3307c8
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-11
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 34-42)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 14-17)
- Update from CVS
- Merge from emacs--devo--0
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 04 Feb 2006 01:01:38 +0000 |
parents | 5b7d410e31f9 e66f443e6371 |
children | c5406394f567 |
line wrap: on
line diff
--- a/lisp/net/tramp.el Fri Feb 03 07:38:00 2006 +0000 +++ b/lisp/net/tramp.el Sat Feb 04 01:01:38 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))