procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/net/tramp.el (tramp-parse-group): Rename third arg to SKIP-CHARS.

Browse source 
(tramp-parse-sconfig-group): Fix thinko.
This commit is contained in:
Michael Albinus 2019-04-07 10:10:30 +02:00
parent 0c16bb5a39
commit 7e1ad6360e
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/tramp.el
View file

@ -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)