master 28c2191df02: * lisp/net/tramp.el (tramp-read-id-output): Identifiers can contain "-".

[Michael Albinus]

branch: master
commit 28c2191df0239c16b4fb9e7242582185175a329f
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    * lisp/net/tramp.el (tramp-read-id-output): Identifiers can contain "-".
---
 lisp/net/tramp.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 7cc9b0c14a2..9cc319bef67 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -6231,20 +6231,20 @@ Set connection properties 
\"{uid,gid,groups}-{integer,string}\"."
       (goto-char (point-min))
       ;; Read uid.
       (when (search-forward-regexp
-            (rx "uid=" (group (+ digit)) "(" (group (+ (any "_" word))) ")")
+            (rx "uid=" (group (+ digit)) "(" (group (+ (any "_-" alnum))) ")")
             nil 'noerror)
        (setq uid-integer (string-to-number (match-string 1))
              uid-string (match-string 2)))
       ;; Read gid.
       (when (search-forward-regexp
-            (rx "gid=" (group (+ digit)) "(" (group (+ (any "_" word))) ")")
+            (rx "gid=" (group (+ digit)) "(" (group (+ (any "_-" alnum))) ")")
             nil 'noerror)
        (setq gid-integer (string-to-number (match-string 1))
              gid-string (match-string 2)))
       ;; Read groups.
       (when (search-forward-regexp (rx "groups=") nil 'noerror)
        (while (looking-at
-               (rx (group (+ digit)) "(" (group (+ (any "_" word))) ")"))
+               (rx (group (+ digit)) "(" (group (+ (any "_-" alnum))) ")"))
          (setq groups-integer (cons (string-to-number (match-string 1))
                                     groups-integer)
                groups-string (cons (match-string 2) groups-string))