From 8ccc6545c3dc171176fd4f04779116ccd4ed1e82 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Tue, 3 Jun 2003 08:04:52 +0000 Subject: [PATCH] (cf. the last paragraph of `kill-buffer' docstring) * riece-rdcc.el (riece-rdcc-sentinel): Don't call delete-process explicitly. * riece-ndcc.el: Don't call delete-process explicitly. * riece-server.el (riece-close-server-process): Don't call delete-process explicitly unless riece-debug == t. --- lisp/ChangeLog | 8 ++++++++ lisp/riece-ndcc.el | 5 ++--- lisp/riece-rdcc.el | 6 ++---- lisp/riece-server.el | 16 ++++++++-------- 4 files changed, 20 insertions(+), 15 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9155fba..fe9d0b2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2003-06-03 Daiki Ueno + + * riece-rdcc.el (riece-rdcc-sentinel): Don't call delete-process + explicitly. + * riece-ndcc.el: Don't call delete-process explicitly. + * riece-server.el (riece-close-server-process): Don't call + delete-process explicitly unless riece-debug == t. + 2003-06-03 Daiki Ueno * riece-inlines.el (scandinavian-downcase): New inline function. diff --git a/lisp/riece-ndcc.el b/lisp/riece-ndcc.el index 74b6375..78a73d7 100644 --- a/lisp/riece-ndcc.el +++ b/lisp/riece-ndcc.el @@ -71,7 +71,6 @@ Only used for sending files." (substring (process-name process) 0 (match-beginning 0))))) (save-excursion (set-buffer (process-buffer (get-process parent-name))) - (delete-process parent-name) (goto-char (point-min)) (while (not (eobp)) (process-send-region process @@ -80,9 +79,9 @@ Only used for sending files." (message "Sending %s...(%d/%d)" (buffer-file-name) (1- (point)) (buffer-size))) (message "Sending %s...done" - (buffer-file-name)))) + (buffer-file-name))) + (kill-buffer (process-buffer (get-process parent-name)))) (kill-buffer (process-buffer process)) - (delete-process process))) (defun riece-command-dcc-send (user file) (interactive diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el index b77c978..e02b587 100644 --- a/lisp/riece-rdcc.el +++ b/lisp/riece-rdcc.el @@ -115,8 +115,7 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{" (defun riece-rdcc-server-sentinel (process status) (with-current-buffer (process-buffer process) (message "Sending %s...done" riece-rdcc-request-file)) - (kill-buffer (process-buffer process)) - (delete-process process)) + (kill-buffer (process-buffer process))) (defun riece-command-dcc-send (user file) (interactive @@ -186,8 +185,7 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{" (let ((coding-system-for-write 'binary) jka-compr-compression-info-list jam-zcat-filename-list) (write-region (point-min) (point-max) riece-rdcc-request-file))) - (kill-buffer (process-buffer process)) - (delete-process process)) + (kill-buffer (process-buffer process))) (defun riece-rdcc-decode-address (address) (with-temp-buffer diff --git a/lisp/riece-server.el b/lisp/riece-server.el index 4ff95c7..20aedf8 100644 --- a/lisp/riece-server.el +++ b/lisp/riece-server.el @@ -177,14 +177,14 @@ the `riece-server-keyword-map' variable." (set-process-filter process nil)) (if (eq 'riece-sentinel (process-sentinel process)) (set-process-sentinel process nil)) - (when (memq (process-status process) '(open run)) - (riece-process-send-string process - (if quit-message - (format "QUIT :%s\r\n" quit-message) - "QUIT\r\n")) - (unless riece-debug - (kill-buffer (process-buffer process)))) - (delete-process process)) + (if (memq (process-status process) '(open run)) + (riece-process-send-string process + (if quit-message + (format "QUIT :%s\r\n" quit-message) + "QUIT\r\n"))) + (if riece-debug + (delete-process process) + (kill-buffer (process-buffer process)))) (eval-when-compile (autoload 'riece-exit "riece")) -- 2.25.1