-;;; riece-async.el --- connect to IRC server via async proxy
+;;; riece-async.el --- connect to IRC server via async proxy -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
assumed that the file is in the same directory of this file.")
(defvar riece-async-server-program-arguments
- (list "-s" riece-async-buffer-size
+ (list "-s" (number-to-string riece-async-buffer-size)
"-b" riece-async-backup-file)
"Command line arguments passed to `riece-async-server-program'.")
"Connect to IRC server via async proxy.")
;;;###autoload
-(defun riece-async-open-network-stream (name buffer host service)
+(defun riece-async-open-network-stream (name buffer _host _service)
(let* (process-connection-type
(process
(apply #'start-process name buffer riece-ruby-command
riece-data-directory)
riece-async-server-program-arguments)))
(if buffer
- (save-excursion
- (set-buffer (process-buffer process))
+ (with-current-buffer (process-buffer process)
(while (and (eq (process-status process) 'run)
(progn
(goto-char (point-min))
(not (looking-at (format "NOTICE CONNECTED %d"
(process-id process))))))
(accept-process-output process))))
- (process-kill-without-query process)
+ (riece-set-process-query-on-exit-flag process nil)
process))
(defun riece-async-insinuate ()