[Emacs-diffs] /srv/bzr/emacs/trunk r104068: (open-network-stream): Take a :nowait parameter and pass it on to `make-network-process'.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104068
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2011-05-01 17:39:10 +0200
message:
  (open-network-stream): Take a :nowait parameter and pass it on to 
`make-network-process'.
modified:
  lisp/ChangeLog
  lisp/net/network-stream.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-30 17:57:07 +0000
+++ b/lisp/ChangeLog    2011-05-01 15:39:10 +0000
@@ -1,3 +1,9 @@
+2011-05-01  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * faces.el (face-spec-set-match-display): Don't match toolkit

=== modified file 'lisp/net/network-stream.el'
--- a/lisp/net/network-stream.el        2011-04-25 01:31:45 +0000
+++ b/lisp/net/network-stream.el        2011-05-01 15:39:10 +0000
@@ -109,7 +109,10 @@
 :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 @@
                                (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,10 +154,11 @@
 (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))
+                                      (plist-get parameters :end-of-command))
          nil
          'plain)))