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

Improve Tramp host name completion

Browse source 
* lisp/net/tramp-rclone.el (tramp-default-host-alist): Add empty host.

* lisp/net/tramp.el (tramp-parse-auth-sources): Require :port.
This commit is contained in:
Michael Albinus 2019-02-04 16:02:46 +01:00
parent 49f6243027
commit 7cdf4004c8
2 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/net/tramp-rclone.el
View file

@ -50,16 +50,15 @@
;;;###tramp-autoload
(tramp--with-startup
(add-to-list
'tramp-methods
`(,tramp-rclone-method
(tramp-mount-args nil)
(tramp-copyto-args nil)
(tramp-moveto-args nil)
(tramp-about-args ("--full")))))
(add-to-list 'tramp-methods
`(,tramp-rclone-method
(tramp-mount-args nil)
(tramp-copyto-args nil)
(tramp-moveto-args nil)
(tramp-about-args ("--full"))))
(add-to-list 'tramp-default-host-alist `(,tramp-rclone-method nil ""))
;;;###tramp-autoload
(tramp--with-startup
(tramp-set-completion-function
tramp-rclone-method '((tramp-rclone-parse-device-names ""))))

3
lisp/net/tramp.el
View file

@ -2867,7 +2867,8 @@ for all methods. Resulting data are derived from default settings."
(and tramp-completion-use-auth-sources
(mapcar
(lambda (x) `(,(plist-get x :user) ,(plist-get x :host)))
(auth-source-search :port method :max most-positive-fixnum))))
(auth-source-search
:port method :require '(:port) :max most-positive-fixnum))))
;; Generic function.
(defun tramp-parse-group (regexp match-level skip-regexp)