annotate lisp/server.el @ 71621:7250b94586cb

Add a paragraph for non-ASCII examples at the head. Add Bulgarian and Hungarian. Add more "hello"s to Danish and Swedish.
author Kenichi Handa <handa@m17n.org>
date Wed, 05 Jul 2006 01:28:13 +0000
parents 59c8b05c2ce4
children dcb7e8b2f7b3 46b1096093f5 138027c8c982
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 38010
diff changeset
1 ;;; server.el --- Lisp code for GNU Emacs running as server process
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 445
diff changeset
2
64762
41bb365f41c4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64372
diff changeset
3 ;; Copyright (C) 1986, 1987, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
68651
3bd95f4f2941 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 66388
diff changeset
4 ;; 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
844
bf829a2d63b4 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
5
787
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 702
diff changeset
6 ;; Author: William Sommerfeld <wesommer@athena.mit.edu>
17970
720d1f98ae42 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17801
diff changeset
7 ;; Maintainer: FSF
814
38b2499cb3e9 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
8 ;; Keywords: processes
787
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 702
diff changeset
9
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 702
diff changeset
10 ;; Changes by peck@sun.com and by rms.
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 702
diff changeset
11
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
12 ;; This file is part of GNU Emacs.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
13
38da30b6253c Initial revision
root <root>
parents:
diff changeset
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
38da30b6253c Initial revision
root <root>
parents:
diff changeset
15 ;; it under the terms of the GNU General Public License as published by
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 787
diff changeset
16 ;; the Free Software Foundation; either version 2, or (at your option)
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
17 ;; any later version.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
18
38da30b6253c Initial revision
root <root>
parents:
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
38da30b6253c Initial revision
root <root>
parents:
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
38da30b6253c Initial revision
root <root>
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
38da30b6253c Initial revision
root <root>
parents:
diff changeset
22 ;; GNU General Public License for more details.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
23
38da30b6253c Initial revision
root <root>
parents:
diff changeset
24 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64091
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62402
diff changeset
26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62402
diff changeset
27 ;; Boston, MA 02110-1301, USA.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
28
787
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 702
diff changeset
29 ;;; Commentary:
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
30
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
31 ;; This Lisp code is run in Emacs when it is to operate as
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
32 ;; a server for other processes.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
33
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
34 ;; Load this library and do M-x server-edit to enable Emacs as a server.
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
35 ;; Emacs opens up a socket for communication with clients. If there are no
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
36 ;; client buffers to edit, server-edit acts like (switch-to-buffer
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
37 ;; (other-buffer))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
38
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
39 ;; When some other program runs "the editor" to edit a file,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
40 ;; "the editor" can be the Emacs client program ../lib-src/emacsclient.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
41 ;; This program transmits the file names to Emacs through
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
42 ;; the server subprocess, and Emacs visits them and lets you edit them.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
43
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
44 ;; Note that any number of clients may dispatch files to emacs to be edited.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
45
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
46 ;; When you finish editing a Server buffer, again call server-edit
49206
7ebd98bb02a2 (server-process-filter): Use `minibufferp' to test
John Paul Wallington <jpw@pobox.com>
parents: 49187
diff changeset
47 ;; to mark that buffer as done for the client and switch to the next
7ebd98bb02a2 (server-process-filter): Use `minibufferp' to test
John Paul Wallington <jpw@pobox.com>
parents: 49187
diff changeset
48 ;; Server buffer. When all the buffers for a client have been edited
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
49 ;; and exited with server-edit, the client "editor" will return
49206
7ebd98bb02a2 (server-process-filter): Use `minibufferp' to test
John Paul Wallington <jpw@pobox.com>
parents: 49187
diff changeset
50 ;; to the program that invoked it.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
51
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
52 ;; Your editing commands and Emacs's display output go to and from
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
53 ;; the terminal in the usual way. Thus, server operation is possible
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
54 ;; only when Emacs can talk to the terminal at the time you invoke
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
55 ;; the client. This is possible in four cases:
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
56
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
57 ;; 1. On a window system, where Emacs runs in one window and the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
58 ;; program that wants to use "the editor" runs in another.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
59
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
60 ;; 2. On a multi-terminal system, where Emacs runs on one terminal and the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
61 ;; program that wants to use "the editor" runs on another.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
62
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
63 ;; 3. When the program that wants to use "the editor" is running
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
64 ;; as a subprocess of Emacs.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
65
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
66 ;; 4. On a system with job control, when Emacs is suspended, the program
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
67 ;; that wants to use "the editor" will stop and display
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
68 ;; "Waiting for Emacs...". It can then be suspended, and Emacs can be
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
69 ;; brought into the foreground for editing. When done editing, Emacs is
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
70 ;; suspended again, and the client program is brought into the foreground.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
71
49206
7ebd98bb02a2 (server-process-filter): Use `minibufferp' to test
John Paul Wallington <jpw@pobox.com>
parents: 49187
diff changeset
72 ;; The buffer local variable "server-buffer-clients" lists
7ebd98bb02a2 (server-process-filter): Use `minibufferp' to test
John Paul Wallington <jpw@pobox.com>
parents: 49187
diff changeset
73 ;; the clients who are waiting for this buffer to be edited.
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
74 ;; The global variable "server-clients" lists all the waiting clients,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13468
diff changeset
75 ;; and which files are yet to be edited for each.
787
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 702
diff changeset
76
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 702
diff changeset
77 ;;; Code:
47517
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
78
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
79 (eval-when-compile (require 'cl))
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
80
19418
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
81 (defgroup server nil
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
82 "Emacs running as a server process."
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
83 :group 'external)
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
84
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
85 (defcustom server-visit-hook nil
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
86 "*Hook run when visiting a file for the Emacs server."
19418
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
87 :group 'server
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
88 :type 'hook)
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
89
19418
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
90 (defcustom server-switch-hook nil
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
91 "*Hook run when switching to a buffer for the Emacs server."
19418
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
92 :group 'server
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
93 :type 'hook)
19418
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
94
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
95 (defcustom server-done-hook nil
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
96 "*Hook run when done editing a buffer for the Emacs server."
19418
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
97 :group 'server
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
98 :type 'hook)
7597
99a600c67e82 (server-done-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents: 7553
diff changeset
99
49206
7ebd98bb02a2 (server-process-filter): Use `minibufferp' to test
John Paul Wallington <jpw@pobox.com>
parents: 49187
diff changeset
100 (defvar server-process nil
7ebd98bb02a2 (server-process-filter): Use `minibufferp' to test
John Paul Wallington <jpw@pobox.com>
parents: 49187
diff changeset
101 "The current server process.")
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
102
38da30b6253c Initial revision
root <root>
parents:
diff changeset
103 (defvar server-clients nil
38da30b6253c Initial revision
root <root>
parents:
diff changeset
104 "List of current server clients.
7736
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
105 Each element is (CLIENTID BUFFERS...) where CLIENTID is a string
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
106 that can be given to the server process to identify a client.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
107 When a buffer is marked as \"done\", it is removed from this list.")
38da30b6253c Initial revision
root <root>
parents:
diff changeset
108
38da30b6253c Initial revision
root <root>
parents:
diff changeset
109 (defvar server-buffer-clients nil
38010
8a8cf4d74475 (server-process, server-buffer-clients): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 37273
diff changeset
110 "List of client ids for clients requesting editing of current buffer.")
6176
1dbec303c87b (kill-emacs-query-functions, kill-buffer-query-functions):
Richard M. Stallman <rms@gnu.org>
parents: 5749
diff changeset
111 (make-variable-buffer-local 'server-buffer-clients)
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
112 ;; Changing major modes should not erase this local.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
113 (put 'server-buffer-clients 'permanent-local t)
38da30b6253c Initial revision
root <root>
parents:
diff changeset
114
49267
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
115 (defcustom server-window nil
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
116 "*Specification of the window to use for selecting Emacs server buffers.
3661
65d530f613a8 (server-window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 2866
diff changeset
117 If nil, use the selected window.
49267
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
118 If it is a function, it should take one argument (a buffer) and
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
119 display and select it. A common value is `pop-to-buffer'.
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
120 If it is a window, use that.
48123
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
121 If it is a frame, use the frame's selected window.
49267
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
122
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
123 It is not meaningful to set this to a specific frame or window with Custom.
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
124 Only programs can do so."
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
125 :group 'server
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 59220
diff changeset
126 :version "22.1"
49267
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
127 :type '(choice (const :tag "Use selected window"
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
128 :match (lambda (widget value)
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
129 (not (functionp value)))
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
130 nil)
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
131 (function-item :tag "Use pop-to-buffer" pop-to-buffer)
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
132 (function :tag "Other function")))
3661
65d530f613a8 (server-window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 2866
diff changeset
133
19418
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
134 (defcustom server-temp-file-regexp "^/tmp/Re\\|/draft$"
49267
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
135 "*Regexp matching names of temporary files.
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
136 These are deleted and reused after each edit by the programs that
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
137 invoke the Emacs server."
19418
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
138 :group 'server
142900099257 Customized.
Richard M. Stallman <rms@gnu.org>
parents: 18049
diff changeset
139 :type 'regexp)
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
140
31008
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
141 (defcustom server-kill-new-buffers t
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
142 "*Whether to kill buffers when done with them.
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
143 If non-nil, kill a buffer unless it already existed before editing
49206
7ebd98bb02a2 (server-process-filter): Use `minibufferp' to test
John Paul Wallington <jpw@pobox.com>
parents: 49187
diff changeset
144 it with Emacs server. If nil, kill only buffers as specified by
31008
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
145 `server-temp-file-regexp'.
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
146 Please note that only buffers are killed that still have a client,
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
147 i.e. buffers visited which \"emacsclient --no-wait\" are never killed in
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
148 this way."
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
149 :group 'server
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
150 :type 'boolean
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
151 :version "21.1")
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
152
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
153 (or (assq 'server-buffer-clients minor-mode-alist)
38da30b6253c Initial revision
root <root>
parents:
diff changeset
154 (setq minor-mode-alist (cons '(server-buffer-clients " Server") minor-mode-alist)))
38da30b6253c Initial revision
root <root>
parents:
diff changeset
155
31008
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
156 (defvar server-existing-buffer nil
47524
95ba2ac51138 (server-done): Fix harmlessly wrong arg to save-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47517
diff changeset
157 "Non-nil means the buffer existed before the server was asked to visit it.
40915
e26c1e76e1ca (server-buffer-done): Test of server-existing-buffer was backwards.
Richard M. Stallman <rms@gnu.org>
parents: 39177
diff changeset
158 This means that the server should not kill the buffer when you say you
47524
95ba2ac51138 (server-done): Fix harmlessly wrong arg to save-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47517
diff changeset
159 are done with it in the server.")
31008
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
160 (make-variable-buffer-local 'server-existing-buffer)
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
161
54357
367f0279478f (server-name): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53736
diff changeset
162 (defvar server-name "server")
367f0279478f (server-name): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53736
diff changeset
163
367f0279478f (server-name): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53736
diff changeset
164 (defvar server-socket-dir
367f0279478f (server-name): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53736
diff changeset
165 (format "/tmp/emacs%d" (user-uid)))
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
166
47517
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
167 (defun server-log (string &optional client)
49267
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
168 "If a *server* buffer exists, write STRING to it for logging purposes."
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
169 (if (get-buffer "*server*")
47517
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
170 (with-current-buffer "*server*"
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
171 (goto-char (point-max))
47517
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
172 (insert (current-time-string)
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
173 (if client (format " %s:" client) " ")
47517
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
174 string)
13468
2c8da6b3b9e0 (server-log): Record the current time.
Richard M. Stallman <rms@gnu.org>
parents: 13157
diff changeset
175 (or (bolp) (newline)))))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
176
38da30b6253c Initial revision
root <root>
parents:
diff changeset
177 (defun server-sentinel (proc msg)
48123
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
178 (let ((client (assq proc server-clients)))
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
179 ;; Remove PROC from the list of clients.
48123
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
180 (when client
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
181 (setq server-clients (delq client server-clients))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
182 (dolist (buf (cdr client))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
183 (with-current-buffer buf
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
184 ;; Remove PROC from the clients of each buffer.
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
185 (setq server-buffer-clients (delq proc server-buffer-clients))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
186 ;; Kill the buffer if necessary.
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
187 (when (and (null server-buffer-clients)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
188 (or (and server-kill-new-buffers
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
189 (not server-existing-buffer))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
190 (server-temp-file-p)))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
191 (kill-buffer (current-buffer)))))))
66388
ad0d12f9aa9e (server-sentinel): Set query-on-exit flag to nil on new client processes
Romain Francoise <romain@orebokech.com>
parents: 65582
diff changeset
192 ;; If this is a new client process, set the query-on-exit flag to nil
ad0d12f9aa9e (server-sentinel): Set query-on-exit flag to nil on new client processes
Romain Francoise <romain@orebokech.com>
parents: 65582
diff changeset
193 ;; for this process (it isn't inherited from the server process).
ad0d12f9aa9e (server-sentinel): Set query-on-exit flag to nil on new client processes
Romain Francoise <romain@orebokech.com>
parents: 65582
diff changeset
194 (when (and (eq (process-status proc) 'open)
ad0d12f9aa9e (server-sentinel): Set query-on-exit flag to nil on new client processes
Romain Francoise <romain@orebokech.com>
parents: 65582
diff changeset
195 (process-query-on-exit-flag proc))
ad0d12f9aa9e (server-sentinel): Set query-on-exit flag to nil on new client processes
Romain Francoise <romain@orebokech.com>
parents: 65582
diff changeset
196 (set-process-query-on-exit-flag proc nil))
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
197 (server-log (format "Status changed to %s" (process-status proc)) proc))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
198
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
199 (defun server-select-display (display)
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
200 ;; If the current frame is on `display' we're all set.
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
201 (unless (equal (frame-parameter (selected-frame) 'display) display)
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
202 ;; Otherwise, look for an existing frame there and select it.
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
203 (dolist (frame (frame-list))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
204 (when (equal (frame-parameter frame 'display) display)
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
205 (select-frame frame)))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
206 ;; If there's no frame on that display yet, create a dummy one
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
207 ;; and select it.
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
208 (unless (equal (frame-parameter (selected-frame) 'display) display)
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
209 (select-frame
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
210 (make-frame-on-display
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
211 display
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
212 ;; This frame is only there in place of an actual "current display"
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
213 ;; setting, so we want it to be as unobtrusive as possible. That's
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
214 ;; what the invisibility is for. The minibuffer setting is so that
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
215 ;; we don't end up displaying a buffer in it (which noone would
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
216 ;; notice).
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
217 '((visibility . nil) (minibuffer . only)))))))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
218
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
219 (defun server-unquote-arg (arg)
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
220 (replace-regexp-in-string
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
221 "&." (lambda (s)
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
222 (case (aref s 1)
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
223 (?& "&")
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
224 (?- "-")
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
225 (?n "\n")
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
226 (t " ")))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
227 arg t t))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
228
50567
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
229 (defun server-ensure-safe-dir (dir)
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
230 "Make sure DIR is a directory with no race-condition issues.
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
231 Creates the directory if necessary and makes sure:
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
232 - there's no symlink involved
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
233 - it's owned by us
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
234 - it's not readable/writable by anybody else."
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
235 (setq dir (directory-file-name dir))
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
236 (let ((attrs (file-attributes dir)))
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
237 (unless attrs
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
238 (letf (((default-file-modes) ?\700)) (make-directory dir))
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
239 (setq attrs (file-attributes dir)))
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
240 ;; Check that it's safe for use.
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
241 (unless (and (eq t (car attrs)) (eq (nth 2 attrs) (user-uid))
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
242 (zerop (logand ?\077 (file-modes dir))))
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
243 (error "The directory %s is unsafe" dir))))
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
244
256
7e4c7ef44243 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 138
diff changeset
245 ;;;###autoload
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
246 (defun server-start (&optional leave-dead)
38da30b6253c Initial revision
root <root>
parents:
diff changeset
247 "Allow this Emacs process to be a server for client processes.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
248 This starts a server communications subprocess through which
38da30b6253c Initial revision
root <root>
parents:
diff changeset
249 client \"editors\" can send your editing commands to this Emacs job.
7855
69ec123ef310 (server-start): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7736
diff changeset
250 To use the server, set up the program `emacsclient' in the
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
251 Emacs distribution as your standard \"editor\".
38da30b6253c Initial revision
root <root>
parents:
diff changeset
252
38da30b6253c Initial revision
root <root>
parents:
diff changeset
253 Prefix arg means just kill any existing server communications subprocess."
38da30b6253c Initial revision
root <root>
parents:
diff changeset
254 (interactive "P")
38da30b6253c Initial revision
root <root>
parents:
diff changeset
255 ;; kill it dead!
52045
283657e79b56 (server-start): Check `server-process' is non-nil
John Paul Wallington <jpw@pobox.com>
parents: 50568
diff changeset
256 (if server-process
283657e79b56 (server-start): Check `server-process' is non-nil
John Paul Wallington <jpw@pobox.com>
parents: 50568
diff changeset
257 (condition-case () (delete-process server-process) (error nil)))
16789
85b1a10101ff (server-start): Don't delete ~/.emacs-server.
Richard M. Stallman <rms@gnu.org>
parents: 16075
diff changeset
258 ;; Delete the socket files made by previous server invocations.
54357
367f0279478f (server-name): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53736
diff changeset
259 (condition-case ()
367f0279478f (server-name): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53736
diff changeset
260 (delete-file (expand-file-name server-name server-socket-dir))
367f0279478f (server-name): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53736
diff changeset
261 (error nil))
16789
85b1a10101ff (server-start): Don't delete ~/.emacs-server.
Richard M. Stallman <rms@gnu.org>
parents: 16075
diff changeset
262 ;; If this Emacs already had a server, clear out associated status.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
263 (while server-clients
38da30b6253c Initial revision
root <root>
parents:
diff changeset
264 (let ((buffer (nth 1 (car server-clients))))
38da30b6253c Initial revision
root <root>
parents:
diff changeset
265 (server-buffer-done buffer)))
70672
06de67179ba1 (server-start): Only create a directory if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70420
diff changeset
266 ;; Now any previous server is properly stopped.
47517
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
267 (unless leave-dead
70672
06de67179ba1 (server-start): Only create a directory if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70420
diff changeset
268 ;; Make sure there is a safe directory in which to place the socket.
06de67179ba1 (server-start): Only create a directory if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70420
diff changeset
269 (server-ensure-safe-dir server-socket-dir)
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
270 (if server-process
38da30b6253c Initial revision
root <root>
parents:
diff changeset
271 (server-log (message "Restarting server")))
50568
6958557aad9b (server-start): Use letf.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50567
diff changeset
272 (letf (((default-file-modes) ?\700))
6958557aad9b (server-start): Use letf.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50567
diff changeset
273 (setq server-process
6958557aad9b (server-start): Use letf.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50567
diff changeset
274 (make-network-process
6958557aad9b (server-start): Use letf.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50567
diff changeset
275 :name "server" :family 'local :server t :noquery t
54357
367f0279478f (server-name): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53736
diff changeset
276 :service (expand-file-name server-name server-socket-dir)
50568
6958557aad9b (server-start): Use letf.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50567
diff changeset
277 :sentinel 'server-sentinel :filter 'server-process-filter
6958557aad9b (server-start): Use letf.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50567
diff changeset
278 ;; We must receive file names without being decoded.
6958557aad9b (server-start): Use letf.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50567
diff changeset
279 ;; Those are decoded by server-process-filter according
6958557aad9b (server-start): Use letf.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50567
diff changeset
280 ;; to file-name-coding-system.
6958557aad9b (server-start): Use letf.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50567
diff changeset
281 :coding 'raw-text)))))
49267
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
282
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
283 ;;;###autoload
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
284 (define-minor-mode server-mode
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
285 "Toggle Server mode.
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
286 With ARG, turn Server mode on if ARG is positive, off otherwise.
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
287 Server mode runs a process that accepts commands from the
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
288 `emacsclient' program. See `server-start' and Info node `Emacs server'."
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
289 :global t
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
290 :group 'server
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 59220
diff changeset
291 :version "22.1"
49267
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
292 ;; Fixme: Should this check for an existing server socket and do
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
293 ;; nothing if there is one (for multiple Emacs sessions)?
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
294 (server-start (not server-mode)))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
295
38da30b6253c Initial revision
root <root>
parents:
diff changeset
296 (defun server-process-filter (proc string)
49267
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
297 "Process a request from the server to edit some files.
cc4646701e99 (server-window): Customize.
Dave Love <fx@gnu.org>
parents: 49206
diff changeset
298 PROC is the server process. Format of STRING is \"PATH PATH PATH... \\n\"."
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
299 (server-log string proc)
49686
64195811ff44 (server-previous-strings): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49267
diff changeset
300 (let ((prev (process-get proc 'previous-string)))
64195811ff44 (server-previous-strings): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49267
diff changeset
301 (when prev
64195811ff44 (server-previous-strings): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49267
diff changeset
302 (setq string (concat prev string))
64195811ff44 (server-previous-strings): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49267
diff changeset
303 (process-put proc 'previous-string nil)))
10281
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
304 ;; If the input is multiple lines,
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
305 ;; process each line individually.
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
306 (while (string-match "\n" string)
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
307 (let ((request (substring string 0 (match-beginning 0)))
24474
3b77bf7b709e (server-start): Set coding system for the server
Kenichi Handa <handa@m17n.org>
parents: 21941
diff changeset
308 (coding-system (and default-enable-multibyte-characters
3b77bf7b709e (server-start): Set coding system for the server
Kenichi Handa <handa@m17n.org>
parents: 21941
diff changeset
309 (or file-name-coding-system
3b77bf7b709e (server-start): Set coding system for the server
Kenichi Handa <handa@m17n.org>
parents: 21941
diff changeset
310 default-file-name-coding-system)))
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
311 client nowait eval
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
312 (files nil)
38462
a7043adf8855 (server-visit-files): Handle the case the specified
Gerd Moellmann <gerd@gnu.org>
parents: 38412
diff changeset
313 (lineno 1)
54431
3e8ea09f9375 (server-process-filter): Delete temp frame.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54357
diff changeset
314 (tmp-frame nil) ; Sometimes used to embody the selected display.
38462
a7043adf8855 (server-visit-files): Handle the case the specified
Gerd Moellmann <gerd@gnu.org>
parents: 38412
diff changeset
315 (columnno 0))
10281
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
316 ;; Remove this line from STRING.
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
317 (setq string (substring string (match-end 0)))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
318 (setq client (cons proc nil))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
319 (while (string-match "[^ ]* " request)
50567
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
320 (let ((arg (substring request (match-beginning 0) (1- (match-end 0)))))
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
321 (setq request (substring request (match-end 0)))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
322 (cond
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
323 ((equal "-nowait" arg) (setq nowait t))
50567
1b32397dd4e2 (server-socket-name): Use new safe location for socket.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49686
diff changeset
324 ((equal "-eval" arg) (setq eval t))
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
325 ((and (equal "-display" arg) (string-match "\\([^ ]*\\) " request))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
326 (let ((display (server-unquote-arg (match-string 1 request))))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
327 (setq request (substring request (match-end 0)))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
328 (condition-case err
54431
3e8ea09f9375 (server-process-filter): Delete temp frame.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54357
diff changeset
329 (setq tmp-frame (server-select-display display))
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
330 (error (process-send-string proc (nth 1 err))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
331 (setq request "")))))
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
332 ;; ARG is a line number option.
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
333 ((string-match "\\`\\+[0-9]+\\'" arg)
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 59996
diff changeset
334 (setq lineno (string-to-number (substring arg 1))))
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
335 ;; ARG is line number:column option.
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
336 ((string-match "\\`+\\([0-9]+\\):\\([0-9]+\\)\\'" arg)
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 59996
diff changeset
337 (setq lineno (string-to-number (match-string 1 arg))
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 59996
diff changeset
338 columnno (string-to-number (match-string 2 arg))))
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
339 (t
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
340 ;; Undo the quoting that emacsclient does
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
341 ;; for certain special characters.
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
342 (setq arg (server-unquote-arg arg))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
343 ;; Now decode the file name if necessary.
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
344 (if coding-system
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
345 (setq arg (decode-coding-string arg coding-system)))
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
346 (if eval
69276
8c9110e3c96e (server-process-filter): Handle errors during
Andreas Schwab <schwab@suse.de>
parents: 68651
diff changeset
347 (let* (errorp
8c9110e3c96e (server-process-filter): Handle errors during
Andreas Schwab <schwab@suse.de>
parents: 68651
diff changeset
348 (v (condition-case errobj
8c9110e3c96e (server-process-filter): Handle errors during
Andreas Schwab <schwab@suse.de>
parents: 68651
diff changeset
349 (eval (car (read-from-string arg)))
8c9110e3c96e (server-process-filter): Handle errors during
Andreas Schwab <schwab@suse.de>
parents: 68651
diff changeset
350 (error (setq errorp t) errobj))))
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
351 (when v
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
352 (with-temp-buffer
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
353 (let ((standard-output (current-buffer)))
69276
8c9110e3c96e (server-process-filter): Handle errors during
Andreas Schwab <schwab@suse.de>
parents: 68651
diff changeset
354 (if errorp (princ "error: "))
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
355 (pp v)
57379
ea05d398b4d7 (server-process-filter): Wrap `process-send-region'
Masatake YAMATO <jet@gyve.org>
parents: 54431
diff changeset
356 ;; Suppress the error rose when the pipe to PROC is closed.
ea05d398b4d7 (server-process-filter): Wrap `process-send-region'
Masatake YAMATO <jet@gyve.org>
parents: 54431
diff changeset
357 (condition-case err
ea05d398b4d7 (server-process-filter): Wrap `process-send-region'
Masatake YAMATO <jet@gyve.org>
parents: 54431
diff changeset
358 (process-send-region proc (point-min) (point-max))
59220
2375d42b7362 * server.el (server-process-filter): Suppress `error', too.
Masatake YAMATO <jet@gyve.org>
parents: 57543
diff changeset
359 (file-error nil)
2375d42b7362 * server.el (server-process-filter): Suppress `error', too.
Masatake YAMATO <jet@gyve.org>
parents: 57543
diff changeset
360 (error nil))
57379
ea05d398b4d7 (server-process-filter): Wrap `process-send-region'
Masatake YAMATO <jet@gyve.org>
parents: 54431
diff changeset
361 ))))
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
362 ;; ARG is a file name.
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
363 ;; Collapse multiple slashes to single slashes.
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
364 (setq arg (command-line-normalize-file-name arg))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
365 (push (list arg lineno columnno) files))
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
366 (setq lineno 1)
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
367 (setq columnno 0)))))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
368 (when files
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
369 (run-hooks 'pre-command-hook)
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
370 (server-visit-files files client nowait)
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
371 (run-hooks 'post-command-hook))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
372 ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
373 (if (null (cdr client))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
374 ;; This client is empty; get rid of it immediately.
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
375 (progn
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
376 (delete-process proc)
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
377 (server-log "Close empty client" proc))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
378 ;; We visited some buffer for this client.
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
379 (or nowait (push client server-clients))
49206
7ebd98bb02a2 (server-process-filter): Use `minibufferp' to test
John Paul Wallington <jpw@pobox.com>
parents: 49187
diff changeset
380 (unless (or isearch-mode (minibufferp))
49187
c9f452e277ea (server-process-filter): Comment out -eval.
Richard M. Stallman <rms@gnu.org>
parents: 48123
diff changeset
381 (server-switch-buffer (nth 1 client))
c9f452e277ea (server-process-filter): Comment out -eval.
Richard M. Stallman <rms@gnu.org>
parents: 48123
diff changeset
382 (run-hooks 'server-switch-hook)
c9f452e277ea (server-process-filter): Comment out -eval.
Richard M. Stallman <rms@gnu.org>
parents: 48123
diff changeset
383 (unless nowait
65582
4d1085b02d64 Message format spec fixes (1)
Deepak Goel <deego@gnufans.org>
parents: 64762
diff changeset
384 (message "%s" (substitute-command-keys
54431
3e8ea09f9375 (server-process-filter): Delete temp frame.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54357
diff changeset
385 "When done with a buffer, type \\[server-edit]")))))
3e8ea09f9375 (server-process-filter): Delete temp frame.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54357
diff changeset
386 ;; Avoid preserving the connection after the last real frame is deleted.
3e8ea09f9375 (server-process-filter): Delete temp frame.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54357
diff changeset
387 (if tmp-frame (delete-frame tmp-frame))))
10281
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
388 ;; Save for later any partial line that remains.
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
389 (when (> (length string) 0)
49686
64195811ff44 (server-previous-strings): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49267
diff changeset
390 (process-put proc 'previous-string string)))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
391
46907
ce6e92081932 (server-process-filter): Simplify code.
Richard M. Stallman <rms@gnu.org>
parents: 42140
diff changeset
392 (defun server-goto-line-column (file-line-col)
ce6e92081932 (server-process-filter): Simplify code.
Richard M. Stallman <rms@gnu.org>
parents: 42140
diff changeset
393 (goto-line (nth 1 file-line-col))
ce6e92081932 (server-process-filter): Simplify code.
Richard M. Stallman <rms@gnu.org>
parents: 42140
diff changeset
394 (let ((column-number (nth 2 file-line-col)))
ce6e92081932 (server-process-filter): Simplify code.
Richard M. Stallman <rms@gnu.org>
parents: 42140
diff changeset
395 (if (> column-number 0)
ce6e92081932 (server-process-filter): Simplify code.
Richard M. Stallman <rms@gnu.org>
parents: 42140
diff changeset
396 (move-to-column (1- column-number)))))
ce6e92081932 (server-process-filter): Simplify code.
Richard M. Stallman <rms@gnu.org>
parents: 42140
diff changeset
397
15956
0cefc98d243d (server-visit-files): New argument NOWAIT.
Richard M. Stallman <rms@gnu.org>
parents: 14717
diff changeset
398 (defun server-visit-files (files client &optional nowait)
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
399 "Find FILES and return the list CLIENT with the buffers nconc'd.
38462
a7043adf8855 (server-visit-files): Handle the case the specified
Gerd Moellmann <gerd@gnu.org>
parents: 38412
diff changeset
400 FILES is an alist whose elements are (FILENAME LINENUMBER COLUMNNUMBER).
15956
0cefc98d243d (server-visit-files): New argument NOWAIT.
Richard M. Stallman <rms@gnu.org>
parents: 14717
diff changeset
401 NOWAIT non-nil means this client is not waiting for the results,
0cefc98d243d (server-visit-files): New argument NOWAIT.
Richard M. Stallman <rms@gnu.org>
parents: 14717
diff changeset
402 so don't mark these buffers specially, just visit them normally."
7736
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
403 ;; Bind last-nonmenu-event to force use of keyboard, not mouse, for queries.
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
404 (let ((last-nonmenu-event t) client-record)
4500
56d7c4beae9f (server-visit-files): Restore current-buffer by hand,
Richard M. Stallman <rms@gnu.org>
parents: 4096
diff changeset
405 ;; Restore the current buffer afterward, but not using save-excursion,
56d7c4beae9f (server-visit-files): Restore current-buffer by hand,
Richard M. Stallman <rms@gnu.org>
parents: 4096
diff changeset
406 ;; because we don't want to save point in this buffer
56d7c4beae9f (server-visit-files): Restore current-buffer by hand,
Richard M. Stallman <rms@gnu.org>
parents: 4096
diff changeset
407 ;; if it happens to be one of those specified by the server.
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
408 (save-current-buffer
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
409 (dolist (file files)
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
410 ;; If there is an existing buffer modified or the file is
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
411 ;; modified, revert it. If there is an existing buffer with
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
412 ;; deleted file, offer to write it.
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
413 (let* ((filen (car file))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
414 (obuf (get-file-buffer filen)))
70420
718312081ce0 (server-visit-files): Use add-to-history.
Kim F. Storm <storm@cua.dk>
parents: 69276
diff changeset
415 (add-to-history 'file-name-history filen)
47645
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
416 (if (and obuf (set-buffer obuf))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
417 (progn
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
418 (cond ((file-exists-p filen)
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
419 (if (not (verify-visited-file-modtime obuf))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
420 (revert-buffer t nil)))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
421 (t
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
422 (if (y-or-n-p
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
423 (concat "File no longer exists: "
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
424 filen
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
425 ", write buffer to file? "))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
426 (write-file filen))))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
427 (setq server-existing-buffer t)
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
428 (server-goto-line-column file))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
429 (set-buffer (find-file-noselect filen))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
430 (server-goto-line-column file)
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
431 (run-hooks 'server-visit-hook)))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
432 (unless nowait
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
433 ;; When the buffer is killed, inform the clients.
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
434 (add-hook 'kill-buffer-hook 'server-kill-buffer nil t)
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
435 (push (car client) server-buffer-clients))
d033b85fc797 (server-select-display): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47612
diff changeset
436 (push (current-buffer) client-record)))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
437 (nconc client client-record)))
38da30b6253c Initial revision
root <root>
parents:
diff changeset
438
17712
41a4624c1e79 (server-buffer-done): New arg FOR-KILLING.
Richard M. Stallman <rms@gnu.org>
parents: 17434
diff changeset
439 (defun server-buffer-done (buffer &optional for-killing)
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
440 "Mark BUFFER as \"done\" for its client(s).
10961
88cba63f2a9b (server-buffer-done): Return a list
Richard M. Stallman <rms@gnu.org>
parents: 10281
diff changeset
441 This buries the buffer, then returns a list of the form (NEXT-BUFFER KILLED).
88cba63f2a9b (server-buffer-done): Return a list
Richard M. Stallman <rms@gnu.org>
parents: 10281
diff changeset
442 NEXT-BUFFER is another server buffer, as a suggestion for what to select next,
47517
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
443 or nil. KILLED is t if we killed BUFFER (typically, because it was visiting
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
444 a temp file).
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
445 FOR-KILLING if non-nil indicates that we are called from `kill-buffer'."
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
446 (let ((next-buffer nil)
10961
88cba63f2a9b (server-buffer-done): Return a list
Richard M. Stallman <rms@gnu.org>
parents: 10281
diff changeset
447 (killed nil)
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
448 (old-clients server-clients))
38da30b6253c Initial revision
root <root>
parents:
diff changeset
449 (while old-clients
38da30b6253c Initial revision
root <root>
parents:
diff changeset
450 (let ((client (car old-clients)))
47517
8e9589a87f9b (server-log): Add `client' arg.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46907
diff changeset
451 (or next-buffer
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
452 (setq next-buffer (nth 1 (memq buffer client))))
38da30b6253c Initial revision
root <root>
parents:
diff changeset
453 (delq buffer client)
10281
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
454 ;; Delete all dead buffers from CLIENT.
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
455 (let ((tail client))
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
456 (while tail
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
457 (and (bufferp (car tail))
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
458 (null (buffer-name (car tail)))
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
459 (delq (car tail) client))
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
460 (setq tail (cdr tail))))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
461 ;; If client now has no pending buffers,
38da30b6253c Initial revision
root <root>
parents:
diff changeset
462 ;; tell it that it is done, and forget it entirely.
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
463 (unless (cdr client)
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
464 (delete-process (car client))
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
465 (server-log "Close" (car client))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
466 (setq server-clients (delq client server-clients))))
38da30b6253c Initial revision
root <root>
parents:
diff changeset
467 (setq old-clients (cdr old-clients)))
10281
44d98e169823 (server-process-filter): Process each line separately.
Richard M. Stallman <rms@gnu.org>
parents: 10218
diff changeset
468 (if (and (bufferp buffer) (buffer-name buffer))
21941
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
469 ;; We may or may not kill this buffer;
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
470 ;; if we do, do not call server-buffer-done recursively
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
471 ;; from kill-buffer-hook.
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
472 (let ((server-kill-buffer-running t))
48123
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
473 (with-current-buffer buffer
7597
99a600c67e82 (server-done-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents: 7553
diff changeset
474 (setq server-buffer-clients nil)
99a600c67e82 (server-done-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents: 7553
diff changeset
475 (run-hooks 'server-done-hook))
21941
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
476 ;; Notice whether server-done-hook killed the buffer.
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
477 (if (null (buffer-name buffer))
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
478 (setq killed t)
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
479 ;; Don't bother killing or burying the buffer
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
480 ;; when we are called from kill-buffer.
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
481 (unless for-killing
31008
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
482 (when (and (not killed)
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
483 server-kill-new-buffers
40915
e26c1e76e1ca (server-buffer-done): Test of server-existing-buffer was backwards.
Richard M. Stallman <rms@gnu.org>
parents: 39177
diff changeset
484 (with-current-buffer buffer
e26c1e76e1ca (server-buffer-done): Test of server-existing-buffer was backwards.
Richard M. Stallman <rms@gnu.org>
parents: 39177
diff changeset
485 (not server-existing-buffer)))
31008
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
486 (setq killed t)
34685
7218b9b8c2ad (server-buffer-done): Bury the buffer before
Gerd Moellmann <gerd@gnu.org>
parents: 34344
diff changeset
487 (bury-buffer buffer)
31008
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
488 (kill-buffer buffer))
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
489 (unless killed
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
490 (if (server-temp-file-p buffer)
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
491 (progn
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
492 (kill-buffer buffer)
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
493 (setq killed t))
ac8beefc28a9 (server-kill-new-buffers): New user option.
Gerd Moellmann <gerd@gnu.org>
parents: 30004
diff changeset
494 (bury-buffer buffer)))))))
10961
88cba63f2a9b (server-buffer-done): Return a list
Richard M. Stallman <rms@gnu.org>
parents: 10281
diff changeset
495 (list next-buffer killed)))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
496
48123
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
497 (defun server-temp-file-p (&optional buffer)
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
498 "Return non-nil if BUFFER contains a file considered temporary.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
499 These are files whose names suggest they are repeatedly
38da30b6253c Initial revision
root <root>
parents:
diff changeset
500 reused to pass information to another program.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
501
38da30b6253c Initial revision
root <root>
parents:
diff changeset
502 The variable `server-temp-file-regexp' controls which filenames
38da30b6253c Initial revision
root <root>
parents:
diff changeset
503 are considered temporary."
38da30b6253c Initial revision
root <root>
parents:
diff changeset
504 (and (buffer-file-name buffer)
38da30b6253c Initial revision
root <root>
parents:
diff changeset
505 (string-match server-temp-file-regexp (buffer-file-name buffer))))
38da30b6253c Initial revision
root <root>
parents:
diff changeset
506
38da30b6253c Initial revision
root <root>
parents:
diff changeset
507 (defun server-done ()
1540
f3554332993b Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 1079
diff changeset
508 "Offer to save current buffer, mark it as \"done\" for clients.
40972
cb428483fb22 (server-edit, server-done): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40915
diff changeset
509 This kills or buries the buffer, then returns a list
cb428483fb22 (server-edit, server-done): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40915
diff changeset
510 of the form (NEXT-BUFFER KILLED). NEXT-BUFFER is another server buffer,
cb428483fb22 (server-edit, server-done): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40915
diff changeset
511 as a suggestion for what to select next, or nil.
cb428483fb22 (server-edit, server-done): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40915
diff changeset
512 KILLED is t if we killed BUFFER, which happens if it was created
cb428483fb22 (server-edit, server-done): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40915
diff changeset
513 specifically for the clients and did not exist before their request for it."
48123
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
514 (when server-buffer-clients
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
515 (if (server-temp-file-p)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
516 ;; For a temp file, save, and do make a non-numeric backup
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
517 ;; (unless make-backup-files is nil).
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
518 (let ((version-control nil)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
519 (buffer-backed-up nil))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
520 (save-buffer))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
521 (if (and (buffer-modified-p)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
522 buffer-file-name
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
523 (y-or-n-p (concat "Save file " buffer-file-name "? ")))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
524 (save-buffer)))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
525 (server-buffer-done (current-buffer))))
6176
1dbec303c87b (kill-emacs-query-functions, kill-buffer-query-functions):
Richard M. Stallman <rms@gnu.org>
parents: 5749
diff changeset
526
9883
7c4393810151 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 9252
diff changeset
527 ;; Ask before killing a server buffer.
7c4393810151 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 9252
diff changeset
528 ;; It was suggested to release its client instead,
7c4393810151 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 9252
diff changeset
529 ;; but I think that is dangerous--the client would proceed
7c4393810151 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 9252
diff changeset
530 ;; using whatever is on disk in that file. -- rms.
6993
0983fe01e614 (server-kill-emacs-query-function)
Richard M. Stallman <rms@gnu.org>
parents: 6960
diff changeset
531 (defun server-kill-buffer-query-function ()
0983fe01e614 (server-kill-emacs-query-function)
Richard M. Stallman <rms@gnu.org>
parents: 6960
diff changeset
532 (or (not server-buffer-clients)
0983fe01e614 (server-kill-emacs-query-function)
Richard M. Stallman <rms@gnu.org>
parents: 6960
diff changeset
533 (yes-or-no-p (format "Buffer `%s' still has clients; kill it? "
0983fe01e614 (server-kill-emacs-query-function)
Richard M. Stallman <rms@gnu.org>
parents: 6960
diff changeset
534 (buffer-name (current-buffer))))))
0983fe01e614 (server-kill-emacs-query-function)
Richard M. Stallman <rms@gnu.org>
parents: 6960
diff changeset
535
6176
1dbec303c87b (kill-emacs-query-functions, kill-buffer-query-functions):
Richard M. Stallman <rms@gnu.org>
parents: 5749
diff changeset
536 (add-hook 'kill-buffer-query-functions
6993
0983fe01e614 (server-kill-emacs-query-function)
Richard M. Stallman <rms@gnu.org>
parents: 6960
diff changeset
537 'server-kill-buffer-query-function)
6176
1dbec303c87b (kill-emacs-query-functions, kill-buffer-query-functions):
Richard M. Stallman <rms@gnu.org>
parents: 5749
diff changeset
538
6993
0983fe01e614 (server-kill-emacs-query-function)
Richard M. Stallman <rms@gnu.org>
parents: 6960
diff changeset
539 (defun server-kill-emacs-query-function ()
7736
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
540 (let (live-client
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
541 (tail server-clients))
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
542 ;; See if any clients have any buffers that are still alive.
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
543 (while tail
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
544 (if (memq t (mapcar 'stringp (mapcar 'buffer-name (cdr (car tail)))))
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
545 (setq live-client t))
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
546 (setq tail (cdr tail)))
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
547 (or (not live-client)
8c8410bc0f1b (server-visit-files): Bind last-nonmenu-event.
Richard M. Stallman <rms@gnu.org>
parents: 7597
diff changeset
548 (yes-or-no-p "Server buffers still have clients; exit anyway? "))))
6993
0983fe01e614 (server-kill-emacs-query-function)
Richard M. Stallman <rms@gnu.org>
parents: 6960
diff changeset
549
0983fe01e614 (server-kill-emacs-query-function)
Richard M. Stallman <rms@gnu.org>
parents: 6960
diff changeset
550 (add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
17712
41a4624c1e79 (server-buffer-done): New arg FOR-KILLING.
Richard M. Stallman <rms@gnu.org>
parents: 17434
diff changeset
551
18049
f1fa9625e2b9 (server-kill-buffer): Prevent infinite recursion.
Richard M. Stallman <rms@gnu.org>
parents: 17970
diff changeset
552 (defvar server-kill-buffer-running nil
21941
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
553 "Non-nil while `server-kill-buffer' or `server-buffer-done' is running.")
18049
f1fa9625e2b9 (server-kill-buffer): Prevent infinite recursion.
Richard M. Stallman <rms@gnu.org>
parents: 17970
diff changeset
554
17712
41a4624c1e79 (server-buffer-done): New arg FOR-KILLING.
Richard M. Stallman <rms@gnu.org>
parents: 17434
diff changeset
555 (defun server-kill-buffer ()
18049
f1fa9625e2b9 (server-kill-buffer): Prevent infinite recursion.
Richard M. Stallman <rms@gnu.org>
parents: 17970
diff changeset
556 ;; Prevent infinite recursion if user has made server-done-hook
f1fa9625e2b9 (server-kill-buffer): Prevent infinite recursion.
Richard M. Stallman <rms@gnu.org>
parents: 17970
diff changeset
557 ;; call kill-buffer.
f1fa9625e2b9 (server-kill-buffer): Prevent infinite recursion.
Richard M. Stallman <rms@gnu.org>
parents: 17970
diff changeset
558 (or server-kill-buffer-running
21941
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
559 (and server-buffer-clients
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
560 (let ((server-kill-buffer-running t))
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
561 (when server-process
1baa3e876ad0 (server-buffer-done): Bind server-kill-buffer-running
Richard M. Stallman <rms@gnu.org>
parents: 19418
diff changeset
562 (server-buffer-done (current-buffer) t))))))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
563
38da30b6253c Initial revision
root <root>
parents:
diff changeset
564 (defun server-edit (&optional arg)
38da30b6253c Initial revision
root <root>
parents:
diff changeset
565 "Switch to next server editing buffer; say \"Done\" for current buffer.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
566 If a server buffer is current, it is marked \"done\" and optionally saved.
40972
cb428483fb22 (server-edit, server-done): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40915
diff changeset
567 The buffer is also killed if it did not exist before the clients asked for it.
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
568 When all of a client's buffers are marked as \"done\", the client is notified.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
569
38da30b6253c Initial revision
root <root>
parents:
diff changeset
570 Temporary files such as MH <draft> files are always saved and backed up,
4096
badd80e9e4fc (server-done): Let save-buffer make the backup,
Richard M. Stallman <rms@gnu.org>
parents: 3746
diff changeset
571 no questions asked. (The variable `make-backup-files', if nil, still
badd80e9e4fc (server-done): Let save-buffer make the backup,
Richard M. Stallman <rms@gnu.org>
parents: 3746
diff changeset
572 inhibits a backup; you can set it locally in a particular buffer to
badd80e9e4fc (server-done): Let save-buffer make the backup,
Richard M. Stallman <rms@gnu.org>
parents: 3746
diff changeset
573 prevent a backup for it.) The variable `server-temp-file-regexp' controls
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
574 which filenames are considered temporary.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
575
49206
7ebd98bb02a2 (server-process-filter): Use `minibufferp' to test
John Paul Wallington <jpw@pobox.com>
parents: 49187
diff changeset
576 If invoked with a prefix argument, or if there is no server process running,
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
577 starts server process and that is all. Invoked by \\[server-edit]."
38da30b6253c Initial revision
root <root>
parents:
diff changeset
578 (interactive "P")
71320
59c8b05c2ce4 * server.el (server-edit): No-op if no server buffers exist.
Chong Yidong <cyd@stupidchicken.com>
parents: 70672
diff changeset
579 (cond
59c8b05c2ce4 * server.el (server-edit): No-op if no server buffers exist.
Chong Yidong <cyd@stupidchicken.com>
parents: 70672
diff changeset
580 ((or arg
59c8b05c2ce4 * server.el (server-edit): No-op if no server buffers exist.
Chong Yidong <cyd@stupidchicken.com>
parents: 70672
diff changeset
581 (not server-process)
59c8b05c2ce4 * server.el (server-edit): No-op if no server buffers exist.
Chong Yidong <cyd@stupidchicken.com>
parents: 70672
diff changeset
582 (memq (process-status server-process) '(signal exit)))
59c8b05c2ce4 * server.el (server-edit): No-op if no server buffers exist.
Chong Yidong <cyd@stupidchicken.com>
parents: 70672
diff changeset
583 (server-mode 1))
59c8b05c2ce4 * server.el (server-edit): No-op if no server buffers exist.
Chong Yidong <cyd@stupidchicken.com>
parents: 70672
diff changeset
584 (server-clients (apply 'server-switch-buffer (server-done)))
59c8b05c2ce4 * server.el (server-edit): No-op if no server buffers exist.
Chong Yidong <cyd@stupidchicken.com>
parents: 70672
diff changeset
585 (t (message "No server editing buffers exist"))))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
586
11329
ecbfde696360 (server-switch-buffer): Make first arg optional too;
Roland McGrath <roland@gnu.org>
parents: 11235
diff changeset
587 (defun server-switch-buffer (&optional next-buffer killed-one)
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
588 "Switch to another buffer, preferably one that has a client.
38da30b6253c Initial revision
root <root>
parents:
diff changeset
589 Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
10961
88cba63f2a9b (server-buffer-done): Return a list
Richard M. Stallman <rms@gnu.org>
parents: 10281
diff changeset
590 ;; KILLED-ONE is t in a recursive call
88cba63f2a9b (server-buffer-done): Return a list
Richard M. Stallman <rms@gnu.org>
parents: 10281
diff changeset
591 ;; if we have already killed one temp-file server buffer.
88cba63f2a9b (server-buffer-done): Return a list
Richard M. Stallman <rms@gnu.org>
parents: 10281
diff changeset
592 ;; This means we should avoid the final "switch to some other buffer"
88cba63f2a9b (server-buffer-done): Return a list
Richard M. Stallman <rms@gnu.org>
parents: 10281
diff changeset
593 ;; since we've already effectively done that.
47524
95ba2ac51138 (server-done): Fix harmlessly wrong arg to save-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47517
diff changeset
594 (if (null next-buffer)
95ba2ac51138 (server-done): Fix harmlessly wrong arg to save-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47517
diff changeset
595 (if server-clients
95ba2ac51138 (server-done): Fix harmlessly wrong arg to save-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47517
diff changeset
596 (server-switch-buffer (nth 1 (car server-clients)) killed-one)
47612
2d55f7e8ff64 Use built-in network primitives.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47524
diff changeset
597 (unless (or killed-one (window-dedicated-p (selected-window)))
48069
518adc9496ed (server-switch-buffer): Say when no server buffers remain.
Richard M. Stallman <rms@gnu.org>
parents: 47658
diff changeset
598 (switch-to-buffer (other-buffer))
518adc9496ed (server-switch-buffer): Say when no server buffers remain.
Richard M. Stallman <rms@gnu.org>
parents: 47658
diff changeset
599 (message "No server buffers remain to edit")))
47524
95ba2ac51138 (server-done): Fix harmlessly wrong arg to save-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47517
diff changeset
600 (if (not (buffer-name next-buffer))
95ba2ac51138 (server-done): Fix harmlessly wrong arg to save-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47517
diff changeset
601 ;; If NEXT-BUFFER is a dead buffer, remove the server records for it
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
602 ;; and try the next surviving server buffer.
47524
95ba2ac51138 (server-done): Fix harmlessly wrong arg to save-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47517
diff changeset
603 (apply 'server-switch-buffer (server-buffer-done next-buffer))
95ba2ac51138 (server-done): Fix harmlessly wrong arg to save-buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47517
diff changeset
604 ;; OK, we know next-buffer is live, let's display and select it.
48123
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
605 (if (functionp server-window)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
606 (funcall server-window next-buffer)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
607 (let ((win (get-buffer-window next-buffer 0)))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
608 (if (and win (not server-window))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
609 ;; The buffer is already displayed: just reuse the window.
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
610 (let ((frame (window-frame win)))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
611 (if (eq (frame-visible-p frame) 'icon)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
612 (raise-frame frame))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
613 (select-window win)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
614 (set-buffer next-buffer))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
615 ;; Otherwise, let's find an appropriate window.
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
616 (cond ((and (windowp server-window)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
617 (window-live-p server-window))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
618 (select-window server-window))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
619 ((framep server-window)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
620 (if (not (frame-live-p server-window))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
621 (setq server-window (make-frame)))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
622 (select-window (frame-selected-window server-window))))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
623 (if (window-minibuffer-p (selected-window))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
624 (select-window (next-window nil 'nomini 0)))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
625 ;; Move to a non-dedicated window, if we have one.
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
626 (when (window-dedicated-p (selected-window))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
627 (select-window
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
628 (get-window-with-predicate
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
629 (lambda (w)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
630 (and (not (window-dedicated-p w))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
631 (equal (frame-parameter (window-frame w) 'display)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
632 (frame-parameter (selected-frame) 'display))))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
633 'nomini 'visible (selected-window))))
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
634 (condition-case nil
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
635 (switch-to-buffer next-buffer)
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
636 ;; After all the above, we might still have ended up with
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
637 ;; a minibuffer/dedicated-window (if there's no other).
66755860a8f1 (server-sentinel): Kill buffers if applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48069
diff changeset
638 (error (pop-to-buffer next-buffer)))))))))
50
38da30b6253c Initial revision
root <root>
parents:
diff changeset
639
64372
5cedf2e32893 Bind "C-x #" in a way that works even if C-x is redefined to a command key,
Eli Zaretskii <eliz@gnu.org>
parents: 64091
diff changeset
640 (define-key ctl-x-map "#" 'server-edit)
42140
49087a9d073e (server-unload-hook): New function.
Dave Love <fx@gnu.org>
parents: 41075
diff changeset
641
49087a9d073e (server-unload-hook): New function.
Dave Love <fx@gnu.org>
parents: 41075
diff changeset
642 (defun server-unload-hook ()
70672
06de67179ba1 (server-start): Only create a directory if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70420
diff changeset
643 (server-mode -1)
42140
49087a9d073e (server-unload-hook): New function.
Dave Love <fx@gnu.org>
parents: 41075
diff changeset
644 (remove-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function)
49087a9d073e (server-unload-hook): New function.
Dave Love <fx@gnu.org>
parents: 41075
diff changeset
645 (remove-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
49087a9d073e (server-unload-hook): New function.
Dave Love <fx@gnu.org>
parents: 41075
diff changeset
646 (remove-hook 'kill-buffer-hook 'server-kill-buffer))
57543
e47852bd4fc4 (server-unload-hook): Set as a variable with add-hook.
Richard M. Stallman <rms@gnu.org>
parents: 57379
diff changeset
647
70672
06de67179ba1 (server-start): Only create a directory if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70420
diff changeset
648 (add-hook 'kill-emacs-hook (lambda () (server-mode -1))) ;Cleanup upon exit.
57543
e47852bd4fc4 (server-unload-hook): Set as a variable with add-hook.
Richard M. Stallman <rms@gnu.org>
parents: 57379
diff changeset
649 (add-hook 'server-unload-hook 'server-unload-hook)
1079
0c960257c363 entered into RCS
Roland McGrath <roland@gnu.org>
parents: 844
diff changeset
650
0c960257c363 entered into RCS
Roland McGrath <roland@gnu.org>
parents: 844
diff changeset
651 (provide 'server)
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 445
diff changeset
652
70672
06de67179ba1 (server-start): Only create a directory if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70420
diff changeset
653 ;; arch-tag: 1f7ecb42-f00a-49f8-906d-61995d84c8d6
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 445
diff changeset
654 ;;; server.el ends here