wgreenhouse
/
emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Allow ad hoc commands on bare JIDs.

This commit is contained in:
wgreenhouse 2021-02-28 18:58:29 -05:00
parent c1105ce627
commit a7d37459b9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
jabber-ahc.el
View File

@ -125,7 +125,7 @@ access allowed. nil means open for everyone."
(defun jabber-ahc-get-list (jc to)
"Request list of ad-hoc commands. (JEP-0050)"
(interactive (list (jabber-read-account)
(jabber-read-jid-completing "Request command list from: " nil nil nil 'full t)))
(jabber-read-jid-completing "Request command list from: " nil nil nil nil nil)))
(jabber-get-disco-items jc to "http://jabber.org/protocol/commands"))
(add-to-list 'jabber-jid-service-menu
@ -133,7 +133,7 @@ access allowed. nil means open for everyone."
(defun jabber-ahc-execute-command (jc to node)
"Execute ad-hoc command. (JEP-0050)"
(interactive (list (jabber-read-account)
(jabber-read-jid-completing "Execute command of: " nil nil nil 'full t)
(jabber-read-jid-completing "Execute command of: " nil nil nil nil nil)
(jabber-read-node "Node of command: ")))
(jabber-send-iq jc to
"set"