]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix Tramp (don't merge)
authorMichael Albinus <michael.albinus@gmx.de>
Fri, 27 Oct 2023 13:09:41 +0000 (15:09 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Fri, 27 Oct 2023 13:09:41 +0000 (15:09 +0200)
* lisp/net/tramp.el (tramp-read-id-output): Identifiers can contain "-".

lisp/net/tramp.el

index d1b38cfeb936bfd9a253f2a45cdda17cc125e042..29f5ffd68f05202ec868f5b0cdd0f9a924cc460b 100644 (file)
@@ -6399,20 +6399,20 @@ Set connection properties \"{uid,gid.groups}-{integer,string}\"."
       (goto-char (point-min))
       ;; Read uid.
       (when (re-search-forward
-            (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 (re-search-forward
-            (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 (re-search-forward (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))