The Lambda Lab
/
projects
/
lurk.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added license.
[lurk.git]
/
lurk.el
diff --git
a/lurk.el
b/lurk.el
index
bf8f254
..
52ee3b6
100644
(file)
--- 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))
(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 n
ew-n
ick)
+ (lurk-display-notice nil "Set default nick to '"
lurk-
nick "'."))
(lurk-display-notice nil "Current nick: " lurk-nick))))
(defun lurk-command-me (params)
(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
(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) " ")))
(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))
(kbd "TAB") 'lurk-complete-input))
map))
-(defvar lurk-mode-map)
-
(define-derived-mode lurk-mode text-mode "lurk"
"Major mode for LURK.")
(define-derived-mode lurk-mode text-mode "lurk"
"Major mode for LURK.")