projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
91f37fc
)
Fixed.
author
Daiki Ueno
<ueno@unixuser.org>
Tue, 5 Oct 2004 22:48:06 +0000
(22:48 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Tue, 5 Oct 2004 22:48:06 +0000
(22:48 +0000)
lisp/riece-server.el
patch
|
blob
|
history
diff --git
a/lisp/riece-server.el
b/lisp/riece-server.el
index
99a1a07
..
827b837
100644
(file)
--- a/
lisp/riece-server.el
+++ b/
lisp/riece-server.el
@@
-171,12
+171,12
@@
the `riece-server-keyword-map' variable."
(when (<= riece-send-size riece-max-send-size)
(process-send-string process string)
(setq riece-last-send-time (current-time)))))
(when (<= riece-send-size riece-max-send-size)
(process-send-string process string)
(setq riece-last-send-time (current-time)))))
- (
if riece-send-queue
-
(riece-run-at-time riece-send-delay nil
-
(lambda (process)
-
(if (process-live-p process)
-
(riece-flush-send-queue process)))
-
process)))))
+ (
unless (riece-queue-empty riece-send-queue)
+ (riece-run-at-time riece-send-delay nil
+ (lambda (process)
+ (if (process-live-p process)
+ (riece-flush-send-queue process)))
+ process)))))
(defun riece-process-send-string (process string)
(with-current-buffer (process-buffer process)
(defun riece-process-send-string (process string)
(with-current-buffer (process-buffer process)