Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
90290:6a1672fcf6ae | 90291:d6f8fe3307c8 |
---|---|
6764 | 6764 |
6765 (defun tramp-convert-file-attributes (multi-method method user host attr) | 6765 (defun tramp-convert-file-attributes (multi-method method user host attr) |
6766 "Convert file-attributes ATTR generated by perl script or ls. | 6766 "Convert file-attributes ATTR generated by perl script or ls. |
6767 Convert file mode bits to string and set virtual device number. | 6767 Convert file mode bits to string and set virtual device number. |
6768 Return ATTR." | 6768 Return ATTR." |
6769 ;; Convert file mode bits to string. | |
6769 (unless (stringp (nth 8 attr)) | 6770 (unless (stringp (nth 8 attr)) |
6770 ;; Convert file mode bits to string. | |
6771 (setcar (nthcdr 8 attr) (tramp-file-mode-from-int (nth 8 attr)))) | 6771 (setcar (nthcdr 8 attr) (tramp-file-mode-from-int (nth 8 attr)))) |
6772 ;; Set file's gid change bit. | 6772 ;; Set file's gid change bit. Possible only when id-format is 'integer. |
6773 (setcar (nthcdr 9 attr) | 6773 (when (numberp (nth 3 attr)) |
6774 (not (= (nth 3 attr) | 6774 (setcar (nthcdr 9 attr) |
6775 (tramp-get-remote-gid multi-method method user host)))) | 6775 (not (= (nth 3 attr) |
6776 (tramp-get-remote-gid multi-method method user host))))) | |
6776 ;; Set virtual device number. | 6777 ;; Set virtual device number. |
6777 (setcar (nthcdr 11 attr) | 6778 (setcar (nthcdr 11 attr) |
6778 (tramp-get-device multi-method method user host)) | 6779 (tramp-get-device multi-method method user host)) |
6779 attr) | 6780 attr) |
6780 | 6781 |