aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/server.el
diff options
context:
space:
mode:
authorKaroly Lorentey2006-06-12 07:27:12 +0000
committerKaroly Lorentey2006-06-12 07:27:12 +0000
commit476e9367ec1f440aa23904b7bc482ea4a3b8041c (patch)
tree4f7f5a5e9a6668f908834bb6e216c8fa3727d4b3 /lisp/server.el
parenta13f8f50d4cc544d3bbfa78568e82ce09e68bded (diff)
parent6b519504c3297595101628e823e72c91e562ab45 (diff)
downloademacs-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.el12
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.
1026If invoked with a prefix argument, or if there is no server process running, 1026If invoked with a prefix argument, or if there is no server process running,
1027starts server process and that is all. Invoked by \\[server-edit]." 1027starts 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.