mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

(open-network-stream): Take a :nowait parameter and pass it on to `make-network-process'.

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-05-01 17:39:10 +02:00
parent 98a9a5d46c
commit 8de66e05c4
2 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2011-05-01 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/network-stream.el (open-network-stream): Take a :nowait
parameter and pass it on to `make-network-process'.
(network-stream-open-plain): Ditto.
2011-04-30 Andreas Schwab <schwab@linux-m68k.org>
* faces.el (face-spec-set-match-display): Don't match toolkit

11
lisp/net/network-stream.el
View file

@ -109,7 +109,10 @@ values:
:starttls-function specifies a function for handling STARTTLS.
This function should take one parameter, the response to the
capability command, and should return the command to switch on
STARTTLS if the server supports STARTTLS, and nil otherwise."
STARTTLS if the server supports STARTTLS, and nil otherwise.
:nowait is a boolean that says the connection should be made
asynchronously, if possible."
(unless (featurep 'make-network-process)
(error "Emacs was compiled without networking support"))
(let ((type (plist-get parameters :type))
@ -121,7 +124,8 @@ values:
(plist-get parameters :capability-command))))))
;; The simplest case: wrapper around `make-network-process'.
(make-network-process :name name :buffer buffer
:host host :service service)
:host host :service service
:nowait (plist-get parameters :nowait))
(let ((work-buffer (or buffer
(generate-new-buffer " *stream buffer*")))
(fun (cond ((eq type 'plain) 'network-stream-open-plain)
@ -150,7 +154,8 @@ values:
(defun network-stream-open-plain (name buffer host service parameters)
(let ((start (with-current-buffer buffer (point)))
(stream (make-network-process :name name :buffer buffer
:host host :service service)))
:host host :service service
:nowait (plist-get parameters :nowait))))
(list stream
(network-stream-get-response stream start
(plist-get parameters :end-of-command))