Commit c48254fb authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(server-process-filter): Fix typo in docstring.

(server-log): Reflow docstrings.
(server-delete-client, server-kill-emacs-query-function): Doc fixes.
(server-goto-line-column): Use `when'.
parent 72a69d7f
2007-10-28 Juanma Barranquero <lekktu@gmail.com>
* server.el (server-process-filter): Fix typo in docstring.
(server-log): Reflow docstrings.
(server-delete-client, server-kill-emacs-query-function): Doc fixes.
(server-goto-line-column): Use `when'.
2007-10-28 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-other-meta-char): Call `isearch-edit-string'
......@@ -32,7 +39,7 @@
2007-10-27 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-print.el: Now detect if text foreground and background colors are
equals and replace the foreground color by another color, so the text
equal and replace the foreground color by another color, so the text
becomes visible. Doc fix.
(ps-print-version): New version 6.8.
(ps-default-fg, ps-default-bg): Docstring fix.
......
......@@ -239,7 +239,7 @@ ENV should be in the same format as `process-environment'."
(progn ,@body))))
(defun server-delete-client (proc &optional noframe)
"Delete CLIENT, including its buffers, terminals and frames.
"Delete PROC, including its buffers, terminals and frames.
If NOFRAME is non-nil, let the frames live. (To be used from
`delete-frame-functions'.)"
(server-log (concat "server-delete-client" (if noframe " noframe"))
......@@ -294,8 +294,7 @@ If NOFRAME is non-nil, let the frames live. (To be used from
(defun server-log (string &optional client)
"If a *server* buffer exists, write STRING to it for logging purposes.
If CLIENT is non-nil, add a description of it to the logged
message."
If CLIENT is non-nil, add a description of it to the logged message."
(when (get-buffer "*server*")
(with-current-buffer "*server*"
(goto-char (point-max))
......@@ -753,9 +752,8 @@ The following commands are accepted by the client:
used to forward window change signals to it.
`-window-system-unsupported'
Signals that the server does not
support creating X frames; the client must try again with a tty
frame.
Signals that the server does not support creating X frames;
the client must try again with a tty frame.
`-print STRING'
Print STRING on stdout. Used to send values
......@@ -765,8 +763,8 @@ The following commands are accepted by the client:
Signal an error (but continue processing).
`-suspend'
Suspend this terminal, i.e., stop the client process. Sent
when the user presses C-z."
Suspend this terminal, i.e., stop the client process.
Sent when the user presses C-z."
(server-log (concat "Received " string) proc)
;; First things first: let's check the authentication
(unless (process-get proc :authenticated)
......@@ -1008,7 +1006,7 @@ FILE-LINE-COL should be a three-element list as described in
`server-visit-files'."
(goto-line (nth 1 file-line-col))
(let ((column-number (nth 2 file-line-col)))
(if (> column-number 0)
(when (> column-number 0)
(move-to-column (1- column-number)))))
(defun server-visit-files (files proc &optional nowait)
......@@ -1159,7 +1157,7 @@ specifically for the clients and did not exist before their request for it."
(buffer-name (current-buffer))))))
(defun server-kill-emacs-query-function ()
"Ask before exiting Emacs it has live clients."
"Ask before exiting Emacs if it has live clients."
(or (not server-clients)
(let (live-client)
(dolist (proc server-clients live-client)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment