From 86b1b3aea569dfc7f871b80fbb1ca3113d8a774c Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 19 Nov 2004 08:15:39 +0000 Subject: [PATCH] * riece.el (riece-submit-bug-report): use riece-server-process-opened instead of process-live-p. * riece-server.el (riece-flush-send-queue): Use riece-server-process-opened instead of process-live-p. --- lisp/ChangeLog | 5 +++++ lisp/riece-server.el | 2 +- lisp/riece.el | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9493254..440d236 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2004-11-19 Daiki Ueno + * riece.el (riece-submit-bug-report): use + riece-server-process-opened instead of process-live-p. + * riece-server.el (riece-flush-send-queue): Use + riece-server-process-opened instead of process-live-p. + * riece-yank.el (riece-yank-strip-space): Bind space-width. * riece-xemacs.el (riece-recent-messages): New function. diff --git a/lisp/riece-server.el b/lisp/riece-server.el index 827b837..7512ae4 100644 --- a/lisp/riece-server.el +++ b/lisp/riece-server.el @@ -174,7 +174,7 @@ the `riece-server-keyword-map' variable." (unless (riece-queue-empty riece-send-queue) (riece-run-at-time riece-send-delay nil (lambda (process) - (if (process-live-p process) + (if (riece-server-process-opened process) (riece-flush-send-queue process))) process))))) diff --git a/lisp/riece.el b/lisp/riece.el index 4f646db..bda69c1 100644 --- a/lisp/riece.el +++ b/lisp/riece.el @@ -586,7 +586,7 @@ are familiar with the debugger, to get a lisp back-trace.") (cdr (assoc (car (car pointer)) riece-server-alist)))) "\n" - (if (process-live-p (cdr (car pointer))) + (if (riece-server-process-opened (cdr (car pointer))) (save-excursion (set-buffer (process-buffer (cdr (car pointer)))) (goto-char (point-max)) -- 1.7.10.4