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
Fixed error in quit command definition.
[lurk.git]
/
lurk.el
diff --git
a/lurk.el
b/lurk.el
index
d969376
..
fb0178c
100644
(file)
--- a/
lurk.el
+++ b/
lurk.el
@@
-903,10
+903,6
@@
in which case they match anything.")
" " (number-to-string port) "]")))
(lurk-display-notice nil "(Modify the `lurk-networks' variable to add more.)"))
" " (number-to-string port) "]")))
(lurk-display-notice nil "(Modify the `lurk-networks' variable to add more.)"))
-(defun lurk-command-quit (params)
- (let ((quit-msg (if params (string-join params " ") nil)))
- (lurk-send-msg (lurk-msg nil nil "QUIT" quit-msg))))
-
(defun lurk-command-part (params)
(let ((channel (if params (car params) lurk-current-context)))
(if channel
(defun lurk-command-part (params)
(let ((channel (if params (car params) lurk-current-context)))
(if channel
@@
-922,7
+918,7
@@
in which case they match anything.")
(lurk-display-notice nil "Usage: /version <nick>")))
(defun lurk-command-quit (params)
(lurk-display-notice nil "Usage: /version <nick>")))
(defun lurk-command-quit (params)
- (let ((quit-msg (if params (string-join parms " ") lurk-default-quit-msg)))
+ (let ((quit-msg (if params (string-join par
a
ms " ") lurk-default-quit-msg)))
(lurk-send-msg (lurk-msg nil nil "QUIT" quit-msg))))
(defun lurk-command-nick (params)
(lurk-send-msg (lurk-msg nil nil "QUIT" quit-msg))))
(defun lurk-command-nick (params)