andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* net/tramp-sh.el (tramp-get-remote-id): Check also for "gid".

Browse source
This commit is contained in:
Michael Albinus 2014-10-12 20:27:37 +02:00
parent 80b20192ee
commit dfbb4d511e
2 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2014-10-12 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-sh.el (tramp-get-remote-id): Check also for "gid".
2014-10-11 Jan Djärv <jan.h.d@swipnet.se>
* cus-start.el (all): Add missing ns and boolean to

15
lisp/net/tramp-sh.el
View file

@ -5228,13 +5228,14 @@ Return ATTR."
(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