[Emacs-diffs] trunk r118099: * net/tramp-sh.el (tramp-get-remote-id): Check also for "gid".

[Michael Albinus]

------------------------------------------------------------
revno: 118099
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Sun 2014-10-12 20:27:37 +0200
message:
  * net/tramp-sh.el (tramp-get-remote-id): Check also for "gid".
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/tramp-sh.el           trampsh.el-20100913133439-a1faifh29eqoi4nh-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-10-11 20:00:59 +0000
+++ b/lisp/ChangeLog    2014-10-12 18:27:37 +0000
@@ -1,3 +1,7 @@
+2014-10-12  Michael Albinus  <address@hidden>
+
+       * net/tramp-sh.el (tramp-get-remote-id): Check also for "gid".
+
 2014-10-11  Jan Djärv  <address@hidden>
 
        * cus-start.el (all): Add missing ns and boolean to

=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el      2014-09-25 13:07:28 +0000
+++ b/lisp/net/tramp-sh.el      2014-10-12 18:27:37 +0000
@@ -5228,13 +5228,14 @@
   (with-tramp-connection-property vec "id"
     (tramp-message vec 5 "Finding POSIX `id' command")
     (catch 'id-found
-      (let ((dl (tramp-get-remote-path vec))
-           result)
-       (while (and dl (setq result (tramp-find-executable vec "id" dl t t)))
-         ;; Check POSIX parameter.
-         (when (tramp-send-command-and-check vec (format "%s -u" result))
-           (throw 'id-found result))
-         (setq dl (cdr dl)))))))
+      (dolist (cmd '("id" "gid"))
+       (let ((dl (tramp-get-remote-path vec))
+             result)
+         (while (and dl (setq result (tramp-find-executable vec cmd dl t t)))
+           ;; Check POSIX parameter.
+           (when (tramp-send-command-and-check vec (format "%s -u" result))
+             (throw 'id-found result))
+           (setq dl (cdr dl))))))))
 
 (defun tramp-get-remote-uid-with-id (vec id-format)
   (tramp-send-command-and-read