From: plugd Date: Fri, 23 Jul 2021 14:55:23 +0000 (+0200) Subject: Added completion and help for whois. X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=lurk.git;a=commitdiff_plain;h=ee4de69b88aeb45a4635a5baac687217d3c8c8a2 Added completion and help for whois. --- diff --git a/lurk.el b/lurk.el index ad4b1e2..66517ba 100644 --- a/lurk.el +++ b/lurk.el @@ -853,11 +853,12 @@ in which case they match anything.") ("JOIN" "Join one or more channels." lurk-command-join) ("TOPIC" "Set topic for current channel." lurk-command-topic) ("ME" "Display action." lurk-command-me) - ("VERSION" "Request version of another user's client via CTCP." lurk-command-version) + ("VERSION" "Request version of another user's client via CTCP." lurk-command-version lurk-nick-completions) ("PART" "Leave channel." lurk-command-part lurk-context-completions) ("QUIT" "Disconnect from current network." lurk-command-quit) ("NICK" "Change nick." lurk-command-nick) ("LIST" "Display details of one or more channels." lurk-command-list) + ("WHOIS" "Ask server for details of nick." nil lurk-nick-completions) ("MSG" "Send private message to user." lurk-command-msg lurk-nick-completions) ("HELP" "Display help on client commands." lurk-command-help lurk-help-completions)) "Table of commands explicitly supported by Lurk.") @@ -1008,7 +1009,7 @@ in which case they match anything.") (params (if params-str (split-string params-str nil t) nil))) - (if command-row + (if (and command-row (elt command-row 2)) (funcall (elt command-row 2) params) (lurk-send-msg (lurk-msg nil nil (upcase cmd-str) params))))) (_