diff options
author | Juanma Barranquero <[email protected]> | 2010-08-03 15:04:20 +0200 |
---|---|---|
committer | Juanma Barranquero <[email protected]> | 2010-08-03 15:04:20 +0200 |
commit | d5b8058fb09545686338769edf92a4f73c166520 (patch) | |
tree | 54d997ea99a797dd0aa5d052ae8f6ae49ee3200c | |
parent | c5958e82b755959e01a89f05b1b25bf223e7524a (diff) |
* server.el (server-start): Force IPv4 and use literal 127.0.0.1.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/server.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1d7cfe90f9..f0650ea89e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-08-03 Juanma Barranquero <[email protected]> + + * server.el (server-start): When using TCP sockets, force IPv4 + and use a literal 127.0.0.1 for localhost. (Related to bug#6781.) + 2010-08-02 Stefan Monnier <[email protected]> * bindings.el (complete-symbol): Run completion-at-point as a fallback. diff --git a/lisp/server.el b/lisp/server.el index d36b99cc5b..e8a0125f55 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -560,9 +560,9 @@ server or call `M-x server-force-delete' to forcibly disconnect it.") :coding 'raw-text-unix ;; The other args depend on the kind of socket used. (if server-use-tcp - (list :family nil + (list :family 'ipv4 ;; We're not ready for IPv6 yet :service t - :host (or server-host 'local) + :host (or server-host "127.0.0.1") ;; See bug#6781 :plist '(:authenticated nil)) (list :family 'local :service server-file |