(read-file-name
(_ "File to send: ")
default-directory nil))
- (liece-minibuffer-completing-default-read
+ (liece-minibuffer-completing-read
(_ "To whom: ")
(append liece-nick-alist liece-channel-alist)
- nil nil liece-privmsg-partner)))
+ nil nil nil nil liece-privmsg-partner)))
(setq liece-privmsg-partner towhom)
(let (process)
(defun liece-command-dcc-chat-listen (towhom)
(interactive
- (list (liece-minibuffer-completing-default-read
+ (list (liece-minibuffer-completing-read
(_ "With whom: ")
(append liece-nick-alist liece-channel-alist)
- nil nil liece-privmsg-partner)))
+ nil nil nil nil liece-privmsg-partner)))
(setq liece-privmsg-partner towhom)
(let (process)
(as-binary-process