Current File : //usr/local/share/emacs/27.2/lisp/vc/vc-dispatcher.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\315\310\311&\210\300\321\302\303\322DD\323\306\315\310\311&\207" [custom-declare-variable vc-logentry-check-hook funcall function #[0 "\300\207" [nil] 1] "Normal hook run by `vc-finish-logentry'.\nUse this to impose your own rules on the entry in addition to any the\ndispatcher client mode imposes itself." :type hook :group vc vc-delete-logbuf-window #[0 "\300\207" [t] 1] "If non-nil, delete the log buffer and window after each logical action.\nIf nil, bury that buffer instead.\nThis is most useful if you have multiple windows on a frame and would like to\npreserve the setting." boolean vc-command-messages #[0 "\300\207" [nil] 1] "If non-nil, display run messages from back-end commands." vc-suppress-confirm #[0 "\300\207" [nil] 1] "If non-nil, treat user as expert; suppress yes-no prompts on some things."] 8)
(defvar vc-log-operation nil)
(defvar vc-log-after-operation-hook nil)
(defvar vc-parent-buffer nil)
(put 'vc-parent-buffer 'permanent-local t)
(defvar vc-parent-buffer-name nil)
(put 'vc-parent-buffer-name 'permanent-local t)
#@184 An alternative output filter for async process P.
One difference with the default filter is that this inserts S after markers.
Another is that undo information is not kept.
(fn P S)
(defalias 'vc-process-filter #[514 "\302!\303!\205! r\211q\210\212\304\211\305!b\210c\210\305!`\306\223,\207" [inhibit-read-only buffer-undo-list process-buffer buffer-live-p t process-mark nil] 6 (#$ . 1598)])
#@74 Prepare BUF for executing a slave command and make it current.
(fn BUF)
(defalias 'vc-setup-buffer #[257 "p\305!q\210\306p!\211\203 \307!\210\210\310 \210\311\301!\210\311\302!\210\312\313!P\211\314\211 \315 *\207" [default-directory vc-parent-buffer vc-parent-buffer-name inhibit-read-only buffer-undo-list get-buffer-create get-buffer-process delete-process kill-all-local-variables make-local-variable " from " buffer-name t erase-buffer] 6 (#$ . 2005)])
#@15
(fn P CODE)
(defalias 'vc--process-sentinel #[514 "\302!\303!\205d r\211q\210\304!\211\305=?\205 \306\307\"\262\310\311!\212\211b\210\312!\210\211`\310\223\210) \205` \313p\314\"\211\204C b\202^ \315!r\316\314\317\320\321!\322\"\323$\216\324@\325\"\210 b*\262\262)\266\202)\207" [mode-line-process vc-sentinel-movepoint process-buffer buffer-live-p process-status exit format " (%s)" nil process-mark vc-exec-after get-buffer-window 0 internal--before-with-selected-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord] 13 (#$ . 2480)])
(defalias 'vc-set-mode-line-busy-indicator #[0 "\301\302\303\304\305\306\307%P\211\207" [mode-line-process " " propertize "[waiting...]" face mode-line-emphasis help-echo "A command is in progress in this buffer"] 7])
#@207 Eval CODE when the current buffer's process is done.
If the current buffer has no process, just evaluate CODE.
Else, add CODE to the process' sentinel.
CODE should be a function of no arguments.
(fn CODE)
(defalias 'vc-exec-after #[257 "\300p!\211\203 \301!\302=\203* \211\203 \303!\210\304!\203# \210\202t \305!\210\202t \301!\306=\203p \307 \210\310C\211\311\312\313\314\315\"\316\"\317\320%\240\210\321\322\311\323\324\314\315!\325\"\326$\311\327\330\314\315!\331\"\332\333%B\262\242\310$\266\202t \334\335!\210\210\310\207" [get-buffer-process process-status exit accept-process-output functionp eval run vc-set-mode-line-busy-indicator nil make-byte-code 514 "\302\303!\301\242\"\211\303!=\204 \304\"\210\266\305\300\"\207" vconcat vector [advice--remove-function process-sentinel set-process-sentinel vc--process-sentinel] 7 "\n\n(fn P MSG)" advice--add-function :after 0 "\301\300!\207" [process-sentinel] 2 257 "\301\300\"\207" [set-process-sentinel] 4 "\n\n(fn GV--VAL)" error "Unexpected process state"] 13 (#$ . 3326)])
#@19
(fn &rest BODY)
(defalias 'vc-run-delayed '(macro . #[128 "\300\301\302BBD\207" [vc-exec-after lambda nil] 5 (#$ . 4393)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put vc-run-delayed lisp-indent-function 0 put edebug-form-spec t] 5)
#@177 Hook run at the end of `vc-do-command'.
Each function is called inside the buffer in which the command was run
and is passed 3 arguments: the COMMAND, the FILES and the FLAGS.
(defvar vc-post-command-functions nil (#$ . 4658))
#@85 Smash a FILELIST into a file list string suitable for info messages.
(fn FILELIST)
(defalias 'vc-delistify #[257 "\211\204 \300\207\301\302\303#\207" ["." mapconcat identity " "] 5 (#$ . 4891)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable vc-tor funcall function #[0 "\300\207" [nil] 1] "If non-nil, communicate with the repository site via Tor.\nSee https://2019.www.torproject.org/about/overview.html.en and\nthe man pages for \"torsocks\" for more details about Tor." :type boolean :version "27.1" :group vc] 10)
#@916 Execute a slave command, notifying user and checking for errors.
Output from COMMAND goes to BUFFER, or the current buffer if
BUFFER is t. If the destination buffer is not already current,
set it up properly and erase it. The command is considered
successful if its exit status does not exceed OKSTATUS (if
OKSTATUS is nil, that means to ignore error status, if it is
`async', that means not to wait for termination of the
subprocess; if it is t it means to ignore all execution errors).
FILE-OR-LIST is the name of a working file; it may be a list of
files or be nil (to execute commands that don't expect a file
name or set of files). If an optional list of FLAGS is present,
that is inserted into the command line before the filename.
Return the return value of the slave command in the synchronous
case, and the process object in the asynchronous case.
(fn BUFFER OKSTATUS COMMAND FILE-OR-LIST &rest FLAGS)
(defalias 'vc-do-command #[1156 "\306\307<\203 \202
C\"\310 \203 \311\202 \312\313\314\"\315\230\203* \313\316\314#\202+ \317\320!\317\320!\260r\310=\204X ;\203L \321 \230\204X p=\204X \322!\210\323\324\"\310\316\203i \244\262\325 B\310 \326=\203\273 \324 \327\330 p %)5\203\226 \331 \332 = 6\333\334\"\210)\335\336\"\210\337\340\"\210\211\2625\203\267 \341\342\316\343\344\345\n!\346\"\347$!\210\210\20215\203\315 \331 \332 = 6\333\350\"\210)\310 7\327\351 \324\310\324&\262)\310=\204 \211\250\203\366 \203 W\203 \321p!\316H\352=\204\n\353p!\210eb\210\354 \210\355\356\250\203\357\360\"\202#\2105\2031\331 \332 = 6\333\361#\210)*\341\342\316\362\344\345
#\363\"\364$!\210)\266\202*\207" [message-truncate-lines vc-tor inhibit-read-only process-environment w32-quote-process-args process-connection-type mapcar #[257 "\300\301!!\207" [file-relative-name expand-file-name] 4 "\n\n(fn F)"] t "torsocks " "" substring -1 "\n" 0 " " vc-delistify buffer-name vc-setup-buffer remq nil "LC_MESSAGES=C" async apply start-file-process selected-window active-minibuffer-window message "Running in background: %s" set-process-sentinel ignore set-process-filter vc-process-filter vc-exec-after make-byte-code "\303\304 \305 =\306\307\300\"*\207" vconcat vector [inhibit-message message-truncate-lines t selected-window active-minibuffer-window message "Done in background: %s"] 3 "Running in foreground: %s" process-file 32 pop-to-buffer shrink-window-if-larger-than-buffer error "Failed (%s): %s" format "status %d" "Done (status=%d): %s" "\303\304\300\301\302$\207" [run-hook-with-args vc-post-command-functions] 5 vc-command-messages inhibit-message buffer-undo-list] 19 (#$ . 5468)])
#@315 Run COMMAND asynchronously with ARGS, displaying the result.
Send the output to BUFFER, which should be a buffer or the name
of a buffer, which is created.
ROOT should be the directory in which the command should be run.
Display the buffer in some window, but don't select it.
(fn BUFFER ROOT COMMAND &rest ARGS)
(defalias 'vc-do-async-command #[899 "\302\303\211\304!\262\305!\203 \306\307\"\210rq\210db\210`e=\204+ \310c\210`\262\311\261\210\211\203F \211@\312\261\210A\266\202\2024 \210\313c\210\314\315\302\316\303 &\210*\317!\262\203h \320\"\210)\207" [default-directory inhibit-read-only t nil get-buffer-create get-buffer-process error "Another VC action on %s is running" "\f\n" "Running \"" " " "\"...\n" apply vc-do-command async display-buffer set-window-start] 14 (#$ . 8154)])
#@101 Setup `compilation-mode' after with the appropriate `compilation-error-regexp-alist'.
(fn BACKEND)
(defalias 'vc-compilation-mode #[257 "\301\302!\210\303\304\"\305!\205 \211J\211\306 \210)\307\300!\210\211\211\207" [compilation-error-regexp-alist require compile vc-make-backend-sym error-regexp-alist boundp compilation-mode make-local-variable] 5 (#$ . 8987)])
#@367 Set a `vc-exec-after' action appropriate to the current buffer.
This action will update the current buffer after the current
asynchronous VC command has completed. PROCESS-BUFFER is the
buffer for the asynchronous VC process.
If the current buffer is a VC Dir buffer, call `vc-dir-refresh'.
If the current buffer is a Dired buffer, revert it.
(fn PROCESS-BUFFER)
(defalias 'vc-set-async-update #[257 "p\300!\301\302!\203 rq\210\303\304\305\306\307\310!\311\"\312$!)\202; \301\313!\205; rq\210\303\304\305\314\307\310\"\315\"\312$!)\207" [buffer-modified-tick derived-mode-p vc-dir-mode vc-exec-after make-byte-code 0 "\301\300!\205
r\300q\210\302 )\207" vconcat vector [buffer-live-p vc-dir-refresh] 2 dired-mode "\302\300!\205 \303\300!\301U\205 r\300q\210\304 )\207" [buffer-live-p buffer-modified-tick revert-buffer]] 11 (#$ . 9364)])
#@169 Save a bit of the text around POSN in the current buffer.
Used to help us find the corresponding position again later
if markers are destroyed or corrupted.
(fn POSN)
(defalias 'vc-position-context #[257 "\211\300 d\301\\^{E\207" [buffer-size 100] 7 (#$ . 10225)])
#@109 Return the position of CONTEXT in the current buffer.
If CONTEXT cannot be found, return nil.
(fn CONTEXT)
(defalias 'vc-find-position-by-context #[257 "\3008\211\301\232\203
d\202A \212A@\302 Z\211\303W\203 \211[\262@b\210\304\305\306#\204: \307`G#b\210\304\305\306#\205> `GZ\262)\207" [2 "" buffer-size 0 search-forward nil t -] 7 (#$ . 10500)])
#@69 Return t if POSN matches CONTEXT, nil otherwise.
(fn POSN CONTEXT)
(defalias 'vc-context-matches-p #[514 "\3008\211G\\\211\301 TV?\205 {\230\207" [2 buffer-size] 8 (#$ . 10867)])
#@119 Return a list (POINT-CONTEXT MARK-CONTEXT REPARSE).
Used by `vc-restore-buffer-context' to later restore the context.
(defalias 'vc-buffer-context #[0 "\301`!\302\303 !p=\205 \301\303 !\304)D\207" [mark-active vc-position-context marker-buffer mark-marker nil] 4 (#$ . 11061)])
#@132 Restore point/mark, and reparse any affected compilation buffers.
CONTEXT is that which `vc-buffer-context' returns.
(fn CONTEXT)
(defalias 'vc-restore-buffer-context #[257 "\211@A@\301`\"\204 \302!\211\203 \211b\210\210\2054 \211\2054 \301\303 \"?\2054 \302!\211\2052 \304!\262\207" [mark-active vc-context-matches-p vc-find-position-by-context mark set-mark] 6 (#$ . 11350)])
#@285 Revert buffer, keeping point and mark where user expects them.
Try to be clever in the face of changes due to expanded version-control
key words. This is important for typeahead to work as expected.
ARG and NO-CONFIRM are passed on to `revert-buffer'.
(fn &optional ARG NO-CONFIRM)
(defalias 'vc-revert-buffer-internal #[512 "~\210\300 \212\301\302#\210)\303!\207" [vc-buffer-context revert-buffer t vc-restore-buffer-context] 7 (#$ . 11746) "P"])
(defvar vc-mode-line-hook nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local vc-mode-line-hook put permanent-local t] 4)
#@427 If FILE is in the current buffer, either revert or unvisit it.
The choice between revert (to see expanded keywords) and unvisit
depends on KEEP. NOQUERY if non-nil inhibits confirmation for
reverting. NOQUERY should be t *only* if it is known the only
difference between the buffer and the file is due to
modifications by the dispatcher client code, rather than user
editing!
(fn FILE &optional KEEP NOQUERY RESET-VC-INFO)
(defalias 'vc-resynch-window #[1025 "\230\205L \203I \305!\205L \211\203 \306!\210\307\310\"\210 \203D \311!\2035 \n\203D \312\313\310!\210)\202D \n\204D \f\314N\315=\204D \316 \210\317\320\"\207\321p!\207" [buffer-file-name view-read-only view-mode view-old-buffer-read-only major-mode file-exists-p vc-file-clearprops vc-revert-buffer-internal t file-writable-p nil view-mode-exit mode-class special view-mode-enter run-hook-with-args vc-mode-line-hook kill-buffer] 7 (#$ . 12357)])
#@104 Resync all buffers that visit files in DIRECTORY.
(fn DIRECTORY &optional KEEP NOQUERY RESET-VC-INFO)
(defalias 'vc-resynch-buffers-in-directory #[1025 "\300 \211\205. \211@\301!\211\203& \302\"\203& rq\210\303$\210)\210A\266\202\202 \207" [buffer-list buffer-file-name string-prefix-p vc-resynch-buffer] 12 (#$ . 13285)])
#@99 If FILE is currently visited, resynch its buffer.
(fn FILE &optional KEEP NOQUERY RESET-VC-INFO)
(defalias 'vc-resynch-buffer #[1025 "\230\203 \302$\210\2024 \303!\203 \304$\210\2024 \305!\211\2033 r\211q\210\302$\210)\210 \205; \306!\207" [buffer-file-name vc-dir-buffers vc-resynch-window file-directory-p vc-resynch-buffers-in-directory get-file-buffer vc-dir-resynch-file] 10 (#$ . 13629)])
#@159 Make sure the current buffer and its working file are in sync.
NOT-URGENT means it is ok to continue if the user says not to save.
(fn &optional NOT-URGENT)
(defalias 'vc-buffer-sync #[256 "\302\303 \204 \304!?\2058 \305\211\262\2058 \204+ \306\307\310\311 \203% \312\202& \313#!\2030 \314 \2028 ?\2058 \315\316!\207" [buffer-file-name vc-suppress-confirm nil buffer-modified-p file-exists-p t y-or-n-p format "Buffer %s %s; save it? " buffer-name "is missing on disk" "modified" save-buffer error "Aborted"] 7 (#$ . 14051)])
#@63 Set up `log-edit' for use on FILE.
(fn FILESET MODE BACKEND)
(defalias 'vc-log-edit #[771 "\304\301\"\305\306!\210\306\307\310 \206 \311\302!\205 \n\232?\312\313\314\315\316\317\320\321
DEEF\322\323B\302 BF\314%\210\324\314!\210\314\211\207" [vc-parent-buffer default-directory vc-log-fileset buffer-file-name buffer-local-value require log-edit vc-finish-logentry log-edit-empty-buffer-p local-variable-p log-edit-listfun lambda nil let ((root (vc-root-dir))) mapcar (lambda (file) (file-relative-name file root)) quote (log-edit-diff-function . vc-diff) log-edit-vc-backend set-buffer-modified-p] 15 (#$ . 14590)])
#@842 Accept a comment for an operation on FILES.
If COMMENT is nil, pop up a LOGBUF buffer, emit MSG, and set the
action on close to ACTION. If COMMENT is a string and
INITIAL-CONTENTS is non-nil, then COMMENT is used as the initial
contents of the log entry buffer. If COMMENT is a string and
INITIAL-CONTENTS is nil, do action immediately as if the user had
entered COMMENT. If COMMENT is t, also do action immediately with an
empty comment. Remember the file's buffer in `vc-parent-buffer'
(current one if no file). Puts the log-entry buffer in major-mode
MODE, defaulting to `log-edit-mode' if MODE is nil.
AFTER-HOOK specifies the local value for `vc-log-after-operation-hook'.
BACKEND, if non-nil, specifies a VC backend for the Log Edit buffer.
(fn FILES COMMENT INITIAL-CONTENTS MSG LOGBUF MODE ACTION &optional AFTER-HOOK BACKEND)
(defalias 'vc-start-logentry #[2311 "\304 \203 p\202 \203 G\305\232\203 \306 @!\202 p\2032 \2042 \307!q\210\2029 \310\307!!\210\311\300!\210\211\311\301!\210\312\313!P\314\n#\210\311\302!\210\203[ \311\303!\210\203s \315 \210;\203s c\210\203} \203\205 \316\317\"\202\213 \320 \321=!\207" [vc-parent-buffer vc-parent-buffer-name vc-log-after-operation-hook vc-log-operation vc-dispatcher-browsing 1 get-file-buffer get-buffer-create pop-to-buffer make-local-variable " from " buffer-name vc-log-edit erase-buffer message "%s Type C-c C-c when done" vc-finish-logentry t] 14 (#$ . 15227)])
#@256 Complete the operation implied by the current log entry.
Use the contents of the current buffer as a check-in or registration
comment. If the optional arg NOCOMMENT is non-nil, then don't check
the buffer contents as a comment.
(fn &optional NOCOMMENT)
(defalias 'vc-finish-logentry #[256 "\211\204 \305\306!\210rq\210\307 \204 \310 \210) \204 \311\312!\210p \n\313 \314!\210\212\"\210)\315\203H \f\203B \316\317\320 #\210\202H \316\315\321#\210\203Q \322\323\"\210\307 \203Y \324 \210\305\325\"\207" [vc-parent-buffer vc-log-operation vc-log-fileset vc-log-after-operation-hook vc-delete-logbuf-window run-hooks vc-logentry-check-hook vc-dispatcher-browsing vc-buffer-sync error "No log operation is pending" buffer-string pop-to-buffer nil quit-windows-on t selected-frame 0 mapc #[257 "\300\301\211#\207" [vc-resynch-buffer t] 5 "\n\n(fn FILE)"] vc-dir-move-to-goal-column vc-finish-logentry-hook] 10 (#$ . 16707) nil])
#@39 Are we in a directory browser buffer?
(defalias 'vc-dispatcher-browsing #[0 "\300\301!\207" [derived-mode-p vc-dir-mode] 2 (#$ . 17655)])
(provide 'vc-dispatcher)
Mini Shell