From 7e1ad6360e625c61e6b6898996269dd0606a7153 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 7 Apr 2019 10:10:30 +0200 Subject: [PATCH] * lisp/net/tramp.el (tramp-parse-group): Rename third arg to SKIP-CHARS. (tramp-parse-sconfig-group): Fix thinko. --- 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 0fc2d33d222..32963ac5432 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -2801,14 +2801,14 @@ for all methods. Resulting data are derived from default settings." :port method :require '(:port) :max most-positive-fixnum)))) ;; Generic function. -(defun tramp-parse-group (regexp match-level skip-regexp) +(defun tramp-parse-group (regexp match-level skip-chars) "Return a (user host) tuple allowed to access. User is always nil." (let (result) (when (re-search-forward regexp (point-at-eol) t) (setq result (list nil (match-string match-level)))) (or - (> (skip-chars-forward skip-regexp) 0) + (> (skip-chars-forward skip-chars) 0) (forward-line 1)) result)) @@ -2864,7 +2864,7 @@ User is always nil." (tramp-parse-group (concat "\\(?:^[ \t]*Host\\)" "\\|" "\\(?:^.+\\)" "\\|" "\\(" tramp-host-regexp "\\)") - 1 "[ \t]+")) + 1 " \t")) ;; Generic function. (defun tramp-parse-shostkeys-sknownhosts (dirname regexp) -- 2.39.2