diff options
| author | John Paul Wallington | 2003-01-13 16:44:07 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2003-01-13 16:44:07 +0000 |
| commit | 64f511342eb6c10086a9b9a5c82c5fa12cef73ea (patch) | |
| tree | 57a8062fb5676f3684883e1872f3219eb31ebd0d /lisp/server.el | |
| parent | 817cb127750cf1d3443eece58df85452206bd26b (diff) | |
| download | emacs-64f511342eb6c10086a9b9a5c82c5fa12cef73ea.tar.gz emacs-64f511342eb6c10086a9b9a5c82c5fa12cef73ea.zip | |
(server-process-filter): Use `minibufferp' to test
whether we are inside a minibuffer.
(server-process, server-kill-new-buffers): Doc fixes.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/server.el b/lisp/server.el index f3384f61395..456dcb61ae8 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -44,10 +44,10 @@ | |||
| 44 | ;; Note that any number of clients may dispatch files to emacs to be edited. | 44 | ;; Note that any number of clients may dispatch files to emacs to be edited. |
| 45 | 45 | ||
| 46 | ;; When you finish editing a Server buffer, again call server-edit | 46 | ;; When you finish editing a Server buffer, again call server-edit |
| 47 | ;; to mark that buffer as done for the client and switch to the next | 47 | ;; to mark that buffer as done for the client and switch to the next |
| 48 | ;; Server buffer. When all the buffers for a client have been edited | 48 | ;; Server buffer. When all the buffers for a client have been edited |
| 49 | ;; and exited with server-edit, the client "editor" will return | 49 | ;; and exited with server-edit, the client "editor" will return |
| 50 | ;; to the program that invoked it. | 50 | ;; to the program that invoked it. |
| 51 | 51 | ||
| 52 | ;; Your editing commands and Emacs's display output go to and from | 52 | ;; Your editing commands and Emacs's display output go to and from |
| 53 | ;; the terminal in the usual way. Thus, server operation is possible | 53 | ;; the terminal in the usual way. Thus, server operation is possible |
| @@ -69,8 +69,8 @@ | |||
| 69 | ;; brought into the foreground for editing. When done editing, Emacs is | 69 | ;; brought into the foreground for editing. When done editing, Emacs is |
| 70 | ;; suspended again, and the client program is brought into the foreground. | 70 | ;; suspended again, and the client program is brought into the foreground. |
| 71 | 71 | ||
| 72 | ;; The buffer local variable "server-buffer-clients" lists | 72 | ;; The buffer local variable "server-buffer-clients" lists |
| 73 | ;; the clients who are waiting for this buffer to be edited. | 73 | ;; the clients who are waiting for this buffer to be edited. |
| 74 | ;; The global variable "server-clients" lists all the waiting clients, | 74 | ;; The global variable "server-clients" lists all the waiting clients, |
| 75 | ;; and which files are yet to be edited for each. | 75 | ;; and which files are yet to be edited for each. |
| 76 | 76 | ||
| @@ -97,8 +97,8 @@ | |||
| 97 | :group 'server | 97 | :group 'server |
| 98 | :type 'hook) | 98 | :type 'hook) |
| 99 | 99 | ||
| 100 | (defvar server-process nil | 100 | (defvar server-process nil |
| 101 | "The current server process") | 101 | "The current server process.") |
| 102 | 102 | ||
| 103 | (defvar server-previous-strings nil) | 103 | (defvar server-previous-strings nil) |
| 104 | 104 | ||
| @@ -131,7 +131,7 @@ by the programs that invoke the Emacs server." | |||
| 131 | (defcustom server-kill-new-buffers t | 131 | (defcustom server-kill-new-buffers t |
| 132 | "*Whether to kill buffers when done with them. | 132 | "*Whether to kill buffers when done with them. |
| 133 | If non-nil, kill a buffer unless it already existed before editing | 133 | If non-nil, kill a buffer unless it already existed before editing |
| 134 | it with Emacs server. If nil, kill only buffers as specified by | 134 | it with Emacs server. If nil, kill only buffers as specified by |
| 135 | `server-temp-file-regexp'. | 135 | `server-temp-file-regexp'. |
| 136 | Please note that only buffers are killed that still have a client, | 136 | Please note that only buffers are killed that still have a client, |
| 137 | i.e. buffers visited which \"emacsclient --no-wait\" are never killed in | 137 | i.e. buffers visited which \"emacsclient --no-wait\" are never killed in |
| @@ -326,7 +326,7 @@ Prefix arg means just kill any existing server communications subprocess." | |||
| 326 | (server-log "Close empty client" proc)) | 326 | (server-log "Close empty client" proc)) |
| 327 | ;; We visited some buffer for this client. | 327 | ;; We visited some buffer for this client. |
| 328 | (or nowait (push client server-clients)) | 328 | (or nowait (push client server-clients)) |
| 329 | (unless (or isearch-mode (minibuffer-active)) | 329 | (unless (or isearch-mode (minibufferp)) |
| 330 | (server-switch-buffer (nth 1 client)) | 330 | (server-switch-buffer (nth 1 client)) |
| 331 | (run-hooks 'server-switch-hook) | 331 | (run-hooks 'server-switch-hook) |
| 332 | (unless nowait | 332 | (unless nowait |
| @@ -522,7 +522,7 @@ inhibits a backup; you can set it locally in a particular buffer to | |||
| 522 | prevent a backup for it.) The variable `server-temp-file-regexp' controls | 522 | prevent a backup for it.) The variable `server-temp-file-regexp' controls |
| 523 | which filenames are considered temporary. | 523 | which filenames are considered temporary. |
| 524 | 524 | ||
| 525 | If invoked with a prefix argument, or if there is no server process running, | 525 | If invoked with a prefix argument, or if there is no server process running, |
| 526 | starts server process and that is all. Invoked by \\[server-edit]." | 526 | starts server process and that is all. Invoked by \\[server-edit]." |
| 527 | (interactive "P") | 527 | (interactive "P") |
| 528 | (if (or arg | 528 | (if (or arg |