X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=lurk.git;a=blobdiff_plain;f=lurk.el;h=edfb66fe7d6b79b90021d2d35b7a8c79ea85c7df;hp=bf8f254dcc1b8b96757fc6b547c11c9748bfe4de;hb=HEAD;hpb=ae91c63db174acd4a59ec169f971c3aca95f6856 diff --git a/lurk.el b/lurk.el index bf8f254..52ee3b6 100644 --- a/lurk.el +++ b/lurk.el @@ -990,8 +990,8 @@ in which case they match anything.") (if new-nick (if (lurk-connected-p) (lurk-send-msg (lurk-msg nil nil "NICK" new-nick)) - (setq lurk-nick nick) - (lurk-display-notice nil "Set default nick to '" nick "'.")) + (setq lurk-nick new-nick) + (lurk-display-notice nil "Set default nick to '" lurk-nick "'.")) (lurk-display-notice nil "Current nick: " lurk-nick)))) (defun lurk-command-me (params) @@ -1036,7 +1036,7 @@ in which case they match anything.") (defun lurk-command-users (params) (if lurk-current-context (progn - (lurk-display-notice lurk-current-context "Users in context:") + (lurk-display-notice lurk-current-context "Users in " lurk-current-context ":") (lurk-display-notice lurk-current-context (string-join (lurk-get-context-users lurk-current-context) " "))) @@ -1180,8 +1180,6 @@ in which case they match anything.") (kbd "TAB") 'lurk-complete-input)) map)) -(defvar lurk-mode-map) - (define-derived-mode lurk-mode text-mode "lurk" "Major mode for LURK.")