[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/server.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/server.el,v |
Date: |
Sun, 28 Oct 2007 15:15:56 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Juanma Barranquero <lektu> 07/10/28 15:15:56
Index: server.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/server.el,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -b -r1.147 -r1.148
--- server.el 17 Oct 2007 16:22:47 -0000 1.147
+++ server.el 28 Oct 2007 15:15:55 -0000 1.148
@@ -239,7 +239,7 @@
(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 @@
(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 @@
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 @@
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 @@
`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 @@
(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)
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Glenn Morris, 2007/10/05
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Stefan Monnier, 2007/10/09
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Stefan Monnier, 2007/10/10
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Dan Nicolaescu, 2007/10/16
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Juanma Barranquero, 2007/10/17
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Stefan Monnier, 2007/10/17
- [Emacs-diffs] Changes to emacs/lisp/server.el,v,
Juanma Barranquero <=
- [Emacs-diffs] Changes to emacs/lisp/server.el,v, Juanma Barranquero, 2007/10/28