diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/erc/erc-dcc.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el index 90a10766c4c..ebeab921fb9 100644 --- a/lisp/erc/erc-dcc.el +++ b/lisp/erc/erc-dcc.el @@ -411,8 +411,11 @@ where FOO is one of CLOSE, GET, SEND, LIST, CHAT, etc." "Provide completion for the /DCC command." (pcomplete-here (append '("chat" "close" "get" "list") (when (fboundp 'make-network-process) '("send")))) + (when (equal "get" (downcase (pcomplete-arg 1))) + (pcomplete-opt "ts") + (pcomplete-opt (if (equal "-s" (pcomplete-arg 'first 2)) "t" "s"))) (pcomplete-here - (pcase (intern (downcase (pcomplete-arg 1))) + (pcase (intern (downcase (pcomplete-arg 'first 1))) ('chat (mapcar (lambda (elt) (plist-get elt :nick)) (cl-remove-if-not (lambda (elt) @@ -428,7 +431,7 @@ where FOO is one of CLOSE, GET, SEND, LIST, CHAT, etc." erc-dcc-list))) ('send (pcomplete-erc-all-nicks)))) (pcomplete-here - (pcase (intern (downcase (pcomplete-arg 2))) + (pcase (intern (downcase (pcomplete-arg 'first 1))) ('get (mapcar (lambda (elt) (plist-get elt :file)) (cl-remove-if-not (lambda (elt) |