comparison lisp/net/tramp.el @ 90291:d6f8fe3307c8

Revision: [e-mail]/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

90290:6a1672fcf6ae

(defun tramp-convert-file-attributes (multi-method method user host attr)
  "Convert file-attributes ATTR generated by perl script or ls.
Convert file mode bits to string and set virtual device number.
Return ATTR."
  (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 virtual device number.
  (setcar (nthcdr 11 attr)
          (tramp-get-device multi-method method user host))
  attr)

90291:d6f8fe3307c8

(defun tramp-convert-file-attributes (multi-method method user host attr)
  "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))
    (setcar (nthcdr 8 attr) (tramp-file-mode-from-int (nth 8 attr))))
  ;; 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))
  attr)