projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-addon.el (riece-command-list-addons): Use
[riece]
/
lisp
/
riece-server.el
diff --git
a/lisp/riece-server.el
b/lisp/riece-server.el
index
39c1610
..
9ee0e90
100644
(file)
--- a/
lisp/riece-server.el
+++ b/
lisp/riece-server.el
@@
-72,7
+72,7
@@
the `riece-server-keyword-map' variable."
plist)
(setq plist (cons `(:host ,host) plist))
(unless (equal service "")
plist)
(setq plist (cons `(:host ,host) plist))
(unless (equal service "")
- (setq plist (cons `(:service ,(string-to-
int
service)) plist)))
+ (setq plist (cons `(:service ,(string-to-
number
service)) plist)))
(unless (equal password "")
(setq plist (cons `(:password ,(substring password 1)) plist)))
(apply #'nconc plist))))
(unless (equal password "")
(setq plist (cons `(:password ,(substring password 1)) plist)))
(apply #'nconc plist))))
@@
-259,8
+259,10
@@
the `riece-server-keyword-map' variable."
(setq riece-send-size 0)
(make-local-variable 'riece-last-send-time)
(setq riece-last-send-time '(0 0 0))
(setq riece-send-size 0)
(make-local-variable 'riece-last-send-time)
(setq riece-last-send-time '(0 0 0))
- (make-local-variable 'riece-obarray)
- (setq riece-obarray (make-vector riece-obarray-size 0))
+ (make-local-variable 'riece-user-obarray)
+ (setq riece-user-obarray (make-vector riece-user-obarray-size 0))
+ (make-local-variable 'riece-channel-obarray)
+ (setq riece-channel-obarray (make-vector riece-channel-obarray-size 0))
(make-local-variable 'riece-coding-system)
(buffer-disable-undo)
(erase-buffer)))
(make-local-variable 'riece-coding-system)
(buffer-disable-undo)
(erase-buffer)))