;ELC   
;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008
;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-core.el
;;; in Emacs version 23.0.50.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`dvc-core.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require dvc-defs dvc-register dvc-utils dvc-buffers dvc-lisp] 2)
#@36 Fontified string used for marking.
(defconst dvc-mark (byte-code "\306\307\310\211\211\203\221 \311\f!\n9\205  \312\313\314\315\n!\"!\203* \2028 	\2058 \316	!;\2058 \316	!\203U \203P \317\320\317\260\202V \202V \n9\203b \nJ\202c \n\321\322G\303\323\324\n\205{ \325\326\302\n\327\257	\205\202 \330	D\"BBBB$\210-\202\222 \f-\207" [help menu keymap face str dvc-highlight "*" dvc-mark nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 font-lock-face append mouse-face highlight help-echo dvc-cmenu strcpy key-help prefix-help long-help] 14) (#$ . 739))
#@43 Fontified string used for excluded files.
(defconst dvc-exclude (byte-code "\306\307\310\211\211\203\221 \311\f!\n9\205  \312\313\314\315\n!\"!\203* \2028 	\2058 \316	!;\2058 \316	!\203U \203P \317\320\317\260\202V \202V \n9\203b \nJ\202c \n\321\322G\303\323\324\n\205{ \325\326\302\n\327\257	\205\202 \330	D\"BBBB$\210-\202\222 \f-\207" [help menu keymap face str dvc-highlight "E" dvc-mark nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 font-lock-face append mouse-face highlight help-echo dvc-cmenu strcpy key-help prefix-help long-help] 14) (#$ . 1406))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\310\311!\210\312\311\313\314#\207" [current-load-list dvc-memorized-log-header default-boundp set-default nil dvc-memorized-log-message dvc-memorized-version dvc-memorized-patch-sender make-variable-buffer-local list-buffers-directory put permanent-local t] 4)
#@468 Find FILE-OR-DIR upward in the file system from LOCATION.
Finding is continued upward to "/" until FILE-OR-DIR can be found.
Once FILE-OR-DIR is found, the finding is broken off.
A directory which holds FILE-OR-DIR is returned. If no such directory
`nil' is returned. `default-directory' is used instead if LOCATION is not
given,

The resulting directory is guaranteed to end in a "/" character.

This function may be useful to find {arch} and/or _darcs directories.
(defalias 'dvc-find-tree-root-file-first #[(file-or-dir &optional location) "\206 	\306\211\211\307\230\204< \f\235\204< \310\311\f!P!\204< \fB\312\311\f!\313P!\211\f\230\2036 \307\2027 \n\211\202 \f\307\230?\205[ \314\315\316\f#\311\f!\317>\203Z \312\f!\202[ \f+\207" [location default-directory new-pwd pwd-stack pwd file-or-dir nil "/" file-exists-p file-name-as-directory expand-file-name ".." replace-regexp-in-string "\\([^:]\\)/*$" "\\1" (ms-dos windows-nt) system-type] 5 (#$ . 2519)])
#@317 Find FILE-OR-DIR upward in the file system from LOCATION.

Calls `dvc-find-tree-root-file-first', shows a message when
called interactively, and manages no-error.

If LOCATION is nil, the tree root is returned, and it is
guaranteed to end in a "/" character.

MSG must be of the form "%S is not a ...-managed tree".
(defalias 'dvc-tree-root-helper #[(file-or-dir interactivep msg &optional location no-error) "\306!\307	\"\203 \n\203 \310\311\n\"\210\n\206( \f?\205( \312\206' \"*\207" [location file-or-dir pwd interactivep no-error msg dvc-uniquify-file-name dvc-find-tree-root-file-first dvc-trace "%s" error default-directory] 3 (#$ . 3503)])
#@443 Like `dvc-find-tree-root-file-upward' but recursively if FILE-OR-DIR is found.
Finding is started from LOCATION but is stoped when FILE-OR-DIR cannot be found.
Fiddled is continued upward while FILE-OR-DIR can be found.
The last found directory which holds FILE-OR-DIR is returned. `nil' is returned
if finding failed.
`default-directory' is used instead if LOCATION is not given,

This function may be useful to find CVS or .svn directories
(defalias 'dvc-find-tree-root-file-last #[(file-or-dir &optional location) "\206 	\305\211\2030 \306\230\2040 \307\310!\fP!\203* \311\310!\312P!\211\202	 \305\211\204\f \n\205; \311\313\314\306\n#!*\207" [location default-directory old-pwd pwd file-or-dir nil "/" file-exists-p file-name-as-directory expand-file-name ".." replace-regexp-in-string "/+$"] 6 (#$ . 4168)])
#@244 Create a new function by adding mouse interface to FUNCTION.
The new function is named FUNCTION-by-mouse; and takes one argument,
a mouse click event.
Thew new function moves the point to the place where mouse is clicked
then invoke FUNCTION.
(defalias 'dvc-make-bymouse-function '(macro . #[(function) "\301\302\303!\304P!\305\306\303!\307\310R\311\312C\257\207" [function defun intern symbol-name "-by-mouse" (event) "`" "'" " with mouse interface." (interactive "e") (mouse-set-point event)] 7 (#$ . 4999)]))
#@39 Delete FILE or directory recursively.
(defalias 'dvc-delete-recursively #[(file) "\302\303	!@\304=\204 \305	!\202. \306	\304\307#\211\203+ \203+ \310@!\210A\211\204 \311	!)\207" [files file nil file-attributes t delete-file directory-files "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*" dvc-delete-recursively delete-directory] 5 (#$ . 5521)])
#@51 Function used to get the file at point, anywhere.
(defvar dvc-get-file-info-at-point-function nil (#$ . 5871))
#@208 Gets the filename at point, according to mode.
Calls the function `dvc-get-file-info-at-point-function' if defined.
When in dired mode, return the file where point is.
Otherwise return the buffer file name.
(defalias 'dvc-get-file-info-at-point #[nil "\203  \207	\302=\203 \303 \207\304 \207" [dvc-get-file-info-at-point-function major-mode dired-mode dired-get-filename buffer-file-name] 2 (#$ . 5989)])
#@376 Return a list of currently active files.
When in dired mode, return the marked files or the file under point.
In a DVC mode, return `dvc-buffer-marked-file-list' if non-nil;
otherwise the result depends on SELECTION-MODE:
* When 'nil-if-none-marked, return nil.
* When 'all-if-none-marked, return all files.
* Otherwise return result of calling `dvc-get-file-info-at-point'.
(defalias 'dvc-current-file-list #[(&optional selection-mode) "\303=\203	 \304 \207\305\306!\203+ \307\310	\"\206H \n\311=\203 \310\207\n\312=\203' \313 \207\314 C\207\315=\203> \n\311=\2039 \310\207\316\317\n\"\207\n\311=?\205H \314 C\207" [major-mode dvc-buffer-marked-file-list selection-mode dired-mode dired-get-marked-files derived-mode-p dvc-diff-mode remove nil nil-if-none-marked all-if-none-marked dvc-fileinfo-all-files dvc-get-file-info-at-point dvc-bookmark-mode error "selection-mode %s not implemented for dvc bookmark buffer"] 3 (#$ . 6405)])
#@71 A wrapper around `read-file-name' that provides some useful defaults.
(defalias 'dvc-confirm-read-file-name #[(prompt &optional mustmatch file-name default-filename) "\204 \304 \305	\306\206 \307!\n\310\206 \307!%\207" [file-name prompt default-filename mustmatch dvc-get-file-info-at-point read-file-name file-name-directory "" file-name-nondirectory] 7 (#$ . 7348)])
(defalias 'dvc-confirm-read-file-name-list #[(prompt &optional files single-prompt mustmatch) "\203 	\2064 	G\211\306U\203( \307\f	@#\211\204\" \310\311\305C\"\210)C\2023 \312\313\f\n\"!\2053 	)\207" [dvc-test-mode files num-files single-prompt mustmatch confirmed-file-name 1 dvc-confirm-read-file-name signal cl-assertion-failed y-or-n-p format prompt] 5])
#@214 Function to use for confirming file-based DVC operations.
Some valid options are:
y-or-n-p: Prompt for 'y' or 'n' keystroke.
yes-or-no-p: Prompt for "yes" or "no" string.
dvc-always-true: Do not display a prompt.
(custom-declare-variable 'dvc-confirm-file-op-method ''y-or-n-p '(#$ . 8098) :type 'function :group 'dvc)
#@91 Do nothing and return t.
This function accepts any number of arguments, but ignores them.
(defalias 'dvc-always-true #[(&rest ignore) "\300\207" [t] 1 (#$ . 8423) nil])
#@290 Confirm OPERATION (a string, used in prompt) on FILE (list of strings).
If CONFIRM is nil, just return FILES (no prompt).
Returns FILES, or nil if not confirmed.

If you want to adjust the function called to confirm the
operation, then customize the `dvc-confirm-file-op-method' function.
(defalias 'dvc-confirm-file-op #[(operation files confirm) "\203 	\2066 \n\204 	\207	G\306\f!\203 \f\206 \307\310U\203+ \311\312	@#\2020 \311\313#!\2055 	)\207" [dvc-test-mode files confirm nfiles dvc-confirm-file-op-method operation functionp y-or-n-p 1 format "%s file: \"%s\" ? " "%s %d files? "] 5 (#$ . 8599)])
(defalias 'dvc-dvc-files-to-commit #[nil "rq\210\302\303!)\304\305	\")\207" [dvc-partner-buffer files dvc-current-file-list all-if-none-marked mapcar #[(arg) "\301B\207" [arg nil] 2]] 3])
#@86 Opens the file at point.
The filename is obtained with `dvc-get-file-info-at-point'.
(defalias 'dvc-find-file-at-point #[nil "\301 \211\204 \302\303!\202 \304!)\207" [file dvc-get-file-info-at-point error "No file at point" find-file] 3 (#$ . 9411) nil])
#@48 `dvc-find-file-at-point' with mouse interface.
(defalias 'dvc-find-file-at-point-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point dvc-find-file-at-point] 2 (#$ . 9676) "e"])
#@105 Visit the current file in the other window.
The filename is obtained with `dvc-get-file-info-at-point'.
(defalias 'dvc-find-file-other-window #[nil "\301 \211\203 \302!\202 \303\304!)\207" [file dvc-get-file-info-at-point find-file-other-window error "No file at point"] 3 (#$ . 9872) nil])
#@100 Visit the current file in `view-mode'.
The filename is obtained with `dvc-get-file-info-at-point'.
(defalias 'dvc-view-file #[nil "\301 \211\203 \302!\202 \303\304!)\207" [file dvc-get-file-info-at-point view-file-other-window error "No file at point"] 3 (#$ . 10174) nil])
#@55 Jump to a dired buffer, containing the file at point.
(defalias 'dvc-dired-jump #[nil "\302\303 \206 \304!\305!\306 \210)\307!)\207" [file-full-path default-directory expand-file-name dvc-get-file-info-at-point "" file-name-directory dired-jump dired-goto-file] 2 (#$ . 10458) nil])
#@129 Delete FILES from the harddisk. No backup is created for these FILES.
These function bypasses the used revision control system.
(defalias 'dvc-purge-files #[(&rest files) "\303\304!\303\305!\306	\n\307$\205 \310\311\n\"\210\312\313\n\"*\207" [singleprompt multiprompt files format "Are you sure to purge %%d files? " "Purge file: " dvc-confirm-read-file-name-list nil mapcar delete-file message "Purged %S"] 5 (#$ . 10753) (dvc-current-file-list)])
#@168 Return the name of the binary associated with the current dvc backend.
This uses `dvc-current-active-dvc'.

"DVC" is returned if `dvc-current-active-dvc' returns nil.
(defalias 'dvc-current-executable #[nil "\301 \211\204 \302\202 \303\304\")\207" [dvc dvc-current-active-dvc "DVC" dvc-variable "executable"] 4 (#$ . 11213)])
#@121 DVC Partner buffer; stores diff buffer for log-edit, etc.
Local to each buffer, not killed by kill-all-local-variables.
(defvar dvc-partner-buffer nil (#$ . 11550))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local dvc-partner-buffer put permanent-local t] 4)
#@42 Pop to dvc-partner-buffer, if available.
(defalias 'dvc-buffer-pop-to-partner-buffer #[nil "\301\300!\203 \203 \302!\203 \303!\207\304\305!\207\304\306!\207" [dvc-partner-buffer boundp buffer-live-p pop-to-buffer message "Partner buffer has been killed" "No partner buffer set for this buffer."] 2 (#$ . 11842) nil])
#@135 Execute a body of code with keywords bound.
Each keyword listed in KEYWORDS is bound to its value from PLIST, then
BODY is evaluated.
(defalias 'dvc-with-keywords '(macro . #[(keywords plist &rest body) "\306\307!\211\205\n \307K\310\216\307\311M\210\312\313!\312\314!\315\316\317\f\"\320\321\322\fDD\315\323B\n\324BD\325\326\327\330D\331BBD\332\333\334ED\nEEEE-BBB\207" [#1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- default keyword keywords plist fboundp keyword-to-symbol ((byte-code "\203 \302	M\210\202 \303\302!\210\302\207" [#1# #2# keyword-to-symbol fmakunbound] 2)) #[(keyword) "\301\302!\303\304O!\207" [keyword intern symbol-name 1 nil] 4] make-symbol "keyword" "default" let mapcar #[(keyword-entry) "\301:\203 @\202\f !\207" [keyword-entry keyword-to-symbol] 2] dolist keyword-entry quote ((if (consp keyword-entry) (car keyword-entry) keyword-entry)) ((if (consp keyword-entry) (cadr keyword-entry) nil)) set intern substring symbol-name (1) or cadr member body] 14 (#$ . 12172)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put dvc-with-keywords lisp-indent-function 1 edebug-form-spec (sexp sexp body)] 4)
#@305 Default function called when a DVC process ends with a non-zero status.
OUTPUT is the buffer containing process standard output.
ERROR is the buffer containing process error output.
STATUS indicates the return status of the program.
ARGUMENTS is a list of the arguments that the process was called with.
(defalias 'dvc-default-error-function #[(output error status arguments) "rq\210d)\304V\203 \305!\210\2020 r	q\210d)\304V\203$ \305	!\210\2020 \300\306\307 \310\311\n\312#$\210\300\313\307 \310\311\n\312#$\207" [error output arguments status 1 dvc-show-error-buffer "`%s %s' failed with code %d and no output!" dvc-current-executable mapconcat identity " " "`%s %s' failed with code %d"] 7 (#$ . 13332)])
#@177 The number of killed processes we will ignore until throwing an error.
If the value is 0, `dvc-default-killed-function' will throw an error.
See `dvc-default-killed-function'.
(defvar dvc-default-killed-function-noerror 0 (#$ . 14052))
#@287 Default function called when a DVC process is killed.
OUTPUT is the buffer containing process standard output.
ERROR is the buffer containing process error output.
STATUS indicates the return status of the program.
ARGUMENTS is a list of the arguments that the process was called with.
(defalias 'dvc-default-killed-function #[(output error status arguments) "\303V\203 S\211\207\304	!\210\301\305\306 \307\310\n\311##\207" [dvc-default-killed-function-noerror error arguments 0 dvc-switch-to-buffer "`%s %s' process killed !" dvc-current-executable mapconcat identity " "] 7 (#$ . 14295)])
#@407 Handle a finished process without doing anything.
Candidate as an argument for one of the keywords :finished, :error or :killed
in `dvc-run-dvc-sync' or `dvc-run-dvc-async'.
OUTPUT is the buffer containing process standard output.
ERROR is the buffer containing process error output.
STATUS indicates the return status of the program.
ARGUMENTS is a list of the arguments that the process was called with.
(defalias 'dvc-null-handler #[(output error status arguments) "\300\207" [nil] 1 (#$ . 14897)])
#@415 Return an integer value that reflects the process status.
Candidate as an argument for one of the keywords :finished, :error or :killed
in `dvc-run-dvc-sync' or `dvc-run-dvc-async'.
OUTPUT is the buffer containing process standard output.
ERROR is the buffer containing process error output.
STATUS indicates the return status of the program.
ARGUMENTS is a list of the arguments that the process was called with.
(defalias 'dvc-status-handler #[(output error status arguments) "\247\203 \207\301\302\"\203 \303\304\305!!\207\306!\207" [status string-match "^exited abnormally with code \\(.*\\)" string-to-number match-string 1 error] 3 (#$ . 15406)])
#@306 Return the output of a finished process, stripping any trailing newline.
OUTPUT is the buffer containing process standard output.
ERROR is the buffer containing process error output.
STATUS indicates the return status of the program.
ARGUMENTS is a list of the arguments that the process was called with.
(defalias 'dvc-output-buffer-handler #[(output error status arguments) "\301!\207" [output dvc-buffer-content] 2 (#$ . 16072)])
#@70 Same as dvc-output-buffer-handler, but keep potential final newline.
(defalias 'dvc-output-buffer-handler-withnewline #[(output error status arguments) "rq\210\301 )\207" [output buffer-string] 1 (#$ . 16512)])
#@306 Return the output of a finished process, stripping any trailing newline.
OUTPUT is the buffer containing process standard output.
ERROR is the buffer containing process error output.
STATUS indicates the return status of the program.
ARGUMENTS is a list of the arguments that the process was called with.
(defalias 'dvc-output-and-error-buffer-handler #[(output error status arguments) "\302!\302	!P\207" [output error dvc-buffer-content] 3 (#$ . 16731)])
#@293 Return the output of a finished process as a list of lines.
OUTPUT is the buffer containing process standard output.
ERROR is the buffer containing process error output.
STATUS indicates the return status of the program.
ARGUMENTS is a list of the arguments that the process was called with.
(defalias 'dvc-output-buffer-split-handler #[(output error status arguments) "\301\302!\303\"\207" [output split-string dvc-buffer-content "\n"] 3 (#$ . 17195)])
#@288 Default function called when a DVC process terminates.
OUTPUT is the buffer containing process standard output.
ERROR is the buffer containing process error output.
STATUS indicates the return status of the program.
ARGUMENTS is a list of the arguments that the process was called with.
(defalias 'dvc-default-finish-function #[(output error status arguments) "\305r	q\210\306 \210d\307V)\203 \310	!\210\n\204 \203) \311\312\313 \314\315\316##\210\f)\207" [has-output output dvc-debug arguments status nil dvc-process-buffer-mode 1 dvc-switch-to-buffer message "Process `%s %s' finished" dvc-current-executable mapconcat identity " "] 7 (#$ . 17657)])
#@298 Similar to `dvc-default-finish-function' but no buffer switch.
OUTPUT is the buffer containing process standard output.
ERROR is the buffer containing process error output.
STATUS indicates the return status of the program.
ARGUMENTS is a list of the arguments that the process was called
  with.
(defalias 'dvc-finish-function-without-buffer-switch #[(output error status arguments) "rq\210\303\304\305 \306\307	\310##\210\n)\207" [output arguments status dvc-trace "Process `%s %s' finished" dvc-current-executable mapconcat identity " "] 7 (#$ . 18323)])
#@265 List of DVC processes running.
A value of nil indicates no processes are running.

The list is a list of pairs (process event) where EVENT is the event
corresponding to the beginning of the execution of process.  It can be
used to get more info about the process.
(defvar dvc-process-running nil (#$ . 18889))
#@89 Build a shell command to run DVC with args LIST-ARGS.
DVC can be one of 'baz, 'xhg, ...
(defalias 'dvc-build-dvc-command #[(dvc list-args) "\303\304\305\"!\211\204 \306\307\310!\"\210\311\312	\313\314\n\"B\315#)\207" [dvc executable list-args executable-find dvc-variable "executable" error "executable for %s not found" symbol-name mapconcat shell-quote-argument remq nil " "] 7 (#$ . 19205)])
#@65 *Regexp matching prompts for passwords in the inferior process.
(custom-declare-variable 'dvc-password-prompt-regexp '"[Pp]ass\\(word\\|phrase\\).*:\\s *\\'" '(#$ . -19610) :type 'regexp :group 'dvc)
#@242 Filter PROC's STRING.
Prompt for password with `read-passwd' if the output of PROC matches
`dvc-password-prompt-regexp'.

If NO-INSERT is non-nil, do not insert the string.

In all cases, a new string is returned after normalizing newlines.
(defalias 'dvc-process-filter #[(proc string &optional no-insert) "r\305!q\210\306\307\310	#\n\204 \311!b\210	c\210\311!`\312\223\210\313	\"\203: \313\314	\"\210\315\316\317	\"!\320\f\310P\"\210)	)\207" [proc string no-insert dvc-password-prompt-regexp passwd process-buffer replace-regexp-in-string "" "\n" process-mark nil string-match "^\\([^\n]+\\)\n*\\'" read-passwd match-string 1 process-send-string] 4 (#$ . 19817)])
#@42 By default, do not touch the environment
(defalias 'dvc-prepare-environment #[(env) "\207" [env] 1 (#$ . 20498)])
#@33 By default, no global argument.
(defalias 'dvc-default-global-argument #[nil "\300\207" [nil] 1 (#$ . 20619)])
#@2087 Run a process asynchronously.
Current directory for the process is the current `default-directory'.
ARGUMENTS is a list of arguments.  nil values in this list are removed.
KEYS is a list of keywords and values.  Possible keywords are:

 :finished ....... Function run when the process finishes.  If none
                   specified, `dvc-default-finish-function' is run.

 :killed ......... Function run when the process is killed.  If none
                   specified, `dvc-default-killed-function' is run.

 :error .......... Function run when the process exits with a non 0
                   status.  If none specified,
                   `dvc-default-error-function' is run.

All these functions take 4 arguments : output, error, status, and
arguments.

   - "output" is the output buffer
   - "error" is the buffer where standard error is redirected
   - "status" is the numeric exit-status or the signal number
   - "arguments" is the list of arguments, as a list of strings,
              like '("changes" "--diffs")

   `dvc-null-handler' can be used here if there's nothing to do.

 :filter           Function to call every time we receive output from
                   the process.  It should take arguments proc and string.
                   The string will have been run through
                   `dvc-process-filter' to deal with password prompts and
                   newlines.

 :output-buffer .. Buffer where the output of the process should be
                   redirected.  If none specified, a new one is
                   created, and will be entered in
                   `dvc-dead-process-buffer-queue' to be killed
                   later.

 :error-buffer ... Buffer where the standard error of the process
                   should be redirected.

 :related-buffer . Defaults to `current-buffer'.  This is the buffer
                   where the result of the process will be used.  If
                   this buffer is killed before the end of the
                   execution, the user is prompted if he wants to kill
                   the process.
(defalias 'dvc-run-dvc-async #[(dvc arguments &rest keys) "\306\211\211\211\211\211\2111\307\3062\2113\203b 3@\2112:\203) 2@\202+ 22:\2059 2\2114A@)56\310\3116!\312\306O!67\235\2114A@)\206V 5L\210*3A\2113\204 *\n\203m \313\n!\206r \314\3068\"9	\203~ \313	!\206\203 \315\3068\":\316\317!;\3208\321\" <\3228\323<=\"\">\324?!?\3208\325\"@!@r9q\2108A)\326\3278\330\"9\331\332\333\334>;#%)\211/\3359:>?\336%DBr\206\342 pq\210\337\340>?#\210\341\342B\"\210\343/\204\375 \344\202\n\345\346\347\350\351\352\353CD\257E\"\210\354/\345\355\347\356\357\360\353	\n\f=18;B>:9?\257D\257E\"\210/.\207" [related-buffer error-buffer output-buffer filter error killed nil (:finished :killed :error :filter :output-buffer :error-buffer :related-buffer) intern symbol-name 1 get-buffer-create dvc-new-process-buffer dvc-new-error-buffer dvc-make-temp-name "dvc-errors" dvc-function "default-global-argument" dvc-build-dvc-command append dvc-uniquify-file-name "prepare-environment" start-process dvc-variable "executable" "sh" "-c" format "%s 2> %s" dvc-log-event "started" dvc-trace "Running process `%s' in `%s'" add-to-list dvc-process-running set-process-filter dvc-process-filter lambda (proc string) apply #[(proc string #1=#:dvc-gensym-uniq-17) "	\303	\n\304#\"\207" [#1# proc string dvc-process-filter t] 6] proc string quote set-process-sentinel (process event) #[(process event #2=#:dvc-gensym-uniq-30 #3=#:dvc-gensym-uniq-29 #4=#:dvc-gensym-uniq-28 #5=#:dvc-gensym-uniq-27 #6=#:dvc-gensym-uniq-26 #7=#:dvc-gensym-uniq-25 #8=#:dvc-gensym-uniq-24 #9=#:dvc-gensym-uniq-23 #10=#:dvc-gensym-uniq-22 #11=#:dvc-gensym-uniq-21 #12=#:dvc-gensym-uniq-20 #13=#:dvc-gensym-uniq-19 #14=#:dvc-gensym-uniq-18) "\306\n\f\307!%\210\310\"\311!\203* rq\210\312!\210)\313!\210\314!\315!\316\216\317=\203[ \320U\203[ \206P \321\n$\210\202\210 \322=\203s  \206h \323\n$\210\202\210 \317=\203\210 !\206\200 \324\n$\210)\"\204\222 \325\n!\210#?\205\233 \325!,\207" [#14# default-directory #13# #12# #11# event dvc-log-event dvc-strip-final-newline delq file-exists-p insert-file-contents delete-file process-status process-exit-status nil exit 0 dvc-default-finish-function signal dvc-default-killed-function dvc-default-error-function dvc-kill-process-buffer #10# dvc-process-running #9# process #8# dvc-temp-current-active-dvc status state #7# #6# #5# #4# #3# #2#] 7] process event finished keyword-entry #15=#:--cl-dolist-temp-- x #16=#:default #17=#:keyword keys dvc output-buf error-buf error-file global-arg arguments command default-directory process-environment dvc-buffer-current-active-dvc process-event] 23 (#$ . 20738)])
#@92 Run DVC synchronously.
See `dvc-run-dvc-async' for details on possible ARGUMENTS and KEYS.
(defalias 'dvc-run-dvc-sync #[(dvc arguments &rest keys) "\306\211\211\211\211\211\307\306*\211+\203_ +@\211*:\203& *@\202( **:\2056 *\211,A@)-.\310\311.!\312\306O!./\235\211,A@)\206S -L\210*+A\211+\204 *\n\203j \313\n!\206o \314\3150\"1	\203{ \313	!\206\200 \316\3150\"2\3170\320\" 3\3210\32234\"\"5\323\3064\"4\324\325!6\3267!7r\206\256 pq\210\3271257\330%\210\3170\331\"8!8\332\333\3061\306\334\335\33656#&)9\3376!\203\360 r2q\210\3406!\210)\3416!\210\342\2160:9;\2039\343\230\205H\f\206\3441294$\202H9\247\203C\3459!\2032\206&\3461294$\202H\2067\3471294$\202H\350\3519\".\207" [related-buffer error-buffer output-buffer error killed finished nil (:finished :killed :error :output-buffer :error-buffer :related-buffer) intern symbol-name 1 get-buffer-create dvc-new-process-buffer t dvc-new-error-buffer dvc-function "default-global-argument" dvc-build-dvc-command append remq dvc-make-temp-name "arch-errors" dvc-uniquify-file-name dvc-log-event "started" "prepare-environment" call-process "sh" "-c" format "%s 2> %s" file-exists-p insert-file-contents delete-file ((byte-code "\204 \304	!\210\n\204 \304!\210\304\207" [output-buffer output-buf error-buffer error-buf dvc-kill-process-buffer] 2)) "Terminated" dvc-default-killed-function zerop dvc-default-finish-function dvc-default-error-function message "Unknown status - %s" keyword-entry #1=#:--cl-dolist-temp-- x #2=#:default #3=#:keyword keys dvc output-buf error-buf global-arg arguments command error-file default-directory process-environment status dvc-temp-current-active-dvc] 10 (#$ . 25569)])
#@63 Returns a list of DVC process whose related buffer is BUFFER.
(defalias 'dvc-processes-related-to-buffer #[(buffer) "\306	\306\211\203D @\211\211A@)\307!\203* G\310Y\203* \311H>\204. \312\313!\210\314H)=\203= \n@BA\211\204\n *\237\211)\207" [accu dvc-process-running entry #1=#:--cl-dolist-temp-- x cl-x nil vectorp 8 0 error "dvc-event-related-buffer accessing a non-dvc-event" 3 cl-struct-dvc-event-tags buffer] 4 (#$ . 27323)])
#@67 Prompts and possibly kill process whose related buffer is BUFFER.
(defalias 'dvc-kill-process-maybe #[(buffer) "\306!\211G	\203O \307\310\311\n\211\312U\203 \313\202 \314\315!\n\312U\203' \316\202( \317%!\203O 	\320\211\203N \f@\321!\322=\203G T\323!\210\fA\211\2045 **\306!\211\205\\ \324\325\")\207" [buffer processes l process #1=#:--cl-dolist-temp-- dvc-default-killed-function-noerror dvc-processes-related-to-buffer y-or-n-p format "%s process%s running in buffer %s.  Kill %s? " 1 "" "es" buffer-name "it" "them" nil process-status run kill-process error "Process still running in buffer %s"] 9 (#$ . 27781)])
(add-hook 'kill-buffer-hook 'dvc-kill-buffer-function)
#@39 Function run when a buffer is killed.
(defalias 'dvc-kill-buffer-function #[nil "\300p!\210\301p!\207" [dvc-buffers-tree-remove dvc-kill-process-maybe] 2 (#$ . 28476)])
#@159 Call either `dvc-run-dvc-async' or `dvc-run-dvc-sync' and display the result in an info buffer.
When INFO-STRING is given, insert it at the buffer beginning.
(defalias 'dvc-run-dvc-display-as-info #[(dvc arg-list &optional show-error-buffer info-string asynchron) "\306\307\"\n\203 \310\202 \311\312\313\314\315\316\317\320\321\322\323\f	ED\257E$)\207" [dvc buffer asynchron arg-list show-error-buffer info-string dvc-get-buffer-create info dvc-run-dvc-async dvc-run-dvc-sync :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-33 #2=#:dvc-gensym-uniq-32 #3=#:dvc-gensym-uniq-31) "rq\210\306\307 \210\310 \210\n\203 \nc\210\311!\210\f\203 \311!\210\312\313!\210*\314!\207" [#3# inhibit-read-only #2# output #1# error t erase-buffer dvc-info-buffer-mode insert-buffer-substring toggle-read-only 1 dvc-switch-to-buffer] 2] output error status arguments quote] 16 (#$ . 28652)])
#@35 Keymap used in a dvc info buffer.
(defvar dvc-info-buffer-mode-map (byte-code "\302 \303\304\305!\306#\210\303	\307#\210)\207" [map dvc-keyvec-quit make-sparse-keymap define-key dvc-prefix-buffer 76 dvc-open-internal-log-buffer dvc-buffer-quit] 4) (#$ . 29606))
(byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210	\"\210\304\311\321\320#\207" [current-load-list dvc-info-buffer-mode-abbrev-table dvc-info-buffer-mode-hook variable-documentation put "Hook run when entering DVC info mode mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp dvc-info-buffer-mode-map definition-name dvc-info-buffer-mode default-boundp set-default make-sparse-keymap dvc-info-buffer-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5)
#@157 Major mode for dvc info buffers

This mode runs the hook `dvc-info-buffer-mode-hook', as the final step
during initialization.

\{dvc-info-buffer-mode-map}
(defalias 'dvc-info-buffer-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210\315 \210\316\317!\210)\320\321!\207" [delay-mode-hooks major-mode mode-name dvc-info-buffer-mode-map dvc-info-buffer-mode-syntax-table dvc-info-buffer-mode-abbrev-table make-local-variable t kill-all-local-variables dvc-info-buffer-mode "DVC info mode" use-local-map set-syntax-table dvc-install-buffer-menu toggle-read-only 1 run-mode-hooks dvc-info-buffer-mode-hook local-abbrev-table] 2 (#$ . 30674) nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305\306\307\310#\210\306\311N\204! \305\306\311\312#\210\304\207" [current-load-list dvc-log-cookie default-boundp set-default nil put dvc-event-output-buffer cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-event-output-buffer (or (and (memq (aref cl-x 0) cl-struct-dvc-event-tags)) (error "dvc-event-output-buffer accessing a non-dvc-event")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'dvc-event-output-buffer #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-dvc-event-tags 0 error "dvc-event-output-buffer accessing a non-dvc-event" 1] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put dvc-event-output-buffer setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-event dvc-event-output-buffer #1=(and (memq (aref cl-x 0) cl-struct-dvc-event-tags)) 1] 6] dvc-event-error-buffer cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-event-error-buffer (or #1# (error "dvc-event-error-buffer accessing a non-dvc-event")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'dvc-event-error-buffer #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-dvc-event-tags 0 error "dvc-event-error-buffer accessing a non-dvc-event" 2] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put dvc-event-error-buffer setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-event dvc-event-error-buffer #1=(and (memq (aref cl-x 0) cl-struct-dvc-event-tags)) 2] 6] dvc-event-related-buffer cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-event-related-buffer (or #1# (error "dvc-event-related-buffer accessing a non-dvc-event")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'dvc-event-related-buffer #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-dvc-event-tags 0 error "dvc-event-related-buffer accessing a non-dvc-event" 3] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put dvc-event-related-buffer setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-event dvc-event-related-buffer #1=(and (memq (aref cl-x 0) cl-struct-dvc-event-tags)) 3] 6] dvc-event-command cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-event-command (or #1# (error "dvc-event-command accessing a non-dvc-event")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'dvc-event-command #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-dvc-event-tags 0 error "dvc-event-command accessing a non-dvc-event" 4] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put dvc-event-command setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-event dvc-event-command #1=(and (memq (aref cl-x 0) cl-struct-dvc-event-tags)) 4] 6] dvc-event-tree cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-event-tree (or #1# (error "dvc-event-tree accessing a non-dvc-event")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'dvc-event-tree #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-dvc-event-tags 0 error "dvc-event-tree accessing a non-dvc-event" 5] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put dvc-event-tree setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-event dvc-event-tree #1=(and (memq (aref cl-x 0) cl-struct-dvc-event-tags)) 5] 6] dvc-event-event cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-event-event (or #1# (error "dvc-event-event accessing a non-dvc-event")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'dvc-event-event #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-dvc-event-tags 0 error "dvc-event-event accessing a non-dvc-event" 6] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put dvc-event-event setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-event dvc-event-event #1=(and (memq (aref cl-x 0) cl-struct-dvc-event-tags)) 6] 6] dvc-event-time cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-event-time (or #1# (error "dvc-event-time accessing a non-dvc-event")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'dvc-event-time #[(cl-x) "\302H	>\204\f \303\304!\210\305H\207" [cl-x cl-struct-dvc-event-tags 0 error "dvc-event-time accessing a non-dvc-event" 7] 2])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put dvc-event-time setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-event dvc-event-time (and #1=(memq (aref cl-x 0) cl-struct-dvc-event-tags)) 7] 6] dvc-event-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-event-p (and (vectorp cl-x) (>= (length cl-x) 8) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'dvc-event-p #[(cl-x) "\302!\205 G\303Y\205 \304H	>\205 \305\207" [cl-x cl-struct-dvc-event-tags vectorp 8 0 t] 2])
(defalias 'copy-dvc-event #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put make-dvc-event cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\203_ @\315>\203F AA\211\2021 \316>A@\203U \317\211\2021 \320\321@\"\210\202/ )\322\323\324\325\317	\n\f&\f.\207" [#1# output-buffer error-buffer related-buffer command tree :output-buffer :error-buffer :related-buffer :command :tree :event :time (:output-buffer :error-buffer :related-buffer :command :tree :event :time :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:output-buffer :error-buffer :related-buffer :command :tree :event :time)" cl-defsubst-expand (output-buffer error-buffer related-buffer command tree event time) (block make-dvc-event (vector 'cl-struct-dvc-event output-buffer error-buffer related-buffer command tree event time)) t event time #:--cl-keys-- cl-whole] 14 "Not documented\n\n(fn CL-WHOLE &cl-quote &key OUTPUT-BUFFER ERROR-BUFFER RELATED-BUFFER COMMAND TREE EVENT TIME)"] byte-compile cl-byte-compile-compiler-macro] 4)
#@93 Not documented

(fn &key OUTPUT-BUFFER ERROR-BUFFER RELATED-BUFFER COMMAND TREE EVENT TIME)
(defalias 'make-dvc-event #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\203_ @\315>\203F AA\211\2021 \316>A@\203U \317\211\2021 \320\321@\"\210\202/ )\322\323	\n\f&.\207" [#1# output-buffer error-buffer related-buffer command tree :output-buffer :error-buffer :related-buffer :command :tree :event :time (:output-buffer :error-buffer :related-buffer :command :tree :event :time :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:output-buffer :error-buffer :related-buffer :command :tree :event :time)" vector cl-struct-dvc-event event time #2=#:--cl-keys--] 10 (#$ . 38477)])
(byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\304\327\317\315#\210\304\330\317\315#\210\304\331\317\315#\207" [custom-print-functions cl-struct-dvc-event-tags #[(cl-x cl-s cl-n) "\303!\205\310 G\304Y\205\310 \305H	>\205\310 \306\307\n\"\210\306\310\n\"\210\311\305H	>\204, \312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H	>\204D \312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H	>\204\\ \312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H	>\204t \312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H	>\204\214 \312\327!\210\330H\n\"\210\306\331\n\"\210\311\305H	>\204\244 \312\332!\210\333H\n\"\210\306\334\n\"\210\311\305H	>\204\274 \312\335!\210\336H\n\"\210\306\337\n\"\210\340\207" [cl-x cl-struct-dvc-event-tags cl-s vectorp 8 0 princ "#S(dvc-event" " output-buffer" prin1 error "dvc-event-output-buffer accessing a non-dvc-event" 1 " error-buffer" "dvc-event-error-buffer accessing a non-dvc-event" 2 " related-buffer" "dvc-event-related-buffer accessing a non-dvc-event" 3 " command" "dvc-event-command accessing a non-dvc-event" 4 " tree" "dvc-event-tree accessing a non-dvc-event" 5 " event" "dvc-event-event accessing a non-dvc-event" 6 " time" "dvc-event-time accessing a non-dvc-event" 7 ")" t] 3] cl-struct-dvc-event put dvc-event cl-struct-slots ((cl-tag-slot) (output-buffer) (error-buffer) (related-buffer) (command) (tree) (event) (time)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-dvc-event side-effect-free copy-dvc-event dvc-event-p error-free dvc-event-time dvc-event-event dvc-event-tree dvc-event-command dvc-event-related-buffer dvc-event-error-buffer dvc-event-output-buffer] 4)
#@193 Helper function for `dvc-log-printer'.
Print a buffer filed for BUFFER during printing a log event.
The printed name of BUFFER is mouse sensitive.  If the user
clicks it, FUNCTION is invoked.
(defalias 'dvc-log-printer-print-buffer #[(buffer function) "\306!\307\211\204 \310\202 \311!\206 \312!\313\n\205& \314 \315	\316#\210	\307\317\"#\203\303 \320\"!$9\205J \321\322\323\324!\"!%\f\203T \f\202b \205b \325!;\205b \325!&%\203 &\203z &\326\327\326%\260\202\200 %\202\200 \f'9\203\216 J\202\220 \330\331$G\332\333\334\205\255 \335\336\337\340'\257\205\264 \341D\"BBBB$$\210$-\202\305 \".\207" [buffer map alive-p function help menu buffer-live-p nil "#<killed buffer>" buffer-name pp-to-string dvc-buffer make-sparse-keymap define-key [mouse-2] "Show the buffer" copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu str dvc-highlight strcpy key-help prefix-help long-help] 15 (#$ . 41120)])
(put 'dvc-log-printer-print-buffer 'byte-optimizer 'byte-compile-inline-expand)
#@121 Check ELEM recorded a recent event or not.
Return nil If ELEM recorded an event older than LIMIT-MINUTE.
Else return t.
(defalias 'dvc-log-recently-p #[(elem limit-minute) "\306H	>\204\f \307\310!\210\311H\312 \211@\n@Z\313_A@\nA@Z\\\314\245\fV\205, \315+\207" [elem cl-struct-dvc-event-tags recorded cur diff-minute limit-minute 0 error "dvc-event-time accessing a non-dvc-event" 7 current-time 65536 60 t] 4 (#$ . 42300)])
#@39 Arch event printer which prints ELEM.
(defalias 'dvc-log-printer #[(elem) "\306H	>\204\f \307\310!\210\311H`\312\306H	>\204 \307\313!\210\314H\315\306H	>\204/ \307\316!\210\317H\2066 \320\321\322\211\211!@A\203\325 \323@!B!9\205\\ \324\325\326\327!!\"!C\f\203f \f\202t \205t \330!;\205t \330!DC\203\221 D\203\214 D\331\332\331C\260\202\222 C\202\222 \fE!9\203\240 !J\202\242 !!\333\306BG\334\335\336!\205\277 \337\340\341!\342E\257\205\306 \343D\"BBBBB$\210B-\202\327 @-\344\345\346\306H	>\204\347 \307\347!\210\350H\"\351\306H	>\204\370 \307\352!\210\353H\354FG\355G!\322H\211I\204\356\202\357G!\206\360G!\361I\2050\362 H\363H\364F#\210H\322\365!@A\203\315\323@!B!9\205T\324\325\326\327!!\"!C\f\203^\f\202l\205l\330!;\205l\330!DC\203\211D\203\204D\331\332\331C\260\202\212C\202\212\fE!9\203\230!J\202\232!!\333\306BG\334\335\336!\205\267\337\340\341!\342E\257\205\276\343D\"BBBBB$\210B-\202\317@.	\366\306H	>\204\336\307\367!\210\370H\371FG\355G!\322H\211I\204\367\356\202\357G!\206\360G!\361I\205\362 H\363H\364F#\210H\322\365!@A\203\263\323@!B!9\205:\324\325\326\327!!\"!C\f\203D\f\202R\205R\330!;\205R\330!DC\203oD\203jD\331\332\331C\260\202pC\202p\fE!9\203~!J\202\200!!\333\306BG\334\335\336!\205\235\337\340\341!\342E\257\205\244\343D\"BBBBB$\210B-\202\265@.	\372\306H	>\204\304\307\373!\210\374H\375FG\355G!\322H\211I\204\335\356\202\350\357G!\206\350\360G!\361I\205\374\362 H\363H\364F#\210H\322\365!@A\203\231\323@!B!9\205 \324\325\326\327!!\"!C\f\203*\f\2028\2058\330!;\2058\330!DC\203UD\203PD\331\332\331C\260\202VC\202V\fE!9\203d!J\202f!!\333\306BG\334\335\336!\205\203\337\340\341!\342E\257\205\212\343D\"BBBBB$\210B-\202\233@.	\376\230\204\251\377P\202\254\201J \331\261\210\201K \n`\201L \201M $*\207" [elem cl-struct-dvc-event-tags p event help menu 0 error "dvc-event-event accessing a non-dvc-event" 6 "Command: " "dvc-event-command accessing a non-dvc-event" 4 "\nDirectory: " #1="dvc-event-tree accessing a non-dvc-event" 5 "(nil)" dvc-local-directory nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu "\nDate: " format-time-string "%c" "dvc-event-time accessing a non-dvc-event" 7 "\nRelated Buffer: " "dvc-event-related-buffer accessing a non-dvc-event" 3 dvc-switch-to-related-buffer-by-mouse buffer-live-p "#<killed buffer>" buffer-name pp-to-string dvc-buffer make-sparse-keymap define-key [mouse-2] "Show the buffer" "\nOutput Buffer: " "dvc-event-output-buffer accessing a non-dvc-event" 1 dvc-switch-to-output-buffer-by-mouse "\nError Buffer: " "dvc-event-error-buffer accessing a non-dvc-event" 2 dvc-switch-to-error-buffer-by-mouse "started" "\nEvent: " str dvc-highlight strcpy key-help prefix-help long-help function buffer map alive-p "" put-text-property point-entered #[(old new) "\304\305!!\211\306H\n>\204 \307\310!\210	\311H)\211\207" [dvc-log-cookie cl-x cl-struct-dvc-event-tags default-directory ewoc-data ewoc-locate 0 error #1# 5] 4]] 26 (#$ . 42738)])
#@166 Define a FUNCTION for switching to the buffer associated with some event.
ACCESSOR is a function for retrieving the appropriate buffer from a
`dvc-event' structure.
(defalias 'dvc-switch-to-buffer-macro '(macro . #[#'accessor "\302\303\304\305\306\307	\310BDC\311BB\257\207" [function accessor defun nil "In a log buffer, pops to the output or error buffer corresponding to the\nprocess at point" (interactive) let buffer ((ewoc-data (ewoc-locate dvc-log-cookie))) ((cond ((buffer-live-p buffer) (dvc-switch-to-buffer buffer) (unless (member buffer (mapcar (lambda (p) (process-buffer (car p))) dvc-process-running)) (dvc-process-buffer-mode))) (t (error "Buffer has been killed"))))] 9 (#$ . 46076)]))
#@91 In a log buffer, pops to the output or error buffer corresponding to the
process at point
(defalias 'dvc-switch-to-output-buffer #[nil "\305\306!!\211\307H\n>\204 \310\311!\210	\312H)\313!\2030 \314!\210\315\316\f\"\235?\2053 \317 \2023 \310\320!)\207" [dvc-log-cookie cl-x cl-struct-dvc-event-tags buffer dvc-process-running ewoc-data ewoc-locate 0 error "dvc-event-output-buffer accessing a non-dvc-event" 1 buffer-live-p dvc-switch-to-buffer mapcar #[(p) "\301@!\207" [p process-buffer] 2] dvc-process-buffer-mode "Buffer has been killed"] 5 (#$ . 46787) nil])
#@91 In a log buffer, pops to the output or error buffer corresponding to the
process at point
(defalias 'dvc-switch-to-error-buffer #[nil "\305\306!!\211\307H\n>\204 \310\311!\210	\312H)\313!\2030 \314!\210\315\316\f\"\235?\2053 \317 \2023 \310\320!)\207" [dvc-log-cookie cl-x cl-struct-dvc-event-tags buffer dvc-process-running ewoc-data ewoc-locate 0 error "dvc-event-error-buffer accessing a non-dvc-event" 2 buffer-live-p dvc-switch-to-buffer mapcar #[(p) "\301@!\207" [p process-buffer] 2] dvc-process-buffer-mode "Buffer has been killed"] 5 (#$ . 47365) nil])
#@91 In a log buffer, pops to the output or error buffer corresponding to the
process at point
(defalias 'dvc-switch-to-related-buffer #[nil "\305\306!!\211\307H\n>\204 \310\311!\210	\312H)\313!\2030 \314!\210\315\316\f\"\235?\2053 \317 \2023 \310\320!)\207" [dvc-log-cookie cl-x cl-struct-dvc-event-tags buffer dvc-process-running ewoc-data ewoc-locate 0 error "dvc-event-related-buffer accessing a non-dvc-event" 3 buffer-live-p dvc-switch-to-buffer mapcar #[(p) "\301@!\207" [p process-buffer] 2] dvc-process-buffer-mode "Buffer has been killed"] 5 (#$ . 47941) nil])
#@53 `dvc-switch-to-output-buffer' with mouse interface.
(defalias 'dvc-switch-to-output-buffer-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point dvc-switch-to-output-buffer] 2 (#$ . 48521) "e"])
#@52 `dvc-switch-to-error-buffer' with mouse interface.
(defalias 'dvc-switch-to-error-buffer-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point dvc-switch-to-error-buffer] 2 (#$ . 48732) "e"])
#@54 `dvc-switch-to-related-buffer' with mouse interface.
(defalias 'dvc-switch-to-related-buffer-by-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point dvc-switch-to-related-buffer] 2 (#$ . 48940) "e"])
#@293 Log an event in the `dvc-log-buffer' buffer.
OUTPUT is the buffer containing process standard output.
ERROR is the buffer containing process error output.
COMMAND is the command that was executed.
TREE is the process's working directory.
EVENT is the event that occurred.
Returns that event.
(defalias 'dvc-log-event #[(output error command tree event) "\203\f \306\307!!\204 r\310	!q\210\311\312\313!!\314 \210)pr\307!q\210\315\316\f\n\317 &\320\321\"\210\322\323\324#\210\325!\210,\207" [dvc-log-cookie dvc-log-buffer related-buffer output error command buffer-live-p ewoc-buffer get-buffer-create ewoc-create dvc-ewoc-create-api-select dvc-log-printer dvc-log-buffer-mode vector cl-struct-dvc-event current-time nil ewoc-enter-last ewoc-filter dvc-log-recently-p 30 ewoc-refresh tree event buffer-read-only elem] 9 (#$ . 49155)])
#@29 Move to the next log entry.
(defalias 'dvc-log-next #[nil "\302\303!\"\211\205 \304	!b)\207" [dvc-log-cookie next ewoc-next ewoc-locate ewoc-location] 5 (#$ . 50018) nil])
#@33 Move to the previous log entry.
(defalias 'dvc-log-prev #[nil "\302\303!\"\211\205 \304	!b)\207" [dvc-log-cookie prev ewoc-prev ewoc-locate ewoc-location] 5 (#$ . 50200) nil])
#@34 Keymap used in DVC's log buffer.
(defvar dvc-log-buffer-mode-map (byte-code "\303 \304	\305#\210\304\306\307#\210\304\310\307#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\n\321#\210)\207" [map dvc-keyvec-help dvc-keyvec-quit make-sparse-keymap define-key describe-mode [111] dvc-switch-to-output-buffer "" [101] dvc-switch-to-error-buffer [114] dvc-switch-to-related-buffer [110] dvc-log-next [112] dvc-log-prev dvc-buffer-quit] 4) (#$ . 50386))
(byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210	\"\210\304\311\321\320#\207" [current-load-list dvc-log-buffer-mode-abbrev-table dvc-log-buffer-mode-hook variable-documentation put "Hook run when entering DVC Log mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp dvc-log-buffer-mode-map definition-name dvc-log-buffer-mode default-boundp set-default make-sparse-keymap dvc-log-buffer-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5)
#@227 Major mode for DVC's internal log buffer. You can open this buffer
with `dvc-open-internal-log-buffer'.

This mode runs the hook `dvc-log-buffer-mode-hook', as the final step
during initialization.

\{dvc-log-buffer-mode-map}
(defalias 'dvc-log-buffer-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210\315\316!\210)\317\320!\207" [delay-mode-hooks major-mode mode-name dvc-log-buffer-mode-map dvc-log-buffer-mode-syntax-table dvc-log-buffer-mode-abbrev-table make-local-variable t kill-all-local-variables dvc-log-buffer-mode "DVC Log" use-local-map set-syntax-table toggle-read-only 1 run-mode-hooks dvc-log-buffer-mode-hook local-abbrev-table] 2 (#$ . 51666) nil])
#@162 Switch to the DVC's internal log buffer.
This buffer contains a list of all the DVC commands previously executed.
The buffer uses the mode `dvc-log-buffer-mode'
(defalias 'dvc-open-internal-log-buffer #[nil "\300 \302	!\210db\210\303\304\305!\306Q\307\310#\205 \311 )\207" [buffer-name dvc-log-buffer dvc-switch-to-buffer re-search-backward " Buffer: " regexp-quote "$" nil t dvc-flash-line] 4 (#$ . 52364) nil])
#@22 Kill the log buffer.
(defalias 'dvc-clear-log-buffer #[nil "\301\302!!\205 \303!\207" [dvc-log-buffer bufferp get-buffer kill-buffer] 3 (#$ . 52786)])
#@90 Return the content of the last process buffer.
Strips the final newline if there is one.
(defalias 'dvc-get-process-output #[nil "\301!\207" [dvc-last-process-buffer dvc-buffer-content] 2 (#$ . 52946)])
#@88 Return the content of the last error buffer.
Strips the final newline if there is one.
(defalias 'dvc-get-error-output #[nil "\301!\207" [dvc-last-error-buffer dvc-buffer-content] 2 (#$ . 53156)])
(add-to-list 'minor-mode-alist '(dvc-process-running (:eval (if (equal (length dvc-process-running) 1) " DVC running" (concat " DVC running(" (int-to-string (length dvc-process-running)) ")")))))
#@56 Return a suitable file name to edit the commit message
(defalias 'dvc-log-edit-file-name #[nil "\300\301!\207" [dvc-call "dvc-log-edit-file-name-func"] 2 (#$ . 53556)])
(defalias 'dvc-dvc-log-edit-file-name-func #[nil "\300\301 !\302\303 \304\"P\207" [file-name-as-directory dvc-tree-root dvc-variable dvc-current-active-dvc "log-edit-file-name"] 4])
(defalias 'dvc-revision-get-dvc #[(revision-id) "@\207" [revision-id] 1])
(defalias 'dvc-revision-get-type #[(revision-id) "A@@\207" [revision-id] 1])
(defalias 'dvc-revision-get-data #[(revision-id) "A@A\207" [revision-id] 1])
#@420 Return a string representation for REVISION-ID.

If PREV-FORMAT is specified, it is the format string to use for
entries that are before the given revision ID.  The format string
should take two parameters.  The first is the revision ID, and
the second is a number which indicates how many generations back
to travel.

If ORIG-STR is specified, it is the string that indicates the
current revision of the working tree.
(defalias 'dvc-revision-to-string #[(revision-id &optional prev-format orig-str) "\305!\306!	\307=\203 \310\n@!\202L 	\311=\203  \n@\202L 	\312=\203. \206L \313\202L 	\314=\203K \315\f\206: \316\317\320!\n@D!\321\nA@!#\202L \322*\207" [revision-id type data orig-str prev-format dvc-revision-get-type dvc-revision-get-data revision dvc-name-construct local-tree last-revision "original" previous-revision format "%s:-%s" dvc-revision-to-string dvc-revision-get-dvc int-to-string "UNKNOWN"] 5 (#$ . 54145)])
#@195 Return an empty buffer suitable for viewing FILE in REVISION-ID.

The name of the buffer is chosen according to FILE and REVISION-ID.

REVISION-ID may have the values described in docs/DVC-API.
(defalias 'dvc-revision-get-buffer #[(file revision-id) "\306!\307\n!\310\311!\312R\313\314\315#\316!r\fq\210\n\317\320!\210*\f+\207" [revision-id type file name buffer buffer-file-name dvc-revision-get-type file-name-nondirectory "(" dvc-revision-to-string ")" replace-regexp-in-string "\\/" "|" generate-new-buffer set-auto-mode t] 4 (#$ . 55085)])
#@104 Return a buffer with the content of FILE at REVISION-ID.

REVISION-ID is as specified in docs/DVC-API.
(defalias 'dvc-revision-get-file-in-buffer #[(file revision-id) "\306\307\"\210\310!\311\312!	\313=?\205 \314\f\"	\313=\203' \315\f!\202\232 	\316=\203F rq\210\317\320\f\321!#\210\322\323!\210\324\325!\210)\202\232 	\326=\203w rq\210\312!\321!@D\317\327\f#\210+\322\323!\210\324\325!\210)\202\232 	\330=\203\226 rq\210\317\331\f\321!#\210\322\323!\210\324\325!\210)\202\232 \332\333	\",\207" [revision-id type inhibit-read-only dvc-temp-current-active-dvc file buffer dvc-trace "dvc-revision-get-file-in-buffer. revision-id=%S" dvc-revision-get-type t dvc-revision-get-dvc local-tree dvc-revision-get-buffer find-file-noselect revision dvc-call "revision-get-file-revision" dvc-revision-get-data set-buffer-modified-p nil toggle-read-only 1 previous-revision "revision-get-previous-revision" last-revision "revision-get-last-revision" error "TODO: dvc-revision-get-file-in-buffer type %S" dvc data rev-id] 5 (#$ . 55646)])
#@56 Default function to get the n-th ancestor of REVISION.
(defalias 'dvc-dvc-revision-nth-ancestor #[(revision n) "	\211\304V\203 \305\n!S\211\202 \n*\207" [n revision res count 0 dvc-revision-direct-ancestor] 3 (#$ . 56709)])
#@154 Fallback for `dvc-command-vesion'. Returns just `nil'.
This function is called only if the current backend doesn't
implement `command-version' function.
(defalias 'dvc-dvc-command-version #[nil "\300\207" [nil] 1 (#$ . 56948)])
(provide 'dvc-core)