Mercurial > emacs

comparison lisp/server.el @ 787:3cece0106722

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Wed, 15 Jul 1992 21:31:44 +0000
parents c89caa39704a
children 4f28bd14272c
comparison
equal deleted inserted replaced
786:22b760626b36 787:3cece0106722
1 ;;; server.el --- Lisp code for GNU Emacs running as server process. 1 ;;; server.el --- Lisp code for GNU Emacs running as server process.
2 2
3 ;; Author: William Sommerfeld <wesommer@athena.mit.edu>
4 ;; Last-Modified: 5 Dec 1991
5
6 ;; Changes by peck@sun.com and by rms.
7
3 ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc. 8 ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
4 ;; Author William Sommerfeld, wesommer@athena.mit.edu.
5 ;; Changes by peck@sun.com and by rms.
6 9
7 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
8 11
9 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
18 21
19 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs; see the file COPYING. If not, write to 23 ;; along with GNU Emacs; see the file COPYING. If not, write to
21 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 24 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
22 25
26 ;;; Commentary:
23 27
24 ;;; This Lisp code is run in Emacs when it is to operate as 28 ;;; This Lisp code is run in Emacs when it is to operate as
25 ;;; a server for other processes. 29 ;;; a server for other processes.
26 30
27 ;;; Load this library and do M-x server-edit to enable Emacs as a server. 31 ;;; Load this library and do M-x server-edit to enable Emacs as a server.
64 68
65 ;;; The buffer local variable "server-buffer-clients" lists 69 ;;; The buffer local variable "server-buffer-clients" lists
66 ;;; the clients who are waiting for this buffer to be edited. 70 ;;; the clients who are waiting for this buffer to be edited.
67 ;;; The global variable "server-clients" lists all the waiting clients, 71 ;;; The global variable "server-clients" lists all the waiting clients,
68 ;;; and which files are yet to be edited for each. 72 ;;; and which files are yet to be edited for each.
73
74 ;;; Code:
69 75
70 (defvar server-program "emacsserver" 76 (defvar server-program "emacsserver"
71 "*The program to use as the edit server") 77 "*The program to use as the edit server")
72 78
73 (defvar server-visit-hook nil 79 (defvar server-visit-hook nil