(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)
(kbd "TAB") 'lurk-complete-input))
map))
-(defvar lurk-mode-map)
-
(define-derived-mode lurk-mode text-mode "lurk"
"Major mode for LURK.")