| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/server.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/server.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\301\316\317\320\321& \210\306\322\310\311\323DD\324\304\301\316\325\320\321& \210\326\322\327\330#\210\306\331\310\311\332DD\333\304\301\316\334\320\335& \210\326\331\327\330#\210\306\336\310\311\337DD\340\304\301\316\341\320\321& \210\326\336\327\330#\210\306\342\310\311\343DD\344\304\301\316\345\320\346& \210\306\347\310\311\350DD\351\304\301\316\317\320\321& \210\306\352\310\311\353DD\354\304\301\316\355&\210\306\356\310\311\357DD\360\304\301\316\355&\210\306\361\310\311\362DD\363\304\301\316\355&\207" [custom-declare-group server nil "Emacs running as a server process." :group external custom-declare-variable server-use-tcp funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, use TCP sockets instead of local sockets." :set #[514 "\301\302\303\"\204 \304\262\204 \305\306!\210\307\"\207" [load-in-progress featurep make-network-process (:family local) t message "Local sockets unsupported, using TCP sockets" set-default] 5 "\n\n(fn SYM VAL)"] :type boolean :version "22.1" server-host #[0 "\300\207" [nil] 1 "\n\n(fn)"] "The name or IP address to use as host address of the server process.\nIf set, the server accepts remote connections; otherwise it is local.\n\nDO NOT give this a non-nil value unless you know what you are\ndoing! On unsecured networks, accepting remote connections is\nvery dangerous, because server-client communication (including\nsession authentication) is not encrypted." (choice (string :tag "Name or IP address") (const :tag "Local" nil)) put risky-local-variable t server-port #[0 "\300\207" [nil] 1 "\n\n(fn)"] "The port number that the server process should listen on.\nThis variable only takes effect when the Emacs server is using\nTCP instead of local sockets. A nil value means to use a random\nport number." (choice (string :tag "Port number") (const :tag "Random" nil)) "24.1" server-auth-dir #[0 "\300\301!\207" [locate-user-emacs-file "server/"] 2 "\n\n(fn)"] "Directory for server authentication files.\nWe only use this if `server-use-tcp' is non-nil.\nOtherwise we use `server-socket-dir'.\n\nNOTE: On FAT32 filesystems, directories are not secure;\nfiles can be read and modified by any user or process.\nIt is strongly suggested to set `server-auth-dir' to a\ndirectory residing in a NTFS partition instead." directory server-auth-key #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Server authentication key.\nThis is only used if `server-use-tcp' is non-nil.\n\nNormally, the authentication key is randomly generated when the\nserver starts. It is recommended to leave it that way. Using a\nlong-lived shared key will decrease security (especially since\nthe key is transmitted as plain-text).\n\nIn some situations however, it can be difficult to share randomly\ngenerated passwords with remote hosts (e.g., no shared directory),\nso you can set the key with this variable and then copy the\nserver file to the remote host (with possible changes to IP\naddress and/or port if that applies).\n\nNote that the usual security risks of using the server over\nremote TCP, arising from the fact that client-server\ncommunications are unencrypted, still apply.\n\nThe key must consist of 64 ASCII printable characters except for\nspace (this means characters from ! to ~; or from code 33 to\n126). You can use \\[server-generate-key] to get a random key." (choice (const :tag "Random" nil) (string :tag "Password")) "24.3" server-raise-frame #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil, raise frame when switching to a buffer." server-visit-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Hook run when visiting a file for the Emacs server." hook server-switch-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Hook run when switching to a buffer for the Emacs server." server-done-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Hook run when done editing a buffer for the Emacs server."] 12)
#@29 The current server process.
(defvar server-process nil (#$ . 4468))
#@60 List of current server clients.
Each element is a process.
(defvar server-clients nil (#$ . 4542))
#@64 List of client processes requesting editing of current buffer.
(defvar server-buffer-clients nil (#$ . 4647))
(byte-code "\301\302!\210\303\302\304\305#\210\306\307\310\311\312DD\313\314\315\316\317\320\321& \210\306\322\310\311\323DD\324\314\315\320\325&\210\306\326\310\311\327DD\330\314\315\320\331\316\332& \210\302\236\204E \333B\301\207" [minor-mode-alist make-variable-buffer-local server-buffer-clients put permanent-local t custom-declare-variable server-window funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Specification of the window to use for selecting Emacs server buffers.\nIf nil, use the selected window.\nIf it is a function, it should take one argument (a buffer) and\ndisplay and select it. A common value is `pop-to-buffer'.\nIf it is a window, use that.\nIf it is a frame, use the frame's selected window.\n\nIt is not meaningful to set this to a specific frame or window with Custom.\nOnly programs can do so." :group server :version "22.1" :type (choice (const :tag "Use selected window" :match (lambda (widget value) (not (functionp value))) nil) (function-item :tag "Display in new frame" switch-to-buffer-other-frame) (function-item :tag "Use pop-to-buffer" pop-to-buffer) (function :tag "Other function")) server-temp-file-regexp #[0 "\300\207" ["^/tmp/Re\\|/draft$"] 1 "^/tmp/Re\\|/draft$\n\n(fn)"] "Regexp matching names of temporary files.\nThese are deleted and reused after each edit by the programs that\ninvoke the Emacs server." regexp server-kill-new-buffers #[0 "\300\207" [t] 1 "\n\n(fn)"] "Whether to kill buffers when done with them.\nIf non-nil, kill a buffer unless it already existed before editing\nit with the Emacs server. If nil, kill only buffers as specified by\n`server-temp-file-regexp'.\nPlease note that only buffers that still have a client are killed,\ni.e. buffers visited with \"emacsclient --no-wait\" are never killed\nin this way." boolean "21.1" (server-buffer-clients " Server")] 10)
#@178 Non-nil means the buffer existed before the server was asked to visit it.
This means that the server should not kill the buffer when you say you
are done with it in the server.
(defvar server-existing-buffer nil (#$ . 6614))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \207" [make-variable-buffer-local server-existing-buffer custom-declare-variable server-name funcall function #[0 "\300\207" ["server"] 1 "server\n\n(fn)"] "The name of the Emacs server, if this Emacs process creates one.\nThe command `server-start' makes use of this. It should not be\nchanged while a server is running." :group server :type string :version "23.1"] 10)
#@101 The directory in which to place the server socket.
If local sockets are not supported, this is nil.
(defvar server-socket-dir (byte-code "\300\301\302\"\205 \303\304\305\306!\206 \307\310 #\207" [featurep make-network-process (:family local) format "%s/emacs%d" getenv "TMPDIR" "/tmp" user-uid] 4) (#$ . 7295))
#@75 Return a list of clients with PROPERTY set to VALUE.
(fn PROPERTY VALUE)
(defalias 'server-clients-with #[514 "\301\211\203 \211@\302\"\232\203 \211B\262A\266\202\202 \210\211\207" [server-clients nil process-get] 9 (#$ . 7614)])
#@110 Create a client for process PROC, if it doesn't already have one.
New clients have no properties.
(fn PROC)
(defalias 'server-add-client #[257 "\300\301\"\207" [add-to-list server-clients] 4 (#$ . 7863)])
#@258 Evaluate BODY with environment variables VARS set to those in ENV.
The environment variables are then restored to their previous values.
VARS should be a list of strings.
ENV should be in the same format as `process-environment'.
(fn ENV VARS &rest BODY)
(defalias 'server-with-environment '(macro . #[642 "\300\301!\300\302!\303\304\305D\303\306\fEDC\307\310\311 D\312 \313\fF F\314BBEE\315BF\207" [make-symbol "var" "value" let ((process-environment process-environment)) dolist getenv-internal push if stringp concat "=" (process-environment) progn] 18 (#$ . 8077)]))
(put 'server-with-environment 'lisp-indent-function 2)
#@158 Delete PROC, including its buffers, terminals and frames.
If NOFRAME is non-nil, let the frames live.
Updates `server-clients'.
(fn PROC &optional NOFRAME)
(defalias 'server-delete-client #[513 "\305\306\205 \307P\"\210>\205\310 \310\311\"\211\211\203h \211@\312!\203a r\211q\210 C\232\203` \n\2035 \203: \313 \203` \314 \204` \315C\316\317\320\321\322\323 \"\324\"\325\326%DC\216\315\327p!\210\211\330\240\210)\210)A\266\202\202 \210\204\226 \331 \211\203\225 \211@\332!\203\216 \333\334\"\232\203\216 \335\334\315#\210\336!\210A\266\202\202o \210\337\"\f\340=\204\266 \310\341\"\211\203\265 \342!\330=\203\265 \343!\210\210\344!\345=\203\302 \346!\210\305\347\"\262\207" [server-clients server-buffer-clients server-kill-new-buffers server-existing-buffer system-type server-log "server-delete-client" " noframe" process-get buffers buffer-live-p server-temp-file-p buffer-modified-p nil funcall make-byte-code 0 "\301@?\205\n \300C\211\207" vconcat vector [server-buffer-clients] 2 "\n\n(fn)" kill-buffer t frame-list frame-live-p frame-parameter client set-frame-parameter delete-frame delq windows-nt terminal terminal-live-p delete-terminal process-status open delete-process "Deleted"] 14 (#$ . 8725)])
#@54 Function to generate timestamps for `server-buffer'.
(defvar server-log-time-function 'current-time-string (#$ . 9975))
#@250 Buffer used internally by Emacs's server.
One use is to log the I/O for debugging purposes (see `server-log'),
the other is to provide a current buffer in which the process filter can
safely let-bind buffer-local variables like `default-directory'.
(defconst server-buffer " *server*" (#$ . 10102))
#@73 If non-nil, log the server's inputs and outputs in the `server-buffer'.
(defvar server-log nil (#$ . 10407))
#@159 If `server-log' is non-nil, log STRING to `server-buffer'.
If CLIENT is non-nil, add a description of it to the logged message.
(fn STRING &optional CLIENT)
(defalias 'server-log #[513 "\2053 r\303 !q\210db\210\n \204 \304\202( <\203$ \305\306@\"\202( \305\306\"\261\210n\2062 \307 )\207" [server-log server-buffer server-log-time-function get-buffer-create " " format " %s: " newline] 6 (#$ . 10523)])
#@67 The process sentinel for Emacs server connections.
(fn PROC MSG)
(defalias 'server-sentinel #[514 "\300!\301=\203 \302!\203 \303\304\"\210\305\306\"\203; \300!\307=\203; \310\311\312\313\314\315\316!\317\"\320\321%D\322\311\323\310EDC\217\210\324\325\326\300!#\"\210\327!\207" [process-status open process-query-on-exit-flag set-process-query-on-exit-flag nil process-contact :server closed #1=#:err funcall make-byte-code 0 "\301\302\300\303\"!\207" vconcat vector [delete-file process-get :server-file] 4 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] server-log format "Status changed to %s: %s" server-delete-client] 10 (#$ . 10941)])
(defalias 'server--on-display-p #[514 "\300\301\"\232\205 \302!\303=?\207" [frame-parameter display framep t] 5 "\n\n(fn FRAME DISPLAY)"])
(defalias 'server-select-display #[257 "\300\301!?\206\f \302\303 \"?\205K \304 \211\203* \211@\302\"\203# \305!\210A\266\202\202 \210\302\303 \"?\205K \306\307!\301\310B\311B\"\305!\210\312\313 \"\210\262\207" [fboundp make-frame-on-display server--on-display-p selected-frame frame-list select-frame generate-new-buffer " *server-dummy*" server-dummy-buffer ((visibility)) set-window-buffer selected-window] 6 "\n\n(fn DISPLAY)"])
(defalias 'server-unselect-display #[257 "\300!\2059 \301\302\"\303\304\"\203\" \305\306!!=\203\" \307!\210\202. \310\311\312#\210\310\302\313#\210\314!\2057 \315!\262\207" [frame-live-p frame-parameter server-dummy-buffer one-window-p nomini window-buffer frame-first-window delete-frame set-frame-parameter visibility t nil buffer-live-p kill-buffer] 6 "\n\n(fn FRAME)"])
#@125 Delete the client connection when the emacsclient frame is deleted.
(To be used from `delete-frame-functions'.)
(fn FRAME)
(defalias 'server-handle-delete-frame #[257 "\300\301\"\302!\205@ \211\205@ \303\304\305 \211\203, \211@\300\301\"=\203% T\262A\266\202\202 \210\211\262Y\205@ \306\307\310\"\"\210\311\312\"\207" [frame-parameter client frame-live-p 1 0 frame-list server-log format "server-handle-delete-frame, frame %s" server-delete-client noframe] 10 (#$ . 12589)])
#@76 Notify the client process that its tty device is suspended.
(fn TERMINAL)
(defalias 'server-handle-suspend-tty #[257 "\300\301\"\211\205> \211@\302\303\304\"\"\210\305\306\307\310\311\312\313!\314\"\315\316%D\317\306\307\320\321\312\313 !\322\"\323\324%\305EDC\217\210A\266\202\202 \207" [server-clients-with terminal server-log format "server-handle-suspend-tty, terminal %s" #1=#:err funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [server-send-string "-suspend \n"] 3 "\n\n(fn)" file-error 257 "\301\302\303\304\305\306\307\300!\310\"\311\312%D\313\302\314\301EDC\217\207" [#2=#:err funcall make-byte-code 0 "\301\300!\207" vconcat vector [server-delete-client] 2 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 9 "\n\n(fn IGNORED)"] 13 (#$ . 13083)])
#@92 Remove &-quotation from ARG.
See `server-quote-arg' and `server-process-filter'.
(fn ARG)
(defalias 'server-unquote-arg #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "&." #[257 "\211\300H\211\301=\203
\302\202\" \211\303=\203 \304\202\" \211\305=\203! \306\202\" \307\207" [1 38 "&" 45 "-" 110 "\n" " "] 4 "\n\n(fn S)"] t] 7 (#$ . 13881)])
#@217 In ARG, insert a & before each &, each space, each newline, and -.
Change spaces to underscores, too, so that the return value never
contains a space.
See `server-unquote-arg' and `server-process-filter'.
(fn ARG)
(defalias 'server-quote-arg #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "[-&\n ]" #[257 "\211\300H\211\301=\203
\302\202, \211\303=\203 \304\202, \211\305=\203! \306\202, \211\307=\203+ \310\202, \311\207" [0 38 "&&" 45 "&-" 10 "&n" 32 "&_" nil] 4 "\n\n(fn S)"] t] 7 (#$ . 14246)])
#@71 A wrapper around `process-send-string' for logging.
(fn PROC STRING)
(defalias 'server-send-string #[514 "\300\301P\"\210\302\"\207" [server-log "Sent " process-send-string] 5 (#$ . 14769)])
#@217 Make sure DIR is a directory with no race-condition issues.
Creates the directory if necessary and makes sure:
- there's no symlink involved
- it's owned by us
- it's not readable/writable by anybody else.
(fn DIR)
(defalias 'server-ensure-safe-dir #[257 "\301!\262\302\303\"\211\2041 \304 \305\306\307\310\311\312!\313\"\314\315%DC\216\316\317!\210\320\321\"\210)\210\302\303\"\262\3228\323=@\321=\204B \324\202\211 \211\203\\ \325!\203\\ \326\327\330\331\332!\"\333#\210\321\202\211 \334 U\204x \211\203t \335U\203t \334 \336U\204x \324\202\211 \211\203\200 \321\202\211 \325\337\340!\341\"!\211?\205\223 \342\343\"\266\203\207" [system-type directory-file-name file-attributes integer default-file-modes funcall make-byte-code 0 "\300\301!\210\211\207" vconcat vector [set-default-file-modes] 3 "\n\n(fn)" set-default-file-modes 448 make-directory t 2 windows-nt nil zerop display-warning server format "Using `%s' to store Emacs-server authentication files.\nDirectories on FAT32 filesystems are NOT secure against tampering.\nSee variable `server-auth-dir' for details." file-name-as-directory :warning user-uid 544 500 logand file-modes 63 error "The directory `%s' is unsafe"] 10 (#$ . 14972)])
#@185 Generate and return a random authentication key.
The key is a 64-byte string of random chars in the range `!'..`~'.
If called interactively, also inserts it into current buffer.
(fn)
(defalias 'server-generate-key #[0 "\300\301S\211\262\302Y\203 \211\303\304\305!\\C\244\262\202 \211\260\266\202\306\307!\203' \211c\210\211\207" [64 nil 0 33 random 94 called-interactively-p interactive] 6 (#$ . 16203) nil])
#@207 Return server's authentication key.
If `server-auth-key' is nil, just call `server-generate-key'.
Otherwise, if `server-auth-key' is a valid key, return it.
If the key is not valid, signal an error.
(fn)
(defalias 'server-get-auth-key #[0 "\203 \305\306\307 \310 \n #,\203 \207\311\312\"\207\313 \207" [server-auth-key start string regexp inhibit-changing-match-data "^[!-~]\\{64\\}$" nil t string-match error "The key '%s' is invalid" server-generate-key] 4 (#$ . 16626)])
#@698 Allow this Emacs process to be a server for client processes.
This starts a server communications subprocess through which client
"editors" can send your editing commands to this Emacs job.
To use the server, set up the program `emacsclient' in the Emacs
distribution as your standard "editor".
Optional argument LEAVE-DEAD (interactively, a prefix arg) means just
kill any existing server communications subprocess.
If a server is already running, restart it. If clients are
running, ask the user for confirmation first, unless optional
argument INHIBIT-PROMPT is non-nil.
To force-start a server, do \[server-force-delete] and then
\[server-start].
(fn &optional LEAVE-DEAD INHIBIT-PROMPT)
(defalias 'server-start #[512 "\203$ \306 \203 \307 A\204 \310 =\203 \202! \211\204$ \311\312!\205\307\n\203, \202- \f\313
\"@\203C \314\315\316D\317\315\320\314EDC\217\210\321
!\322=\204g \323\315\324\325\326\327\330!\331\"\332\333%D\317\315\334\323EDC\217\210\202y \335A\336\337\340\341\342
\"\343Q\344#\210\322\262\203\205 \345@!\210\202y \203\234 \322=\204\225 \346\347\350!!\210\335\211@\202\305\351!\210@\203\253 \346\347\352!!\210\353 \315\324\325\354\327\330!\355\"\356\333%DC\216\357\360!\210\361\362\363\"\210\361\364\365\"\210\361\366\367\"\210\361\370\371\"\210\361\372\373\"\210\374\375\376
\377\322\201E \322\201F \201G \201H \201I \201J \201K \n\203 \201L \201M \201N B\206\n\322\201O C\206\201P \201Q \201R \257\2023\201L \201P \201N \201Q \201S \257&\211@\204A\317\201T !\210\201U @\201V #\210\n\205\302\201W \201U @\201X #\210\201Y \201Z \201[ !!\315\324\325\201\\ \327\330!\201] \"\332\333%DC\216r\211q\210\201^ \335!\210\201_ D\201` \201a @\201b \"!\201c \201d \201e !\201f \261)rq\210\201g \335\211\335\325%\210*\266\202\262)\262\266\202\207" [server-clients terminal-frame server-use-tcp server-auth-dir server-socket-dir server-name daemonp frame-list selected-frame yes-or-no-p "The current server still has clients; delete them? " expand-file-name #1=#:err funcall #[0 "\301!\207" [server-process delete-process] 2 "\n\n(fn)"] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] server-running-p t #2=#:err make-byte-code 0 "\302\303\300!)\207" vconcat vector [delete-by-moving-to-trash nil delete-file] 2 "\n\n(fn)" #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] nil display-warning server "Unable to start the Emacs server.\n" format "There is an existing Emacs server, named %S.\n" "To start the server in this Emacs process, stop the existing\nserver or call `M-x server-force-delete' to forcibly disconnect it." :warning server-delete-client server-log message "Server stopped" server-ensure-safe-dir "Restarting server" default-file-modes "\300\301!\210\211\207" [set-default-file-modes] 3 set-default-file-modes 448 add-hook suspend-tty-functions server-handle-suspend-tty delete-frame-functions server-handle-delete-frame kill-buffer-query-functions server-kill-buffer-query-function kill-emacs-query-functions server-kill-emacs-query-function kill-emacs-hook server-force-stop apply make-network-process :name :server server-process server-mode server-port server-host buffer-file-coding-system :noquery :sentinel server-sentinel :filter server-process-filter :coding raw-text-unix :family ipv4 :service :host local :plist (:authenticated nil) (:authenticated t) "Could not start server process" process-put :server-file server-get-auth-key :auth-key get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] set-buffer-multibyte no-conversion format-network-address process-contact :local " " number-to-string emacs-pid "\n" write-region] 28 (#$ . 17118) "P"])
#@111 Kill all connections to the current server.
This function is meant to be called from `kill-emacs-hook'.
(fn)
(defalias 'server-force-stop #[0 "\300\301\211\"\207" [server-start t] 3 (#$ . 20832)])
#@183 Unconditionally delete connection file for server NAME.
If server is running, it is first stopped.
NAME defaults to `server-name'. With argument, ask for NAME.
(fn &optional NAME)
(defalias 'server-force-delete #[256 "\203/ \305\211C\306\307\310\311\312\313\"\314\"\315\316%DC\216\203( \211\317 \240\210\320\321\"\210\300\322!\210)\266\323\2065 \n\203= \202> \f\"\324\306\307\310\325\312\313!\326\"\315\316%D\327\306\307\330\331\312\313 !\332\"\333\334%\324EDC\217\207" [server-mode server-name server-use-tcp server-auth-dir server-socket-dir nil funcall make-byte-code 0 "\300\205 \301@\203 \302\303\301@\"\207\302\304!\207" vconcat vector [message #1="%s" nil] 3 "\n\n(fn)" current-message message #1# -1 expand-file-name #2=#:err "\302\303\300!\210\304\305\300\")\207" [delete-by-moving-to-trash nil delete-file message "Connection file %S deleted"] file-error 257 "\301\302\300\"\207" [message "No connection file %S"] 4 "\n\n(fn IGNORED)"] 12 (#$ . 21037) (byte-code "\205\n \302\303\304\211 $C\207" [current-prefix-arg server-name read-string "Server name: " nil] 5)])
#@325 Test whether server NAME is running.
Return values:
nil the server is definitely not running.
t the server seems to be running.
something else we cannot determine whether it's running without using
commands which may have to wait for a long time.
(fn &optional NAME)
(defalias 'server-running-p #[256 "\211C\211@\204 \211\240\210\301\302\303\304\305\306\307!\310\"\311\312%D\313\302\314\301EDC\217\207" [server-name #1=#:err funcall make-byte-code 0 " \203= \304\305!r\211q\210\306\307\310\311\312\313!\314\"\315\316%DC\216\317\320\300@\n\"!\210\321\322!\203: \323\324\325\326\327!!!\236\203: \330\202; \331*\207\332\333\334\335\336\337\340\341\342\330\343\320\300@ \"&\n!\210\330\207" vconcat vector [server-use-tcp server-auth-dir server-socket-dir generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" insert-file-contents-literally expand-file-name looking-at "127\\.0\\.0\\.1:[0-9]+ \\([0-9]+\\)" comm process-attributes string-to-number match-string 1 t :other delete-process make-network-process :name "server-client-test" :family local :server nil :noquery :service] 14 "\n\n(fn)" file-error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 10 (#$ . 22140)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable server-mode funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Non-nil if Server mode is enabled.\nSee the command `server-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `server-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group server :type boolean :version "22.1"] 14)
#@345 Toggle Server mode.
With a prefix argument ARG, enable Server mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
Server mode if ARG is omitted or nil.
Server mode runs a process that accepts commands from the
`emacsclient' program. See Info node `Emacs server' and
`server-start' for details.
(fn &optional ARG)
(defalias 'server-mode #[256 "\301 \302=\203
?\202 \303!\304V\305?!\210\306\307\203\" \310\202# \311\"\210\312\313!\203H \314\300!\210\301 \203; \211\301 \232\203H \315\316\203E \317\202F \320\"\210\210\321 \210\207" [server-mode current-message toggle prefix-numeric-value 0 server-start run-hooks server-mode-hook server-mode-on-hook server-mode-off-hook called-interactively-p any customize-mark-as-set message "Server mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 24008) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [server-mode-map add-minor-mode server-mode nil boundp] 6)
#@68 Eval EXPR and send the result back to client PROC.
(fn EXPR PROC)
(defalias 'server-eval-and-print #[514 "\301\302\303\304\305\306\307!\310\"\311\312%D\313\302\314\301EDC\217\205I \315\316!r\211q\210\302\303\304\317\306\307!\320\"\321\312%DC\216p\322!\210\323ed\"\324\325!\"\262+\262\207" [standard-output #1=#:err funcall make-byte-code 0 "\302\303\304\300!@!)\207" vconcat vector [inhibit-quit nil eval read-from-string] 3 "\n\n(fn)" quit #[257 "\301\302\303!\207" [quit-flag t eval (ignore nil)] 3 "\n\n(fn IGNORED)"] generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 pp buffer-substring-no-properties server-reply-print server-quote-arg] 11 (#$ . 25032)])
#@45 Maximum size of a message sent to a client.
(defconst server-msg-size 1024 (#$ . 25751))
#@175 Send a `-print QTEXT' command to client PROC.
QTEXT must be already quoted.
This handles splitting the command if it would be bigger than
`server-msg-size'.
(fn QTEXT PROC)
(defalias 'server-reply-print #[514 "\301\302\303GG\304#V\203; \305\306G\304#O\262\307\310\"\203& \211\305\311O\262G\302O\262\312\313Q\"\210\314\262\202 \312\313Q\"\207" [server-msg-size "-print " nil + 1 0 - string-match "\\(^\\|[^&]\\)\\(&&\\)+$" -1 server-send-string "\n" "-print-nonl "] 10 (#$ . 25847)])
(defalias 'server-create-tty-frame #[771 "\204 \301\302!\210\204 \301\303!\210\304\305\306\"\210\307\211\203= \211@\310\311\312\"\"\211;\2031 \313Q\2022 B\210A\266\202\202 \210\314\315\316B\317B\306B\320\311\312\"B\257!)\321\322\310\323\311\312\"\"#\210\324!\210\325\326#\210\325\327\330!#\210\211\207" [process-environment error "Invalid terminal device" "Invalid terminal type" add-to-list frame-inherited-parameters client ("LANG" "LC_CTYPE" "LC_ALL" "BAUDRATE" "COLUMNS" "ESCDELAY" "HOME" "LINES" "NCURSES_ASSUMED_COLORS" "NCURSES_NO_PADDING" "NCURSES_NO_SETBUF" "TERM" "TERMCAP" "TERMINFO" "TERMINFO_DIRS" "TERMPATH" "COLORFGBG" "COLORTERM") getenv-internal process-get env "=" make-frame (window-system) tty tty-type environment set-frame-parameter display "DISPLAY" select-frame process-put frame terminal frame-terminal] 12 "\n\n(fn TTY TYPE PROC)"])
(defalias 'server-create-window-system-frame #[1284 "\206 \301\302\303\"\206 \304\305!\306\236A\206 \307!\211\236\204! \302\262\310\311!\203- \312\262\313\262\211\203\203 \314\203; \315\202< B\316\317\320\"BBB\302\203V \321\322!BB\262\323\324\314\"\210\325\"\262\326\327\330\"\"\210\331!\210\332\333#\210\332\334\335!#\210\262\202\217 \326\336\"\210\337\340\"\210\302\207" [window-system-initialization-alist frame-parameter nil display error "Please specify display." window-system window-system-for-display featurep ns-win ns "ns" client nowait environment process-get env parent-id string-to-number add-to-list frame-inherited-parameters make-frame-on-display server-log format "%s created" select-frame process-put frame terminal frame-terminal "Window system unsupported" server-send-string "-window-system-unsupported \n"] 14 "\n\n(fn DISPLAY NOWAIT PROC PARENT-ID &optional PARAMETERS)"])
(defalias 'server-goto-toplevel #[257 "\300\301\302D\303\301\304\300EDC\217\210\305 \306V\205( \307\306\310\311\306\312\313\314!\315\"\316\317%#\210\320 \207" [#1=#:err funcall #[0 "\301 \211\205! \211@r\211q\210\302\300!\203 \203 \303 \210)A\266\202\202 \207" [isearch-mode buffer-list boundp isearch-cancel] 4 "\n\n(fn)"] quit #[257 "\300\301!\207" [message nil] 3 "\n\n(fn IGNORED)"] recursion-depth 0 run-with-timer nil make-byte-code "\301\300!\207" vconcat vector [server-execute-continuation] 2 "\n\n(fn)" top-level] 10 "\n\n(fn PROC)"])
(defalias 'server-execute-continuation #[257 "\300\301\"\302\301\303#\210\211\205& \304\305\306\307\310\311\312!\313\"\314\315%D\316\305\317\304EDC\217\207" [process-get continuation process-put nil #1=#:err funcall make-byte-code 0 "\300 \207" vconcat vector [] 1 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 10 "\n\n(fn PROC)"])
#@2649 Process a request from the server to edit some files.
PROC is the server process. STRING consists of a sequence of
commands prefixed by a dash. Some commands have arguments;
these are &-quoted and need to be decoded by `server-unquote-arg'.
The filter parses and executes these commands.
To illustrate the protocol, here is an example command that
emacsclient sends to create a new X frame (note that the whole
sequence is sent on a single line):
-env HOME=/home/lorentey
-env DISPLAY=:0.0
... lots of other -env commands
-display :0.0
-window-system
The following commands are accepted by the server:
`-auth AUTH-STRING'
Authenticate the client using the secret authentication string
AUTH-STRING.
`-env NAME=VALUE'
An environment variable on the client side.
`-dir DIRNAME'
The current working directory of the client process.
`-current-frame'
Forbid the creation of new frames.
`-frame-parameters ALIST'
Set the parameters of the created frame.
`-nowait'
Request that the next frame created should not be
associated with this client.
`-display DISPLAY'
Set the display name to open X frames on.
`-position LINE[:COLUMN]'
Go to the given line and column number
in the next file opened.
`-file FILENAME'
Load the given file in the current frame.
`-eval EXPR'
Evaluate EXPR as a Lisp expression and return the
result in -print commands.
`-window-system'
Open a new X frame.
`-tty DEVICENAME TYPE'
Open a new tty frame at the client.
`-suspend'
Suspend this tty frame. The client sends this string in
response to SIGTSTP and SIGTTOU. The server must cease all I/O
on this tty until it gets a -resume command.
`-resume'
Resume this tty frame. The client sends this string when it
gets the SIGCONT signal and it is the foreground process on its
controlling tty.
`-ignore COMMENT'
Do nothing, but put the comment in the server log.
Useful for debugging.
The following commands are accepted by the client:
`-emacs-pid PID'
Describes the process id of the Emacs process;
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.
`-print STRING'
Print STRING on stdout. Used to send values
returned by -eval.
`-print-nonl STRING'
Print STRING on stdout. Used to continue a
preceding -print command that would be too big to send
in a single message.
`-error DESCRIPTION'
Signal an error and delete process PROC.
`-suspend'
Suspend this terminal, i.e., stop the client process.
Sent when the user presses C-z.
(fn PROC STRING)
(defalias 'server-process-filter #[514 "\211C\300\301\302\303\304\305\306 \"\307\"\310\311%D\215\207" [--cl-block-server-process-filter-- funcall make-byte-code 0 "\302\303\301@P\300\"\210\304\300\305\"\204V \306\307\301@\"\203; \310\311\301@\"\304\300\312\"\232\203; \301\211@\313\225\314O\240\210\315\300\305\316#\210\302\317\300\"\210\202V \302\320\300\"\210\321\300\322\323\320!P\"\210\324\311!\210\325\300!\210\326\327\314\"\210\304\300\330\"\211\203k \301\301@P\240\210\315\300\330\314#\210\210\331\332\333\313\334\335\336\300\301\"\337\"\340\341%D\342\332\333\343\344\335\336\300!\345\"\346\347%\331EDC\217\207" vconcat vector [server-log "Received " process-get :authenticated string-match "-auth \\([!-~]+\\)\n?" match-string 1 :auth-key 0 nil process-put t "Authentication successful" "Authentication failed" server-send-string "-error " server-quote-arg sit-for delete-process throw --cl-block-server-process-filter-- previous-string #1=#:err funcall make-byte-code "\306\300!\210\307\300\310\311\312 !\313Q\"\210\314\313\301@\"\204& \301@G\315V\205\233\316\300\317\301@#\207\315\225\301@G=\2045 \320\321\322C\"\210\301@\315\211\224O\323\324!\205F \n\206F \325C\325C\325\211\211C\325C\325C\325\211\211C\325\211C\325\211\301\211@\315\225\325O\240\210\326\327\330\331\332#\"\262\211\203\331\211A\262@\211\333\232\203\211 \211A\262@\210\202\325\211\334\232\203\227 \332\240\210\202\325\211\335\232\203\243 \332\262\202\325\211\336\232\203\305 \211A\262@\203\273 \337\"\262\340!@\262\210\202\325\211\341\232\203\341 \211A\262@\262
\342
G!\203\325\325\262
\202\325\211\343\232\203\375 \211A\262@\262\f\342\fG!\203\325\325\262\f\202\325\211\344\232\203\345\346!\203\325\n\332\240\210\305\240\210\202\325\211\347\232\203=\350\300\351\" \332\240\210\n\352\315\353\354\355!\356\"\357\360%\f@B\240\266\202\325\211\361\232\203e\350\300\351\" \332\240\210\n\352\315\353\354\355!\362\"\357\360%\f@B\240\266\202\325\211\363\232\203z\n\332\240\210\211A\262@\210\202\325\211\364\232\203\261\211A\262@\240\210\211A\262@\262\n\211@\206\233?\240\210\f\365=\203\325
\366=\203\325\344B\262\202\325\211\367\232\203\340\314\370@\"\204\303\371\372!\210\211A\262@\373\374\375\"!\373\374\357\"\206\330\376!B\262\210\202\325\211\377\232\203'\211A\262@\203\370\337\"\262\201A @\"\262B@B\240\210\201B \201C \201D \206 \376#\300\"\266\325\262\202\325\211\201E \232\203q\2039\201F \262\211A\262@C\203N\211\337@\"\240\210\n\352\315\201G \354\355\300\"\201H \"\201I \360%\f@B\240\210\325\262\210\202\325\211\201J \232\203\222\211A\262@\316\300\201K \350\300\201K \"B#\266\202\325\211\201L \232\203\314\211A\262@\240\210\203\264\337\n@\"\240\210\201M \n@!\240\210\316\300\201N @#\210\202\325\211\371\201O \"\266\210\202o
@\203\364@\305=\204\364@\204\361@\203\364\332\262\f\2032\201F =\204 \201P \203 \201Q A\204 \201R @=\2042\325\240\210\325\262\f\205Y\201S
!\202Y@\305=\203J\201T
@\300 %\202Y@\205Y\201U @\300#\240\210\316\300\201V \352\315\201W \354\355\300&\201X \"\201Y \360%#\210\f@\204\216@\203\224\201Z \300!\210\201[ \300!\266\220\207" vconcat vector [file-name-coding-system default-file-name-coding-system system-type window-system server-add-client server-send-string "-emacs-pid " number-to-string emacs-pid "\n" string-match 0 process-put previous-string signal cl-assertion-failed (eq (match-end 0) (length string)) default-value enable-multibyte-characters nil mapcar server-unquote-arg split-string " " t "-version" "-nowait" "-current-frame" "-frame-parameters" decode-coding-string read-from-string "-display" zerop "-parent-id" "-window-system" fboundp x-create-frame "-resume" process-get terminal make-byte-code "\301\300!\302=\205 \303\300!\207" vconcat vector [terminal-live-p t resume-tty] 2 "\n\n(fn)" "-suspend" [terminal-live-p t suspend-tty] "-ignore" "-tty" windows-nt w32 "-position" "\\+\\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?" error "Invalid -position command in client args" string-to-number match-string 1 "" "-file" terminal-frame expand-file-name server-log format "New file: %s %s" "-eval" always "\302\301@\300\"\207" [server-eval-and-print] 3 "-env" env "-dir" command-line-normalize-file-name server-client-directory "Unknown command: %s" daemonp frame-list selected-frame server-select-display server-create-window-system-frame server-create-tty-frame continuation "r\310 !q\210\305@\203 \311\305@!\203 \305@\202 \f \f\312\300\307@\301@\304@\303@\302@\306@&*\207" [get-buffer-create file-directory-p server-execute server-buffer default-directory] 8 server-goto-toplevel server-execute-continuation] 32 "\n\n(fn)" error 257 "\301\300\"\207" [server-return-error] 4 "\n\n(fn ERR)"] 10 "\n\n(fn)"] 12 (#$ . 29087)])
(defalias 'server-execute #[1799 "\300\301\302\303\304\305\306
&\307\"\310\311%D\312\301\313\300EDC\217\207" [#1=#:err funcall make-byte-code 0 "\307 \310\311\312\313\314\315\316\300\301\302\303\304\305\306&\317\"\320\321%D\322\311\312\323\324\315\316\300!\325\"\326\327%\310EDC\217)\207" vconcat vector [nil #2=#:err funcall make-byte-code 0 "\307\301\300\302#\310\311\303\237\"\210\301\204( \303\204( ;\203! \312 !\210\202( \313\314\315!\316\"\210\302\2038 \317\320\300\"\210\321\300!\210\202I \304\204I \211\204I \317\322\300\"\210\321\300!\210 \204\201 \323 \204\201 \305\203e \211\204e \324\325\326\327!\"\210\202\201 \211\203\201 \330@\331\301@A#\210\332\333!\210\302\204\201 \324\325\326\334!\"\210\305\205\215 \306?\205\215 \335\305!\207" vconcat vector [server-visit-files mapc funcall find-file switch-to-buffer get-buffer-create "*scratch*" norecord server-log "Close nowait client" server-delete-client "Close empty client" minibufferp message "%s" substitute-command-keys "When done with this frame, type \\[delete-frame]" server-switch-buffer nil run-hooks server-switch-hook "When done with a buffer, type \\[server-edit]" server-unselect-display initial-buffer-choice isearch-mode] 5 "\n\n(fn)" (quit error) 257 "\211@\301=\203 \302\303!\210\304\300\"\207" [quit message "Quit emacsclient request" server-return-error] 4 "\n\n(fn ERR)" inhibit-quit] 14 "\n\n(fn)" quit #[257 "\301\302\303!\207" [quit-flag t eval (ignore nil)] 3 "\n\n(fn IGNORED)"]] 21 "\n\n(fn PROC FILES NOWAIT COMMANDS DONTKILL FRAME TTY-NAME)"])
(defalias 'server-return-error #[514 "\300\301\302\303\304\305\306\"\307\"\310\311%D\312\301\313\300EDC\217\207" [#1=#:err funcall make-byte-code 0 "\302\300\303\304\305\301!!P\"\210\306\305\301!\300\"\210\307\310!\210\311\300!\207" vconcat vector [server-send-string "-error " server-quote-arg error-message-string server-log sit-for 5 delete-process] 6 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 11 "\n\n(fn PROC ERR)"])
#@106 Move point to the position indicated in LINE-COL.
LINE-COL should be a pair (LINE . COL).
(fn LINE-COL)
(defalias 'server-goto-line-column #[257 "\211\205 eb\210\211@Sy\210\211A\211\300V\205 \301S!\262\207" [0 move-to-column] 4 (#$ . 38614)])
#@386 Find FILES and return a list of buffers created.
FILES is an alist whose elements are (FILENAME . FILEPOS)
where FILEPOS can be nil or a pair (LINENUMBER . COLUMNNUMBER).
PROC is the client that requested this operation.
NOWAIT non-nil means this client is not waiting for the results,
so don't mark these buffers specially, just visit them normally.
(fn FILES PROC &optional NOWAIT)
(defalias 'server-visit-files #[770 "\305\306\306\262r\211\203\210 \211@ \206 \n\211@\307!\310\311\"\210\211\204/ \312\313!\210\314!q\210\202] \211q\210\312\313!\210\315!\203J \316!\204W \317\305\306\"\210\202W \320\321\322Q!\203W \323!\210 \204] \305\324A!\210\312\325!\210\312\326!\210)\266\204| \327\330\331\306\305$\210 BpB\262A\266\202\202 \210)\204\232 \332\333\334\333\"\244#\210)\207" [last-nonmenu-event server-raise-frame minibuffer-auto-raise server-buffer-clients server-existing-buffer t nil get-file-buffer add-to-history file-name-history run-hooks pre-command-hook find-file-noselect file-exists-p verify-visited-file-modtime revert-buffer y-or-n-p "File no longer exists: " ", write buffer to file? " write-file server-goto-line-column server-visit-hook post-command-hook add-hook kill-buffer-hook server-kill-buffer process-put buffers process-get] 13 (#$ . 38869)])
#@72 Non-nil while `server-kill-buffer' or `server-buffer-done' is running.
(defvar server-kill-buffer-running nil (#$ . 40173))
#@397 Mark BUFFER as "done" for its client(s).
This buries the buffer, then returns a list of the form (NEXT-BUFFER KILLED).
NEXT-BUFFER is another server buffer, as a suggestion for what to select next,
or nil. KILLED is t if we killed BUFFER (typically, because it was visiting
a temp file).
FOR-KILLING if non-nil indicates that we are called from `kill-buffer'.
(fn BUFFER &optional FOR-KILLING)
(defalias 'server-buffer-done #[513 "\305\211\211\203m \211@\306\307\"\204 >A@\262\211\203e \310\"\262\211\211\203D \211@\311!\203= \312!\204= \310\"\262A\266\202\202% \210\313\307#\210\211\204e \314\315\"\210\203a r\316!\210)\202e \316!\210\210A\266\202\202 \210\311!\203\336 \317!\203\336 \320rq\210\305\321\322!\210)\317!\204\223 \320\262\202\335 \204\335 \211\204\274 \203\274 rq\210\f)\204\274 \320\262\323!\210rq\210\324\305!\210)\325!\210\211\204\335 \326!\203\331 rq\210\324\305!\210)\325!\210\320\262\202\335 \323!\210)D\207" [server-clients server-kill-buffer-running server-buffer-clients server-kill-new-buffers server-existing-buffer nil process-get buffers delq bufferp buffer-live-p process-put server-log "Close" server-delete-client buffer-name t run-hooks server-done-hook bury-buffer set-buffer-modified-p kill-buffer server-temp-file-p] 12 (#$ . 40304)])
#@281 Return non-nil if BUFFER contains a file considered temporary.
These are files whose names suggest they are repeatedly
reused to pass information to another program.
The variable `server-temp-file-regexp' controls which filenames
are considered temporary.
(fn &optional BUFFER)
(defalias 'server-temp-file-p #[256 "\305!\205 \305!\306\307 \310 \n #,\207" [server-temp-file-regexp start string regexp inhibit-changing-match-data buffer-file-name nil t string-match] 5 (#$ . 41629)])
#@384 Offer to save current buffer, mark it as "done" for clients.
This kills or buries the buffer, then returns a list
of the form (NEXT-BUFFER KILLED). NEXT-BUFFER is another server buffer,
as a suggestion for what to select next, or nil.
KILLED is t if we killed BUFFER, which happens if it was created
specifically for the clients and did not exist before their request for it.
(fn)
(defalias 'server-done #[0 "\205, \304 \203 \305\211\306 \210*\202) \307 \203) \203) \310\311 \312Q!\203) \306 \210\313p!\207" [server-buffer-clients buffer-backed-up version-control buffer-file-name server-temp-file-p nil save-buffer buffer-modified-p y-or-n-p "Save file " "? " server-buffer-done] 4 (#$ . 42127)])
#@43 Ask before killing a server buffer.
(fn)
(defalias 'server-kill-buffer-query-function #[0 "?\2064 \302\211\203% \211@\211 >\203 \303!\304=\203 \305\262A\266\202\202 \210\211\262\2064 \306\307\310\311p!\"!\207" [server-buffer-clients server-clients t process-status open nil yes-or-no-p format "Buffer `%s' still has clients; kill it? " buffer-name] 5 (#$ . 42838)])
#@56 Ask before exiting Emacs if it has live clients.
(fn)
(defalias 'server-kill-emacs-query-function #[0 "?\206- \301\211\203# \211@\302\303\304\305\306\"\">\203 \302\262A\266\202\202 \210\211\262\206- \307\310!\207" [server-clients nil t mapcar buffer-live-p process-get buffers yes-or-no-p "This Emacs session has clients; exit anyway? "] 9 (#$ . 43220)])
#@108 Remove the current buffer from its clients' buffer list.
Designed to be added to `kill-buffer-hook'.
(fn)
(defalias 'server-kill-buffer #[0 "\206 \205 \303\n\205 \304p\303\")\207" [server-kill-buffer-running server-buffer-clients server-process t server-buffer-done] 3 (#$ . 43591)])
#@793 Switch to next server editing buffer; say "Done" for current buffer.
If a server buffer is current, it is marked "done" and optionally saved.
The buffer is also killed if it did not exist before the clients asked for it.
When all of a client's buffers are marked as "done", the client is notified.
Temporary files such as MH <draft> files are always saved and backed up,
no questions asked. (The variable `make-backup-files', if nil, still
inhibits a backup; you can set it locally in a particular buffer to
prevent a backup for it.) The variable `server-temp-file-regexp' controls
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].
(fn &optional ARG)
(defalias 'server-edit #[256 "\211\204 \203 \302!\303>\203 \304\305!\207 \203 \306\307\310 \"\207\311\312!\207" [server-process server-clients process-status (signal exit) server-mode 1 apply server-switch-buffer server-done message "No server editing buffers exist"] 4 (#$ . 43889) "P"])
#@548 Switch to another buffer, preferably one that has a client.
Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it.
KILLED-ONE is t in a recursive call if we have already killed one
temp-file server buffer. This means we should avoid the final
"switch to some other buffer" since we've already effectively
done that.
FILEPOS specifies a new buffer position for NEXT-BUFFER, if we
visit NEXT-BUFFER in an existing window. If non-nil, it should
be a cons cell (LINENUMBER . COLUMNNUMBER).
(fn &optional NEXT-BUFFER KILLED-ONE FILEPOS)
(defalias 'server-switch-buffer #[768 "C\211@\204V \211\2033 @\2043 \211@\303\304\"\203$ \303\304\"\305 =\203, \303\306\"@\240\210A\266\202\202 \210\211@\203? \307@\"\210\211@\206L \206L \310\311 !?\205\312\313!\202\314@!\204h \315\307\316@!\"\210\202\376 \317 !\203v @!\210\202\376 \320@\321\"\211\203\226 \204\226 \322!\210@q\210\203\375 \323!\210\202\375 \324 !\203\243 \322 !\210\202\270 \325 !\203\270 \326 !\204\262 \327 \322\330 !!\210\331\311 !\203\307 \322\332\333\334\321#!\210\310\311 !\203\330 \322\335\336\334\337\311 $!\210\340\341\342\321\343\344\345!\346\"\347\350%D\351\341\342\352\343\344\345\n!\353\"\354\355%\340EDC\217\210\210\n\205\356\357\311 !!\207" [server-clients server-window server-raise-frame process-get frame selected-frame buffers server-switch-buffer window-dedicated-p selected-window message "No server buffers remain to edit" buffer-live-p apply server-buffer-done functionp get-buffer-window 0 select-window server-goto-line-column window-live-p framep frame-live-p make-frame frame-selected-window window-minibuffer-p next-window nil nomini get-window-with-predicate #[257 "\300!?\205 \301\302!!\301\303 !\232\207" [window-dedicated-p frame-terminal window-frame selected-frame] 4 "\n\n(fn W)"] visible #1=#:err funcall make-byte-code "\301\300@!\207" vconcat vector [switch-to-buffer] 2 "\n\n(fn)" error 257 [pop-to-buffer] 3 "\n\n(fn IGNORED)" select-frame-set-input-focus window-frame] 15 (#$ . 44983)])
#@249 Offer to save each buffer, then kill the current client.
With ARG non-nil, silently save all file-visiting buffers, then kill.
If emacsclient was started with a list of filenames to edit, then
only these files will be asked to be saved.
(fn ARG)
(defalias 'server-save-buffers-kill-terminal #[257 "\300\301 \302\"\211\303=\203 \304 A\203 \305!\210\306 \202N \307!\202N \310!\203K \311\312\"\305\203@ \313\314\315\316\317!\320\"\321\322%\202A \323\"\210\324!\262\202N \325\326!\207" [frame-parameter selected-frame client nowait frame-list save-some-buffers delete-frame save-buffers-kill-emacs processp process-get buffers make-byte-code 0 "p\300>\207" vconcat vector [] 2 "\n\n(fn)" t server-delete-client error "Invalid client frame"] 11 (#$ . 47018)])
(define-key ctl-x-map "#" 'server-edit)
#@34 Unload the server library.
(fn)
(defalias 'server-unload-function #[0 "\301\302!\210\303\304\305#\210r\306 \211\203# \211@\211q\210\307\310\311\312#\210A\266\202\202
\210)\305\207" [ctl-x-map server-mode -1 substitute-key-definition server-edit nil buffer-list remove-hook kill-buffer-hook server-kill-buffer t] 6 (#$ . 47833)])
#@301 Contact the Emacs server named SERVER and evaluate FORM there.
Returns the result of the evaluation, or signals an error if it
cannot contact the specified server. For example:
(server-eval-at "server" '(emacs-pid))
returns the process ID of the Emacs instance running "server".
(fn SERVER FORM)
(defalias 'server-eval-at #[514 "\203 \202 \n\305\"\306\211 \307\211\211\211\310!\204! \311\312 \"\210\313\314!r\211q\210\315\316\317\320\321\322!\323\"\324\325%DC\216\203g \326\327!\210\330\331!\204N \311\332!\210\333\334!\262\335\333\324!!\262\334y\210`\336 {\262\337 \210)\340\341\342\343p\344\n\345\203y \202{
\346\203\204 \347\202\205 \350\351\352&\f\211\262\204\223 \311\353!\210\203\237 \354\355\356Q\"\210\354\357\360\361\362
\"!\356Q\"\210\363!\364>\203\276 \365\317\366#\210\202\255 eb\210\367\370\371\307\352#\203\330 \211`\372\307w\210`{P\262\202\302 \211\367\232?\205\347 \373\374\375!\376\"!\262*\262*\207" [server-use-tcp server-auth-dir server-socket-dir coding-system-for-read coding-system-for-write expand-file-name binary nil file-exists-p error "No such server: %s" generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" no-conversion insert-file-contents looking-at "\\([0-9.]+\\):\\([0-9]+\\)" "Invalid auth file" match-string 1 string-to-number line-end-position erase-buffer make-network-process :name "eval-at" :buffer :host :service :family ipv4 local :noquery t "Unable to contact the server" process-send-string "-auth " "\n" "-eval " server-quote-arg format "%S" process-status (open run) accept-process-output 10 "" re-search-forward "\n-print\\(-nonl\\)? " "^\n" read decode-coding-string server-unquote-arg emacs-internal] 23 (#$ . 48173)])
(provide 'server)