diff options
| author | Karoly Lorentey | 2006-06-12 07:27:12 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2006-06-12 07:27:12 +0000 |
| commit | 476e9367ec1f440aa23904b7bc482ea4a3b8041c (patch) | |
| tree | 4f7f5a5e9a6668f908834bb6e216c8fa3727d4b3 /lisp/server.el | |
| parent | a13f8f50d4cc544d3bbfa78568e82ce09e68bded (diff) | |
| parent | 6b519504c3297595101628e823e72c91e562ab45 (diff) | |
| download | emacs-476e9367ec1f440aa23904b7bc482ea4a3b8041c.tar.gz emacs-476e9367ec1f440aa23904b7bc482ea4a3b8041c.zip | |
Merged from emacs@sv.gnu.org.
Patches applied:
* emacs@sv.gnu.org/emacs--devo--0--patch-294
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-295
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-296
Update from CVS: admin/FOR-RELEASE: Update refcard section.
* emacs@sv.gnu.org/emacs--devo--0--patch-297
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-298
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-299
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-300
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-301
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-302
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-303
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-304
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-103
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-104
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-570
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/server.el b/lisp/server.el index 1f33a552575..c40b36fa752 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -1026,11 +1026,13 @@ which filenames are considered temporary. | |||
| 1026 | If invoked with a prefix argument, or if there is no server process running, | 1026 | If invoked with a prefix argument, or if there is no server process running, |
| 1027 | starts server process and that is all. Invoked by \\[server-edit]." | 1027 | starts server process and that is all. Invoked by \\[server-edit]." |
| 1028 | (interactive "P") | 1028 | (interactive "P") |
| 1029 | (if (or arg | 1029 | (cond |
| 1030 | (not server-process) | 1030 | ((or arg |
| 1031 | (memq (process-status server-process) '(signal exit))) | 1031 | (not server-process) |
| 1032 | (server-mode 1) | 1032 | (memq (process-status server-process) '(signal exit))) |
| 1033 | (apply 'server-switch-buffer (server-done)))) | 1033 | (server-mode 1)) |
| 1034 | (server-clients (apply 'server-switch-buffer (server-done))) | ||
| 1035 | (t (message "No server editing buffers exist")))) | ||
| 1034 | 1036 | ||
| 1035 | (defun server-switch-buffer (&optional next-buffer killed-one) | 1037 | (defun server-switch-buffer (&optional next-buffer killed-one) |
| 1036 | "Switch to another buffer, preferably one that has a client. | 1038 | "Switch to another buffer, preferably one that has a client. |