Mercurial > emacs
comparison lisp/server.el @ 38010:8a8cf4d74475
(server-process, server-buffer-clients): Doc fix.
From Pavel Janik <Pavel@Janik.cz>.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sun, 10 Jun 2001 08:42:22 +0000 |
parents | e558d3f235fd |
children | 253f761ad37b |
comparison
equal
deleted
inserted
replaced
38009:b6036155d1ca | 38010:8a8cf4d74475 |
---|---|
99 "*List of hooks to call when done editing a buffer for the Emacs server." | 99 "*List of hooks to call when done editing a buffer for the Emacs server." |
100 :group 'server | 100 :group 'server |
101 :type '(repeat function)) | 101 :type '(repeat function)) |
102 | 102 |
103 (defvar server-process nil | 103 (defvar server-process nil |
104 "the current server process") | 104 "The current server process") |
105 | 105 |
106 (defvar server-previous-string "") | 106 (defvar server-previous-string "") |
107 | 107 |
108 (defvar server-clients nil | 108 (defvar server-clients nil |
109 "List of current server clients. | 109 "List of current server clients. |
110 Each element is (CLIENTID BUFFERS...) where CLIENTID is a string | 110 Each element is (CLIENTID BUFFERS...) where CLIENTID is a string |
111 that can be given to the server process to identify a client. | 111 that can be given to the server process to identify a client. |
112 When a buffer is marked as \"done\", it is removed from this list.") | 112 When a buffer is marked as \"done\", it is removed from this list.") |
113 | 113 |
114 (defvar server-buffer-clients nil | 114 (defvar server-buffer-clients nil |
115 "List of clientids for clients requesting editing of current buffer.") | 115 "List of client ids for clients requesting editing of current buffer.") |
116 (make-variable-buffer-local 'server-buffer-clients) | 116 (make-variable-buffer-local 'server-buffer-clients) |
117 ;; Changing major modes should not erase this local. | 117 ;; Changing major modes should not erase this local. |
118 (put 'server-buffer-clients 'permanent-local t) | 118 (put 'server-buffer-clients 'permanent-local t) |
119 | 119 |
120 (defvar server-window nil | 120 (defvar server-window nil |