From ee4de69b88aeb45a4635a5baac687217d3c8c8a2 Mon Sep 17 00:00:00 2001 From: plugd Date: Fri, 23 Jul 2021 16:55:23 +0200 Subject: [PATCH] Added completion and help for whois. --- lurk.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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))))) (_ -- 2.20.1