mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

* server.el (server-edit): No-op if no server buffers exist.

Browse Source
This commit is contained in:
Chong Yidong 2006-06-11 18:59:31 +00:00
parent 11f8928945
commit 6b519504c3
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2006-06-11 Chong Yidong <cyd@stupidchicken.com>
* server.el (server-edit): No-op if no server buffers exist.
2006-06-11 Robert J. Chassell <bob@rattlesnake.com>
* textmodes/page-ext.el (pages-directory-for-addresses):

12
lisp/server.el
View File

@ -576,11 +576,13 @@ which filenames are considered temporary.
If invoked with a prefix argument, or if there is no server process running,
starts server process and that is all. Invoked by \\[server-edit]."
(interactive "P")
(if (or arg
(not server-process)
(memq (process-status server-process) '(signal exit)))
(server-mode 1)
(apply 'server-switch-buffer (server-done))))
(cond
((or arg
(not server-process)
(memq (process-status server-process) '(signal exit)))
(server-mode 1))
(server-clients (apply 'server-switch-buffer (server-done)))
(t (message "No server editing buffers exist"))))
(defun server-switch-buffer (&optional next-buffer killed-one)
"Switch to another buffer, preferably one that has a client.