diff options
author | Peter Oliver <[email protected]> | 2010-10-26 00:40:07 -0700 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2010-10-26 00:40:07 -0700 |
commit | c79b0b1c8ccfd0c134fd8ab138353d7843fc3be8 (patch) | |
tree | 3d443d72c2e83771c36153c238ea45074595eea8 /lisp | |
parent | ceb951014fc58e545af0a5f2298b3fea135b0533 (diff) |
Add server-port option. (Bug#854)
* lisp/server.el (server-port): New option.
(server-start): Use server-port.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/server.el | 11 |
2 files changed, 15 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1293e4c8f9..ef604bd4fe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-10-26 Peter Oliver <[email protected]> (tiny change) + + * server.el (server-port): New option. + (server-start): Use server-port. + 2010-10-26 Glenn Morris <[email protected]> * term/ns-win.el (ns-version-string): Remove unused declaration. diff --git a/lisp/server.el b/lisp/server.el index bc49087f46..463b01ccf0 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -112,6 +112,15 @@ If set, the server accepts remote connections; otherwise it is local." :version "22.1") (put 'server-host 'risky-local-variable t) +(defcustom server-port nil + "The port number that the server process should listen on." + :group 'server + :risky t + :type '(choice + (string :tag "Port number") + (const :tag "Random" nil)) + :version "24.1") + (defcustom server-auth-dir (locate-user-emacs-file "server/") "Directory for server authentication files. @@ -564,7 +573,7 @@ server or call `M-x server-force-delete' to forcibly disconnect it.") ;; The other args depend on the kind of socket used. (if server-use-tcp (list :family 'ipv4 ;; We're not ready for IPv6 yet - :service t + :service (or server-port t) :host (or server-host 'local) :plist '(:authenticated nil)) (list :family 'local |