Mercurial > emacs
comparison lisp/server.el @ 101392:03050eba53aa
(server-name): Make it a defcustom.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 23 Jan 2009 04:52:40 +0000 |
| parents | 191a3121c949 |
| children | 76d5e3386e23 |
comparison
equal
deleted
inserted
replaced
| 101391:922a0e9e1a24 | 101392:03050eba53aa |
|---|---|
| 198 "Non-nil means the buffer existed before the server was asked to visit it. | 198 "Non-nil means the buffer existed before the server was asked to visit it. |
| 199 This means that the server should not kill the buffer when you say you | 199 This means that the server should not kill the buffer when you say you |
| 200 are done with it in the server.") | 200 are done with it in the server.") |
| 201 (make-variable-buffer-local 'server-existing-buffer) | 201 (make-variable-buffer-local 'server-existing-buffer) |
| 202 | 202 |
| 203 (defvar server-name "server") | 203 (defcustom server-name "server" |
| 204 "The name of the Emacs server, if this Emacs process creates one. | |
| 205 The command `server-start' makes use of this. It should not be | |
| 206 changed while a server is running." | |
| 207 :group 'server | |
| 208 :type 'string | |
| 209 :version "23.1") | |
| 204 | 210 |
| 205 (defvar server-socket-dir | 211 (defvar server-socket-dir |
| 206 (and (featurep 'make-network-process '(:family local)) | 212 (and (featurep 'make-network-process '(:family local)) |
| 207 (format "%s/emacs%d" (or (getenv "TMPDIR") "/tmp") (user-uid))) | 213 (format "%s/emacs%d" (or (getenv "TMPDIR") "/tmp") (user-uid))) |
| 208 "The directory in which to place the server socket. | 214 "The directory in which to place the server socket. |