Current File : //usr/local/share/emacs/27.2/lisp/vc/vc.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 "\301\302!\210\301\303!\210\301\304!\210\305\306\"\204 \307B\310\311\312\313\314\315%\210\316\317\320\321\322DD\323\324\325%\210\316\326\320\321\327DD\330\324\331%\210\316\332\320\321\333DD\334\324\335%\210\316\336\320\321\337DD\340\324\341\342\343&\210\316\344\320\321\345DD\346\324\347\342\350&\210\316\351\320\321\352DD\353\324\354%\210\316\355\320\321\356DD\357\324\360\342\361&\210\316\362\320\321\363DD\364\324\365\342\343&\210\316\366\320\321\367DD\370\324\365\371\372&\210\316\373\320\321\374DD\375\324\365%\210\316\376\320\321\377DD\201@ \324\365\342\201A &\210\316\201B \320\321\201C DD\201D \324\201E \342\201F &\210\316\201G \320\321\201H DD\201I \324\201J %\210\316\201K \320\321\201L DD\201M \324\201N %\210\316\201O \320\321\201P DD\201Q \324\201E \342\201A &\207" [minor-mode-alist require vc-hooks vc-dispatcher cl-lib assoc vc-parent-buffer (vc-parent-buffer vc-parent-buffer-name) custom-declare-group vc nil "Emacs interface to version control systems." :group tools custom-declare-variable vc-checkin-switches funcall function #[0 "\300\207" [nil] 1] "A string or list of strings specifying extra switches for checkin.\nThese are passed to the checkin program by \\[vc-checkin]." :type (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1="") string)) vc-checkout-switches #[0 "\300\207" [nil] 1] "A string or list of strings specifying extra switches for checkout.\nThese are passed to the checkout program by \\[vc-checkout]." (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) vc-register-switches #[0 "\300\207" [nil] 1] "A string or list of strings; extra switches for registering a file.\nThese are passed to the checkin program by \\[vc-register]." (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) vc-diff-switches #[0 "\300\207" [nil] 1] "A string or list of strings specifying switches for diff under VC.\nWhen running diff under a given BACKEND, VC uses the first\nnon-nil value of `vc-BACKEND-diff-switches', `vc-diff-switches',\nand `diff-switches', in that order. Since nil means to check the\nnext variable in the sequence, either of the first two may use\nthe value t to mean no switches at all. `vc-diff-switches'\nshould contain switches that are specific to version control, but\nnot specific to any particular backend." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) :version "21.1" vc-annotate-switches #[0 "\300\207" [nil] 1] "A string or list of strings specifying switches for annotate under VC.\nWhen running annotate under a given BACKEND, VC uses the first\nnon-nil value of `vc-BACKEND-annotate-switches', `vc-annotate-switches',\nand `annotate-switches', in that order. Since nil means to check the\nnext variable in the sequence, either of the first two may use\nthe value t to mean no switches at all. `vc-annotate-switches'\nshould contain switches that are specific to version control, but\nnot specific to any particular backend.\n\nAs very few switches (if any) are used across different VC tools,\nplease consider using the specific `vc-BACKEND-annotate-switches'\nfor the backend you use." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "25.1" vc-log-show-limit #[0 "\300\207" [2000] 1] "Limit the number of items shown by the VC log commands.\nZero means unlimited.\nNot all VC backends are able to support this feature." integer vc-allow-async-revert #[0 "\300\207" [nil] 1] "Specifies whether the diff during \\[vc-revert] may be asynchronous.\nEnabling this option means that you can confirm a revert operation even\nif the local changes in the file have not been found and displayed yet." (choice (const :tag "No" nil) (const :tag "Yes" t)) "22.1" vc-checkout-hook #[0 "\300\207" [nil] 1] "Normal hook (list of functions) run after checking out a file.\nSee `run-hooks'." hook vc-checkin-hook #[0 "\300\207" [nil] 1] "Normal hook (list of functions) run after commit or file checkin.\nSee also `log-edit-done-hook'." :options (log-edit-comment-to-change-log) vc-before-checkin-hook #[0 "\300\207" [nil] 1] "Normal hook (list of functions) run before a commit or a file checkin.\nSee `run-hooks'." vc-retrieve-tag-hook #[0 "\300\207" [nil] 1] "Normal hook (list of functions) run after retrieving a tag." "27.1" vc-revert-show-diff #[0 "\300\207" [t] 1] "If non-nil, `vc-revert' shows a `vc-diff' buffer before querying." boolean "24.1" vc-static-header-alist #[0 "\300\207" [(("\\.c\\'" . "\n#ifndef lint\nstatic char vcid[] = \"%s\";\n#endif /* lint */\n"))] 1] "Associate static header string templates with file types.\nA %s in the template is replaced with the first string associated with\nthe file's version control type in `vc-BACKEND-header'." (repeat (cons :format "%v" (regexp :tag "File Type") (string :tag "Header String"))) vc-comment-alist #[0 "\300\207" [((nroff-mode ".\\\"" #1#))] 1] "Special comment delimiters for generating VC headers.\nAdd an entry in this list if you need to override the normal `comment-start'\nand `comment-end' variables. This will only be necessary if the mode language\nis sensitive to blank lines." (repeat (list :format "%v" (symbol :tag "Mode") (string :tag "Comment Start") (string :tag "Comment End"))) vc-find-revision-no-save #[0 "\300\207" [nil] 1] "If non-nil, `vc-find-revision' doesn't write the created buffer to file."] 8)
#@35 Clear all cached file properties.
(defalias 'vc-clear-context #[0 "\301\302\"\207" [vc-file-prop-obarray fillarray 0] 3 (#$ . 6053) nil])
#@367 Execute FORM, then maybe set per-file properties for FILES.
If any of FILES is actually a directory, then do the same for all
buffers for files in that directory.
SETTINGS is an association list of property/value pairs. After
executing FORM, set those properties from SETTINGS that have not yet
been updated to their corresponding values.
(fn FILES FORM SETTINGS)
(defalias 'with-vc-properties '(macro . #[771 "\300\301\302\303D\304BB\302\305\302\306D\307BBE\257\207" [let ((vc-touched-properties (list t)) (flist nil)) dolist file ((if (file-directory-p file) (dolist (buffer (buffer-list)) (let ((fname (buffer-file-name buffer))) (when (and fname (string-prefix-p file fname)) (push fname flist)))) (push file flist))) (file flist) setting ((let ((property (car setting))) (unless (memq property vc-touched-properties) (put (intern file vc-file-prop-obarray) property (cdr setting)))))] 12 (#$ . 6199)]))
(put 'with-vc-properties 'edebug-form-spec t)
#@264 Return a backend that can be used for registering FILE.
If no backend declares itself responsible for FILE, then FILE
must not be in a version controlled directory, so try to create a
repository, prompting for the directory and the VC backend to
use.
(fn FILE)
(defalias 'vc-backend-for-registration #[257 "\3022\201 \211\203' \211@\303\304#\204 \303\305#\203 \306\302\"\210A\266\202\202 \210\307\211\203C \211@\310\311\"\203< \211B\262A\266\202\202* \210\211\262\312\313\314\315\"\316\317\"\307\320$!\321!\322\314\323\" \320\307\324\325\326\327\330 !\331\"\332\333%&\262\211\303\311\"\210)\306\302\"\266\2030\207" [vc-handled-backends default-directory found vc-call-backend registered responsible-p throw nil vc-find-backend-function create-repo intern completing-read format "%s is not in a version controlled directory.\nUse VC backend: " mapcar symbol-name t file-name-directory read-file-name "create %s repository in: " make-byte-code 257 "\301\302\"\210\303!\205 \304\305!\300\"\207" vconcat vector [message "arg %s" file-directory-p string-prefix-p expand-file-name] 4 "\n\n(fn ARG)"] 16 (#$ . 7168)])
#@413 Return the name of a backend system that is responsible for FILE.
If FILE is already registered, return the
backend of FILE. If FILE is not registered, then the
first backend in `vc-handled-backends' that declares itself
responsible for FILE is returned.
Note that if FILE is a symbolic link, it will not be resolved --
the responsible backend system for the symbolic link itself will
be reported.
(fn FILE)
(defalias 'vc-responsible-backend #[257 "\301!\204\f \302!\2065 \3032. \211\205+ \211@\304\305#\203$ \306\303\"\210A\266\202\202 \2620\2065 \307\310\"\207" [vc-handled-backends file-directory-p vc-backend found vc-call-backend responsible-p throw error "No VC backend is responsible for %s"] 7 (#$ . 8319)])
#@156 Expands directories in a file list specification.
Within directories, only files already under version control are noticed.
(fn FILE-OR-DIR-LIST BACKEND)
(defalias 'vc-expand-dirs #[514 "\300C\211\2036 \211@\301!\203\" \302\303\304\305\306\307\n\n\"\310\"\311\312%\"\210\301!\204/ \242B\240\210A\266\202\202 \210\211\242\237\207" [nil file-directory-p vc-file-tree-walk make-byte-code 257 "\302!\300=\205 \301\301\242B\240\207" vconcat vector [vc-backend] 4 "\n\n(fn F)"] 14 (#$ . 9056)])
(defalias 'vc-deduce-backend #[0 "\306\307!\203 \207\306\310!\203 \207\306\311!\203 \n\207\306\312!\203 \207\306\313\314\315#\2034 \31611 \317\f!0\207\210\320\207
\205< \321!\207" [vc-dir-backend log-view-vc-backend log-edit-vc-backend diff-vc-backend default-directory vc-mode derived-mode-p vc-dir-mode log-view-mode log-edit-mode diff-mode dired-mode shell-mode compilation-mode (error) vc-responsible-backend nil vc-backend buffer-file-name] 4])
#@781 Deduce a set of files and a backend to which to apply an operation.
Return (BACKEND FILESET FILESET-ONLY-FILES STATE CHECKOUT-MODEL).
If we're in VC-dir mode, FILESET is the list of marked files,
or the directory if no files are marked.
Otherwise, if in a buffer visiting a version-controlled file,
FILESET is a single-file fileset containing that file.
Otherwise, if ALLOW-UNREGISTERED is non-nil and the visited file
is unregistered, FILESET is a single-file fileset containing it.
Otherwise, throw an error.
STATE-MODEL-ONLY-FILES if non-nil, means that the caller needs
the FILESET-ONLY-FILES STATE and MODEL info. Otherwise, that
part may be skipped.
BEWARE: this function may change the current buffer.
(fn &optional OBSERVER ALLOW-UNREGISTERED STATE-MODEL-ONLY-FILES)
(defalias 'vc-deduce-fileset #[768 "\303\304\305!\203
\306!\202\270 \304\307!\203\" \203 \310 \202\270 \311\312!\202\270 \313!\211\262\203G \203@ \211CC\314!\315\"\257\202\270 \211CD\202\270 \316 !\203i \300 !\204^ r q\210\304\305!)\203i q\210\317#\202\270 \304\320!\203~ \321\n!\211\262\203~ \211\303D\202\270 \204\212 \311\322\323 \"\202\270 \203\265 \324!\204\265 \203\253 \325\300 !CC\205\245 \326\303\257\202\270 \325\300 !CD\202\270 \311\327!\207" [buffer-file-name vc-parent-buffer default-directory nil derived-mode-p vc-dir-mode vc-dir-deduce-fileset dired-mode vc-dired-deduce-fileset error "State changing VC operations not supported in `dired-mode'" vc-backend vc-state vc-checkout-model buffer-live-p vc-deduce-fileset log-view-mode vc-responsible-backend "Buffer %s is not associated with a file" buffer-name vc-registered vc-backend-for-registration unregistered "File is not under version control"] 11 (#$ . 10026)])
(defalias 'vc-dired-deduce-fileset #[0 "\303!\304\305\211\211C\306 \305\212eb\210\307\305\304#\205 \310 \262\211??\262\211\203O \211b\210\311\305\304\"\242B\240\210\211b\210\312y\210\211\305\211\223\210\307\305\304#\205J \310 \262\202$ )\203Y \242\202^ \311\305\304\"C\266\202*\266\204\313 \210D\207" [default-directory case-fold-search inhibit-read-only vc-responsible-backend t nil dired-marker-regexp re-search-forward point-marker dired-get-filename 1 dired-move-to-filename] 11])
#@69 Make sure that the current buffer visits a version-controlled file.
(defalias 'vc-ensure-vc-buffer #[0 "\302\303!\203 \304\305 !q\210\2024 \302\306!\203 \304\307 !q\210\2024 \2034 \310!\2034 p=\2044 q\210\202 \204> \311\312\313 \"\207\314 !?\205I \311\315 \"\207" [vc-parent-buffer buffer-file-name derived-mode-p vc-dir-mode find-file-noselect vc-dir-current-file dired-mode dired-get-filename buffer-live-p error "Buffer %s is not associated with a file" buffer-name vc-backend "File %s is not under version control"] 3 (#$ . 12273)])
#@50 Return non-nil if FILE can be edited.
(fn FILE)
(defalias 'vc-editable-p #[257 "\300!\211\205 \301C\"\302=\206 \303!\304>\207" [vc-backend vc-checkout-model implicit vc-state (edited needs-merge conflict)] 5 (#$ . 12824)])
(put 'vc-editable-p 'byte-optimizer 'byte-compile-inline-expand)
#@60 Controls which states can be in the same commit.
(fn P Q)
(defalias 'vc-compatible-state #[514 "=\206 \300>\205 \211\301>\207" [(edited added removed) (edited added removed)] 4 (#$ . 13125)])
#@15
(fn PROMPT)
(defalias 'vc-read-backend #[257 "\301\302\303\304\"\305\306$!\207" [vc-handled-backends intern completing-read mapcar symbol-name nil require-match] 7 (#$ . 13329)])
#@1096 Do the next logical version control operation on the current fileset.
This requires that all files in the current VC fileset be in the
same state. If not, signal an error.
For merging-based version control systems:
If every file in the VC fileset is not registered for version
control, register the fileset (but don't commit).
If every work file in the VC fileset is added or changed, pop
up a *vc-log* buffer to commit the fileset.
For a centralized version control system, if any work file in
the VC fileset is out of date, offer to update the fileset.
For old-style locking-based version control systems, like RCS:
If every file is not registered, register the file(s).
If every file is registered and unlocked, check out (lock)
the file(s) for editing.
If every file is locked by you and has changes, pop up a
*vc-log* buffer to check in the changes. Leave a
read-only copy of each changed file after checking in.
If every file is locked by you and unchanged, unlock them.
If every file is locked by someone else, offer to steal the lock.
(fn VERBOSE)
(defalias 'vc-next-action #[257 "\303\304\305\306#\211@A@\3078\3108\211\311=\204< \312=\203< \211\203; \211@\313!\211\2033 \314!\2033 \315\262\210A\266\202\202 \210\316\267\202N \317\320!\202\317\321!\202\203X \322=\203^ \323!\202\312=\204n \203\332 \324=\203\332 \203\267 \325\326!\211\227\211\327\330\"\235\203\235 \331!\211\205\226 \211@\332\"\210A\266\202\202\204 \262\262\202\262 \211\205\260 \211@\333\"\210A\266\202\202\236 \262\266\202\202\211\311=\204\324 \211\205\317 \211@\333!\210A\266\202\202\276 \262\202\334\335!\202\336\337\"\203\276\340>\2037\211\2036\211@\341!\203/\342!\204/\343\344\345\"!\204\317\346!\210\3471\350\351\352!\353\"\"0\202 \210\317\354!\210\313!\211\203.r\211q\210\355\356!\210)\210A\266\202\202\351 \210\212\211\203i\211@\313!\311=\204a\312=\203a\211\203W\314 \204a\357!\210\360\"\262\210A\266\202\2029\210)\211\204u\334\361!\202\271\204\202\362\"\202\271\325\363!\211\227\211\327\364\"\235\203\256\365!\211\205\247\211@\332\"\210A\266\202\202\225\262\262\202\267\362\304\211%\266\202\262\202;\203\355\211\205\350\211@\366 \203\332\325\344\367\"!\202\335\370!#\210A\266\202\202\304\262\202\371\267\202 \372\"\202\211\205+\211@\373\344\374\375!\"!\203\333\305\"\210\202$\311=\204$\373\376!\203$\333!\210A\266\202\202\373\262\202\211\205Y\211@\373\344\377\375!\"!\203R\201@ \201A \201B #\"\210A\266\202\2021\262\202\211\205\211@ \232\204q\201C !\210\201D \201E \201F \201G \201H \201I !\201J \"\201K $\216\201L \304 @\nA@CBB\370!\304$\210eb\210\305\344\201M \"c\210)\201N \210\373\201O !)\262\203\343\201A \201P #\210\201Q \210\201R !\210\201S \"\210\202\377\373\201T !\204\364\317\201U !\210\202\377\201V \305\211\"\210\333!\210A\266\202\202_\262\202\317\201W \"\207" [vc-handled-backends buffer-file-name inhibit-read-only vc-deduce-fileset nil t state-model-only-files 3 4 implicit up-to-date get-file-buffer buffer-modified-p unlocked-changes #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (missing 66 ignored 72)) error "Fileset files are missing, so cannot be operated on" "Fileset files are ignored by the version-control system" unregistered vc-register needs-update read-string "Branch, revision, or backend to move to: " mapcar #[257 "\300!\227\207" [symbol-name] 3 "\n\n(fn ARG)"] intern-soft vc-transfer-file vc-checkout message "Fileset is up-to-date" vc-compatible-state edited (RCS SCCS) file-exists-p file-writable-p y-or-n-p format "%s is edited but read-only; make it writable and continue? " "Aborted" (error) set-file-modes logior file-modes 128 "Unable to make file writable" read-only-mode -1 vc-revert-file delete "No files remain to be committed" vc-checkin "New revision or backend: " #[257 "\300!\227\207" [symbol-name] 3 "\n\n(fn ARG)"] intern vc-steal-lock "%s revision to steal: " vc-working-revision #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (conflict 499 needs-update 506 needs-merge 560 unlocked-changes 606)) vc-mark-resolved yes-or-no-p "%s is not up-to-date. Get latest revision? " file-name-nondirectory "Lock this revision? " "%s is not up-to-date. Merge in changes now? " vc-maybe-resolve-conflicts vc-call-backend merge-news find-file-other-window current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 vc-diff-internal "Changes to %s since last lock:\n\n" beep "File has unlocked changes. Claim lock retaining changes? " steal-lock clear-visited-file-modtime write-file vc-mode-line "Revert to checked-in revision, instead? " "Checkout aborted" vc-revert-buffer-internal "Fileset is in an unknown state %s"] 15 (#$ . 13520) "P"])
#@68 Create an empty repository in the current directory.
(fn BACKEND)
(defalias 'vc-create-repo #[257 "\300\301\"\207" [vc-call-backend create-repo] 4 (#$ . 18462) (byte-code "\301\302\303\304\305\"\306\307$\226!C\207" [vc-handled-backends intern completing-read "Create repository for: " mapcar #[257 "\300!\227C\207" [symbol-name] 3 "\n\n(fn B)"] nil t] 6)])
#@627 Register into a version control system.
If VC-FILESET is given, register the files in that fileset.
Otherwise register the current file.
If COMMENT is present, use that as an initial comment.
The version control system to use is found by cycling through the list
`vc-handled-backends'. The first backend in that list which declares
itself responsible for the file (usually because other files in that
directory are already registered under that backend) will be used to
register the file. If no backend declares itself responsible, the
first backend that could register the file is used.
(fn &optional VC-FILESET COMMENT)
(defalias 'vc-register #[512 "\206 \301\302\303\"\211@A@\211\211\203T \211@\304!\204 \262\305\306#\203* \307\310!\210\211\203L r\211q\210\311 \204H \312 \313U\203H \314!\204H \315\303!\210\316 \210)\210A\266\202\202 \210\317\320\"\210\321\322\"\210\305\323$\210\321\324\325\326\327\330!\331\"\332\333%\"\210\334\335!\203\201 \336 \210\317\337\"\207" [buffer-file-name vc-deduce-fileset nil t get-file-buffer vc-call-backend registered error "This file is already registered" buffer-modified-p buffer-size 0 file-exists-p set-buffer-modified-p vc-buffer-sync message "Registering %s... " mapc vc-file-clearprops register make-byte-code 257 "\301\302\300#\210\303\304\211#\207" vconcat vector [vc-file-setprop vc-backend vc-resynch-buffer t] 5 "\n\n(fn FILE)" derived-mode-p vc-dir-mode vc-dir-move-to-goal-column "Registering %s... done"] 12 (#$ . 18830) "P"])
#@68 Register the current file with a specified back end.
(fn BACKEND)
(defalias 'vc-register-with #[257 "\211\235\204\n \301\302!\210\211C\303\304!)\207" [vc-handled-backends error "Unknown back end" call-interactively vc-register] 3 (#$ . 20347) "SBackend: "])
#@497 Ignore FILE under the VCS of DIRECTORY.
Normally, FILE is a wildcard specification that matches the files
to be ignored. When REMOVE is non-nil, remove FILE from the list
of ignored files.
DIRECTORY defaults to `default-directory' and is used to
determine the responsible VC backend.
When called interactively, prompt for a FILE to ignore, unless a
prefix argument is given, in which case prompt for a file FILE to
remove from the list of ignored files.
(fn FILE &optional DIRECTORY REMOVE)
(defalias 'vc-ignore #[769 "\206 \301!\206 \302\303!\304\305%\207" [default-directory vc-responsible-backend error "Unknown backend" vc-call-backend ignore] 11 (#$ . 20615) (byte-code "\301 \302\303!\304!\203 \305\"\203 \306\"\262\211E\207" [current-prefix-arg vc--ignore-base-dir read-file-name "File to ignore: " file-name-absolute-p file-in-directory-p file-relative-name] 5)])
(defalias 'vc--ignore-base-dir #[0 "\301!\3021 \303\304\305#!0\202 \210\207" [default-directory vc-responsible-backend (vc-not-supported) file-name-directory vc-call-backend find-ignore-file] 6])
#@375 Ignore FILE under DIRECTORY (default is `default-directory').
FILE is a wildcard specification relative to DIRECTORY.
When called from Lisp code, if DIRECTORY is non-nil, the
repository to use will be deduced by DIRECTORY.
If REMOVE is non-nil, remove FILE from ignored files instead.
Argument BACKEND is the backend to use.
(fn BACKEND FILE &optional DIRECTORY REMOVE)
(defalias 'vc-default-ignore #[1026 "\301\302\206 #\203 \303\304\305!\306Q\"\202 \307\"\207" [default-directory vc-call-backend find-ignore-file vc--remove-regexp "^" regexp-quote "\\(\n\\|$\\)" vc--add-line] 9 (#$ . 21722)])
#@68 Return the list of ignored files under BACKEND.
(fn BACKEND FILE)
(defalias 'vc-default-ignore-completion-table #[514 "\300\301\302\303#\304!\205 \305!\262\"\207" [cl-delete-if #[257 "\301\302\303\304#)\207" [inhibit-changing-match-data "\\`\\(?:#\\|[
\n]*\\'\\)" nil t string-match] 8 "\n\n(fn STR)"] vc-call-backend find-ignore-file file-exists-p vc--read-lines] 8 (#$ . 22340)])
#@44 Return a list of lines of FILE.
(fn FILE)
(defalias 'vc--read-lines #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210\312\313 \314\315#*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents split-string buffer-string "\n" t] 8 (#$ . 22742)])
#@49 Add STRING as a line to FILE.
(fn STRING FILE)
(defalias 'vc--add-line #[514 "r\300!q\210eb\210\301\302\303!\304Q\305\306#?\205( db\210n\204! \307c\210\307\261\210\310 )\207" [find-file-noselect re-search-forward "^" regexp-quote "$" nil t "\n" save-buffer] 6 (#$ . 23110)])
#@59 Remove all matching for REGEXP in FILE.
(fn REGEXP FILE)
(defalias 'vc--remove-regexp #[514 "\300!\205! r\301!q\210eb\210\302\303\304#\203 \305\306!\210\202 \307 )\207" [file-exists-p find-file-noselect re-search-forward nil t replace-match "" save-buffer] 6 (#$ . 23396)])
#@167 Retrieve a copy of the revision REV of FILE.
REV defaults to the latest revision.
After check-out, runs the normal hook `vc-checkout-hook'.
(fn FILE &optional REV)
(defalias 'vc-checkout #[513 "\211\204 \302\303!\304#\203 \305!\306=\262\203 \307!\210\303!\310C\311C\211\203g \211@\312!\203[ \313 \211\203W \211@\314!\211\203O \315\"\203O \211B\262\210A\266\202\2025 \210\202` \211B\262A\266\202\202' \210\3161x \302\317$0\202\222 \320!\211\203\211 r\211q\210\321\322!\210)\210\323@A\"\262\210\211\211\203\337 \211@\305\324C\"\325=\203\252 \306\202\253 \326B\327\330!\3318\262BD\211\203\327 \211@\211@\211>\204\317 \332\333 \"A#\210\210A\266\202\202\267 \210A\266\202\202\224 \210)\266\334\310\211#\210\335\336!\207" [vc-touched-properties vc-file-prop-obarray vc-call-backend vc-backend make-version-backups-p vc-state up-to-date vc-make-version-backup t nil file-directory-p buffer-list buffer-file-name string-prefix-p (file-error) checkout get-file-buffer read-only-mode -1 signal vc-checkout-model implicit edited vc-checkout-time file-attributes 5 put intern vc-resynch-buffer run-hooks vc-checkout-hook] 14 (#$ . 23683)])
#@22
(fn BACKEND FILES)
(defalias 'vc-mark-resolved #[514 "\302C\303\211\203F \211@\304!\203: \305 \211\2036 \211@\306!\211\203. \307\"\203. \211B\262\210A\266\202\202 \210\202? \211B\262A\266\202\202 \210\310\311#\210\211\211\205} \211@\312\211\203u \211@\211@\211>\204m \313\314 \"A#\210\210A\266\202\202U \210A\266\202\202N \262)\266\202\315\316\317!G\320V\203\225 \321\322G\"\202\226 \323\"\210\207" [vc-touched-properties vc-file-prop-obarray t nil file-directory-p buffer-list buffer-file-name string-prefix-p vc-call-backend mark-resolved ((vc-state . edited)) put intern message substitute-command-keys "Conflicts have been resolved in %s. Type \\[vc-next-action] to check in changes." 1 format "%d files" "this file"] 13 (#$ . 24867)])
#@46 Steal the lock on FILE.
(fn FILE REV OWNER)
(defalias 'vc-steal-lock #[771 "\303\203 \304\305#\262\202 \262\306\304\307#!\204 \310\311!\210\312\313\"\210\314C\303C\211\203l \211@\315!\203` \316 \211\203\\ \211@\317!\211\203T \320\"\203T \211B\262\210A\266\202\202: \210\202e \211B\262A\266\202\202, \210\321\322!\323$\210\211\211\203\251 \211@\324\211\203\241 \211@\211@\211>\204\231 \325\326 \"A#\210\210A\266\202\202\201 \210A\266\202\202z \210)\266\327\314\211#\210\312\330\"\210\331\304\332\"\"\210\333\334!db\210\304\335\"\336 \337\261\210\312\340!\207" [vc-touched-properties vc-file-prop-obarray default-directory nil format "%s:%s" yes-or-no-p "Steal the lock on %s from %s? " error "Steal canceled" message "Stealing lock on %s..." t file-directory-p buffer-list buffer-file-name string-prefix-p vc-call-backend vc-backend steal-lock ((vc-state . edited)) put intern vc-resynch-buffer "Stealing lock on %s...done" compose-mail "Stolen lock on %s" expand-file-name "~/" "I stole the lock on %s, " current-time-string ".\n" "Please explain why you stole the lock. Type C-c C-c when done."] 15 (#$ . 25643)])
#@467 Check in FILES. COMMENT is a comment string; if omitted, a
buffer is popped up to accept a comment. If INITIAL-CONTENTS is
non-nil, then COMMENT is used as the initial contents of the log
entry buffer.
The optional argument REV may be a string specifying the new revision
level (only supported for some older VCSes, like RCS and CVS).
Runs the normal hooks `vc-before-checkin-hook' and `vc-checkin-hook'.
(fn FILES BACKEND &optional COMMENT INITIAL-CONTENTS REV)
(defalias 'vc-checkin #[1282 "\300\301!\210\302\303\304\305\306\307\310\311!\312\"\313$\305\314\315\310\311
\"\316\"\317\320%\321\f& \207" [run-hooks vc-before-checkin-hook vc-start-logentry "Enter a change comment." "*vc-log*" make-byte-code 0 "\301\300\302\"\207" vconcat vector [vc-call-backend log-edit-mode] 3 514 "\304\305\306!\"\210\211\203 \307\310\"\204 \311\262\312C\313\211\203[ \211@\314!\203O \315 \211\203K \211@\316!\211\203C \317\"\203C \211B\262\210A\266\202\202) \210\202T \211B\262A\266\202\202 \210\320\300\321\301%\210\322\323\"\210\211\211\203\250 \211@\324\325\326!\3278\262B\330BB\211\203\240 \211@\211@\211\n>\204\230 \331\332 \"A#\210\210A\266\202\202\200 \210A\266\202\202l \210)\266\304\333\306!\"\207" [vc-touched-properties vc-file-prop-obarray message "Checking in %s..." vc-delistify string-match "[^ \n ]" "*** empty log message ***" t nil file-directory-p buffer-list buffer-file-name string-prefix-p vc-call-backend checkin mapc vc-delete-automatic-version-backups (vc-state . up-to-date) vc-checkout-time file-attributes 5 ((vc-working-revision)) put intern "Checking in %s...done"] 13 "\n\n(fn FILES COMMENT)" vc-checkin-hook] 19 (#$ . 26813)])
#@406 When non-nil, inherit the EOL format for reading Diff output from the file.
Used in `vc-coding-system-for-diff' to determine the EOL format to use
for reading Diff output for a file. If non-nil, the EOL format is
inherited from the file itself.
Set this variable to nil if your Diff tool might use a different
EOL. Then Emacs will auto-detect the EOL format in Diff output, which
gives better results.
(defvar vc-coding-system-inherit-eol t (#$ . 28512))
#@71 Return the coding system for reading diff output for FILE.
(fn FILE)
(defalias 'vc-coding-system-for-diff #[257 "\206) \303!\211\205 r\211q\210 \203 \n\202 \304\n!)\262\206) \305\306\"@\206) \307\207" [coding-system-for-read vc-coding-system-inherit-eol buffer-file-coding-system find-buffer-visiting coding-system-base find-operation-coding-system insert-file-contents undecided] 4 (#$ . 28976)])
#@560 Return a list of vc-BACKEND switches for operation OP.
BACKEND is a symbol such as `CVS', which will be downcased.
OP is a symbol such as `diff'.
In decreasing order of preference, return the value of:
vc-BACKEND-OP-switches (e.g. `vc-cvs-diff-switches');
vc-OP-switches (e.g. `vc-diff-switches'); or, in the case of
diff only, `diff-switches'.
If the chosen value is not a string or a list, return nil.
This is so that you may set, e.g. `vc-svn-diff-switches' to t in order
to override the value of `vc-diff-switches' and `diff-switches'.
(fn BACKEND OP)
(defalias 'vc-switches #[514 "\203 \301\302\303!\304P!\"\305!\205 \211J\262\2067 \302\306\307\303!\"!\305!\205+ \211J\262\2067 \211\310=\2057 \211;\203A \211C\202G \211<\205G \211\207" [diff-switches vc-make-backend-sym intern symbol-name "-switches" boundp format "vc-%s-switches" diff] 7 (#$ . 29389)])
#@24
(fn BUFFER MESSAGES)
(defalias 'vc-diff-finish #[514 "\301!\205I \302\303\"\304!\305Urq\210\203* \211\203* \303A\306\261\210\307\310A\"\210)\311 \210eb\210\2038 \312!\210)\205G \211?\205G \307\313@\"\266\202\207" [inhibit-read-only buffer-live-p get-buffer-window t buffer-size 0 ".\n" message "%s" diff-setup-whitespace shrink-window-if-larger-than-buffer "%sdone"] 7 (#$ . 30270)])
#@62 If non-nil, diff added files by comparing them to /dev/null.
(defvar vc-diff-added-files nil (#$ . 30675))
#@279 Report diffs between two revisions of a fileset.
Output goes to the buffer BUFFER, which defaults to *vc-diff*.
BUFFER, if non-nil, should be a buffer or a buffer name.
Return t if the buffer had changes, nil otherwise.
(fn ASYNC VC-FILESET REV1 REV2 &optional VERBOSE BUFFER)
(defalias 'vc-diff-internal #[1540 "\211\204 \306\262A@\307\310\311!\"\307\312\206 \313\206 \314#B\203+ \315@!\202, \316 \317>\2038 \320\321\"\322!\210\323\324@\"\210\n\203\240 \325\211\211\203\231 \211@\326!\204^ \327!\330\230\204f \211B\262\202\222 \204p \203x \331\332\"\210\202\222 \333\334
\203\205 \335\202\206 \336\337\340\341\325\342\"\343\"&\210A\266\202\202J \210\211\237\262)\210\344@\342 &\210q\210\345 \210\346\304!\210@\346\305!\210D\346\347!\210\350\351\352\353\354\f\f\f\f\f%\355\"\356\357%'\3609\361 \362U\203\374 \363p!\204\374 \323\324A\"\210\325\202\364p!\210p\365\350\362\366\353\354\n#\367\"\370$!\266\360)\207" [coding-system-for-read system-type vc-diff-added-files process-file-side-effects diff-vc-backend diff-vc-revisions "*vc-diff*" format "Finding changes in %s..." vc-delistify "No changes between %s and %s" "working revision" "workfile" vc-coding-system-for-diff undecided (windows-nt ms-dos) coding-system-change-eol-conversion dos vc-setup-buffer message "%s" nil file-directory-p vc-working-revision "0" error "No revisions of %s exist" apply vc-do-command async 1 "diff" append vc-switches diff ("/dev/null") vc-call-backend diff-mode make-local-variable revert-buffer-function make-byte-code 514 "\305\300\301\302\303\304%\207" vconcat vector [vc-diff-internal] 8 "\n\n(fn IGNORE-AUTO NOCONFIRM)" t buffer-size 0 get-buffer-process pop-to-buffer vc-exec-after "\303\302\300\205 \301\"\207" [vc-diff-finish] 3 buffer-read-only] 21 (#$ . 30789)])
#@33 History for `vc-read-revision'.
(defvar vc-revision-history nil (#$ . 32626))
#@61
(fn PROMPT &optional FILES BACKEND DEFAULT INITIAL-INPUT)
(defalias 'vc-read-revision #[1281 "\204 \300\301!\211A@\262\211@\262\210\202 \204 \302@!\262\303\304#\211\2038 \305\306\211\307 &\202@ \310\306$\207" [vc-deduce-fileset t vc-backend vc-call-backend revision-completion-table completing-read nil vc-revision-history read-string] 14 (#$ . 32710)])
#@82 Build argument list for calling internal diff functions.
(fn &optional FILESET)
(defalias 'vc-diff-build-argument-list-internal #[256 "\211\206 \300\301!\211A@@@\302\211G\303U\203N \304!\204N \305!\306=\262\2040 \307!\262\202N \3101A \311\312\307!$0\202C \210\302\262\313\230\203N \302\262\203Y \314\315Q\202Z \316\317\206` \320\315Q\321$\321 $\313\230\203} \302\262\211\313\230\203\206 \302\262E\266\204\207" [vc-deduce-fileset t nil 1 file-directory-p vc-state up-to-date vc-working-revision (error) vc-call-backend previous-revision "" "Older revision (default " "): " "Older revision: " "Newer revision (default " "current source" vc-read-revision] 15 (#$ . 33096)])
#@332 Report diffs between revisions REV1 and REV2 in the repository history.
This compares two revisions of the current fileset.
If REV1 is nil, it defaults to the current revision, i.e. revision
of the last commit.
If REV2 is nil, it defaults to the work tree, i.e. the current
state of each file in the fileset.
(fn FILES REV1 REV2)
(defalias 'vc-version-diff #[771 "\204\f \211\203\f \300\301!\210\302\303\304\303!\305\306!%\207" [error "Not a valid revision range" vc-diff-internal t vc-deduce-fileset called-interactively-p interactive] 10 (#$ . 33815) (vc-diff-build-argument-list-internal)])
#@87 Report diffs between REV1 and REV2 revisions of the whole tree.
(fn FILES REV1 REV2)
(defalias 'vc-root-version-diff #[771 "\204\f \211\203\f \301\302!\210\303 \304\203 \305\306#\262\2027 \307\310!\262\311!\262\2033 \211\2027 \301\312!\210\211\313\314CD\315\316!%*\207" [default-directory error "Not a valid revision range" vc-deduce-backend nil vc-call-backend root read-directory-name "Directory for VC root-diff: " vc-responsible-backend "Directory is not version controlled" vc-diff-internal t called-interactively-p interactive] 13 (#$ . 34419) (byte-code "\301\3021\f \303\304!0\202 \210\202 \206% \305 \206 \306!\211\307\310#CD\262!\207" [default-directory vc-diff-build-argument-list-internal (error) vc-deduce-fileset t vc-deduce-backend vc-responsible-backend vc-call-backend root] 7)])
#@355 Display diffs between file revisions.
Normally this compares the currently selected fileset with their
working revisions. With a prefix argument HISTORIC, it reads two revision
designators specifying which revisions to compare.
The optional argument NOT-URGENT non-nil means it is ok to say no to
saving the buffer.
(fn &optional HISTORIC NOT-URGENT)
(defalias 'vc-diff #[512 "\203 \301\302!\207\203 \303!\210\304\305\306\305!\307\211\310\311!%\207" [buffer-file-name call-interactively vc-version-diff vc-buffer-sync vc-diff-internal t vc-deduce-fileset nil called-interactively-p interactive] 9 (#$ . 35252) (list current-prefix-arg t)])
#@156 Report diffs between the merge base of REV1 and REV2 revisions.
The merge base is a common ancestor between REV1 and REV2 revisions.
(fn FILES REV1 REV2)
(defalias 'vc-diff-mergebase #[771 "\204\f \211\203\f \301\302!\210\303 \304\203 \305\306#\262\2027 \307\310!\262\311!\262\2033 \211\2027 \301\312!\210\211\305\313$\314\315CD \316\317!%)\266\202)\207" [default-directory error "Not a valid revision range" vc-deduce-backend nil vc-call-backend root read-directory-name "Directory for VC root-diff: " vc-responsible-backend "Directory is not version controlled" mergebase vc-diff-internal t called-interactively-p interactive] 15 (#$ . 35907) (byte-code "\301\3021\f \303\304!0\202 \210\202 \206% \305 \206 \306!\211\307\310#CD\262!\207" [default-directory vc-diff-build-argument-list-internal (error) vc-deduce-fileset t vc-deduce-backend vc-responsible-backend vc-call-backend root] 7)])
#@417 Show differences between REV1 and REV2 of FILES using ediff.
This compares two revisions of the files in FILES. Currently,
only a single file's revisions can be compared, i.e. FILES can
specify only one file name.
If REV1 is nil, it defaults to the current revision, i.e. revision
of the last commit.
If REV2 is nil, it defaults to the work tree, i.e. the current
state of each file in FILES.
(fn FILES REV1 REV2)
(defalias 'vc-version-ediff #[771 "\204\f \211\203\f \300\301!\210\302\303\304\305\306!\"\"\210\204 \307\262\211\204% \307\262G\310U\203> \311\312!\210\313 \210\314@!\210\315\316#\207\300\317!\207" [error "Not a valid revision range" message "%s" format "Finding changes in %s..." vc-delistify "" 1 require ediff ediff-load-version-control find-file ediff-vc-internal nil "More than one file is not supported"] 9 (#$ . 36840) (vc-diff-build-argument-list-internal)])
#@367 Display diffs between file revisions using ediff.
Normally this compares the currently selected fileset with their
working revisions. With a prefix argument HISTORIC, it reads two revision
designators specifying which revisions to compare.
The optional argument NOT-URGENT non-nil means it is ok to say no to
saving the buffer.
(fn HISTORIC &optional NOT-URGENT)
(defalias 'vc-ediff #[513 "\203 \301\302!\207\203 \303!\210\302\304\305!A@\306\211#\207" [buffer-file-name call-interactively vc-version-ediff vc-buffer-sync vc-deduce-fileset t nil] 6 (#$ . 37741) (list current-prefix-arg t)])
#@389 Display diffs between VC-controlled whole tree revisions.
Normally, this compares the tree corresponding to the current
fileset with the working revision.
With a prefix argument HISTORIC, prompt for two revision
designators specifying which revisions to compare.
The optional argument NOT-URGENT non-nil means it is ok to say no to
saving the buffer.
(fn HISTORIC &optional NOT-URGENT)
(defalias 'vc-root-diff #[513 "\203 \302\303!\207\203 \304!\210\305 \306\211\203% \307\310 #\262\202< \311\312!\262\313!\262\2038 \202< \314\315!\210\316!\262\317\320CE\306\211\321\322!%*\207" [buffer-file-name default-directory call-interactively vc-root-version-diff vc-buffer-sync vc-deduce-backend nil vc-call-backend root read-directory-name "Directory for VC root-diff: " vc-responsible-backend error "Directory is not version controlled" vc-working-revision vc-diff-internal t called-interactively-p interactive] 13 (#$ . 38347) (list current-prefix-arg t)])
#@107 Return the root directory for the current VC tree.
Return nil if the root directory cannot be identified.
(defalias 'vc-root-dir #[0 "\301 \211\205% \3021 \303\304#0\202% \211A@\304=\204\" \305@A\"\210\306\262\207" [default-directory vc-deduce-backend (vc-not-supported) vc-call-backend root signal nil] 5 (#$ . 39332)])
#@206 Visit revision REV of the current file in another window.
If the current file is named `F', the revision is named `F.~REV~'.
If `F.~REV~' already exists, use it instead of checking it out again.
(fn REV)
(defalias 'vc-revision-other-window #[257 "\301 \210\302\230\203 \303!\202 \304\305\"!\207" [buffer-file-name vc-ensure-vc-buffer "" vc-working-revision switch-to-buffer-other-window vc-find-revision] 7 (#$ . 39666) (byte-code "r\301 \210\302\303C\")C\207" [buffer-file-name vc-ensure-vc-buffer vc-read-revision "Revision to visit (default is working revision): "] 3)])
#@142 Read REVISION of FILE into a buffer and return the buffer.
Use BACKEND as the VC backend if specified.
(fn FILE REVISION &optional BACKEND)
(defalias 'vc-find-revision #[770 "\203\n \300#\207\301#\207" [vc-find-revision-no-save vc-find-revision-save] 7 (#$ . 40257)])
#@128 Read REVISION of FILE into a buffer and return the buffer.
Saves the buffer to the file.
(fn FILE REVISION &optional BACKEND)
(defalias 'vc-find-revision-save #[770 "\303\"\304!\206 p\303\305#\306!\204\237 \306!\203% \307\310#\210\202\237 \311\312\"\210rq\210\313C\314\315\316\317\320\"\321\"\322$\216\323\324\325!\314\315\326\317\320!\327\"\322$\216r\211q\210p\323rq\210\203o \330\331\f\f%\210\202| \330\332 !\331\f\f%\210)\210)r\211q\210\333\310\211\310\315%\210*\266\211\310\240\210*\210\334!\210)\311\335\"\210\336!r\211q\210\337\302!\210)\211\262\207" [coding-system-for-read buffer-file-coding-system vc-parent-buffer vc-version-backup-file-name get-file-buffer manual file-exists-p rename-file nil message "Checking out %s..." t make-byte-code 0 "\301\242\205 \302\300!\205 \303\300!\207" vconcat vector [file-exists-p delete-file] 2 no-conversion generate-new-buffer " *temp file*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] vc-call-backend find-revision vc-backend write-region vc-mode-line "Checking out %s...done" find-file-noselect make-local-variable] 16 (#$ . 40540)])
#@329 Read REVISION of FILE into BUFFER and return the buffer.
If BUFFER omitted or nil, this function creates a new buffer and sets
`buffer-file-name' to the name constructed from the file name and the
revision number.
Unlike `vc-find-revision-save', doesn't save the buffer to the file.
(fn FILE REVISION &optional BACKEND BUFFER)
(defalias 'vc-find-revision-no-save #[1026 "\305!\205 \211\211\206 \306!\206 p?\205 \307\310#\204. \306!\204\273 \311!\204\273 rq\210\312C\313\314\315\316\317#\320\"\321$\216r\206M \322!q\210\204U prq\210\203m \323\324 %\210\202z \323\325\n!\324 %\210)\210\326ed\n#\210\327deZ!\210eb\210\203\257 \330\3311\246 \332\302!\210\312\333 )0\202\252 \210\202\253 \210*\202\262 \334 \210\335\336!\210\312*\210)\206\310 \306!\206\310 \337!r\211q\210\332\304!\210)\211\262\207" [buffer-file-name enable-local-variables delay-mode-hooks buffer-read-only vc-parent-buffer buffer-live-p get-file-buffer vc-version-backup-file-name manual file-exists-p t make-byte-code 0 "\302\303\240\210\302\242\205$ \300?\205$ \304\301!\205$ r\304\301!q\210\305\303!\210)\306\304\301!!\207" vconcat vector [nil get-file-buffer set-buffer-modified-p kill-buffer] 3 create-file-buffer vc-call-backend find-revision vc-backend decode-coding-inserted-region after-insert-file-set-coding :safe (error) make-local-variable set-auto-mode normal-mode set-buffer-modified-p nil find-file-noselect] 16 (#$ . 41688)])
#@160 Insert headers into a file for use with a version control system.
Headers desired are inserted at point, and are pulled from
the variable `vc-BACKEND-header'.
(defalias 'vc-insert-headers #[0 "\306 \210\212\214~\210\307 \203 \310\311!\205x \236A\211@\206 \n\206 \312A@\206+ \206+ \313\314\315\f!\316\"\317!\2059 \211J\211\211\203Q \211@\320\320\321\261\210A\266\202\202: \210
\205v
\211\205t \211@\322@\f\"\203m \323A@\"c\210A\266\202\202W \262\266\205*\207" [major-mode vc-comment-alist comment-start comment-end buffer-file-name vc-static-header-alist vc-ensure-vc-buffer vc-check-headers y-or-n-p "Version headers already exist. Insert another set? " "#" "" vc-make-backend-sym vc-backend header boundp " " "\n" string-match format] 13 (#$ . 43157) nil])
#@91 Edit the comment associated with the given files and revision.
(fn FILES REV OLDCOMMENT)
(defalias 'vc-modify-change-comment #[771 "\300@!\301\302\303\304\305\306\307\310\311 !\312\"\313$\305\314\315\310\311
\"\316\"\317\320%&\207" [vc-responsible-backend vc-start-logentry t "Enter a replacement change comment." "*vc-log*" make-byte-code 0 "\301\300\302\"\207" vconcat vector [vc-call-backend log-edit-mode] 3 514 "\302\301\303\300%\207" [vc-call-backend modify-change-comment] 8 "\n\n(fn FILES COMMENT)"] 18 (#$ . 43942)])
#@636 Perform a version control merge operation.
You must be visiting a version controlled file, or in a `vc-dir' buffer.
On a distributed version control system, this runs a "merge"
operation to incorporate changes from another branch onto the
current branch, prompting for an argument list.
On a non-distributed version control system, this merges changes
between two revisions into the current fileset. This asks for
two revisions to merge from in the minibuffer. If the first
revision is a branch number, then merge all changes from that
branch. If the first revision is empty, merge the most recent
changes from the current branch.
(defalias 'vc-merge #[0 "\300\301!\211@A@\302\303\"\203 \304\303\"\202z \302\305\"\203v \306 \210\211\211\205q \211@\307!\310;\2039 \311\312#\210\202Z \313!\211\205P \314C\"\315=\206P \307!\316>\266\202\204Z \317\301\"\210\304\320#\262\321\322\323$\266A\266\202\202! \262\202z \311\324\"\207" [vc-deduce-fileset t vc-find-backend-function merge-branch vc-call-backend merge vc-buffer-sync vc-state nil error "File %s is locked by %s" vc-backend vc-checkout-model implicit (edited needs-merge conflict) vc-checkout merge-file vc-maybe-resolve-conflicts "WORKFILE" "MERGE SOURCE" "Sorry, merging is not implemented for %s"] 12 (#$ . 44486) nil])
#@44
(fn FILE STATUS &optional NAME-A NAME-B)
(defalias 'vc-maybe-resolve-conflicts #[1026 "\300\301\302 ?#\210\303U\203 \304\305!\207\306\307!\210\304\310!\207" [vc-resynch-buffer t buffer-modified-p 0 message "Merge successful" smerge-mode 1 "File contains conflicts."] 8 (#$ . 45796)])
#@79 Display a message indicating unresolved conflicts in FILENAME.
(fn FILENAME)
(defalias 'vc-message-unresolved-conflicts #[257 "\300\301\"\207" [message "There are unresolved conflicts in %s"] 4 (#$ . 46091)])
(defalias 'vc-resolve-conflicts 'smerge-ediff)
#@56 Visit the next conflicted file in the current project.
(defalias 'vc-find-conflicted-file #[0 "\203\n \302!\206 \303 !\206 \304\305!\306 \307\310\206 #\211@\232\203) \211A\262\211\2043 \311\312!\202I \313\211A\262\242!\210\311\314\203G G\202H \315\"\207" [buffer-file-name default-directory vc-backend vc-responsible-backend error "No VC backend" vc-root-dir vc-call-backend conflicted-files message "No more conflicted files" find-file "%s more conflicted files after this one" "No"] 6 (#$ . 46355) nil])
#@294 Scan the tree below DIR, looking for files not up-to-date.
If any file is not up-to-date, return the name of the first such file.
(This means, neither tag creation nor retrieval is allowed.)
If one or more of the files are currently visited, return `visited'.
Otherwise, return nil.
(fn DIR)
(defalias 'vc-tag-precondition #[257 "\300C\3012 \302\303\304\305\306\307!\310\"\311\312%\"\210\211\2420\207" [nil vc-locked-example vc-file-tree-walk make-byte-code 257 "\211\301!\302=\262\204 \303\304\"\207\305!\205 \300\306\240\207" vconcat vector [vc-state up-to-date throw vc-locked-example get-file-buffer visited] 4 "\n\n(fn F)"] 10 (#$ . 46882)])
#@293 Descending recursively from DIR, make a tag called NAME.
For each registered file, the working revision becomes part of
the named configuration. If the prefix argument BRANCHP is
given, the tag is made as a new branch and the files are
checked out in that new branch.
(fn DIR NAME BRANCHP)
(defalias 'vc-create-tag #[771 "\300\301\203\n \302\202 \303\"\210\304!\203 \305!\262\306\307!\310%\210\311\312\211\211$\210\300\313\2033 \302\2024 \303\"\207" [message "Making %s... " "branch" "tag" file-directory-p file-name-as-directory vc-call-backend vc-responsible-backend create-tag vc-resynch-buffer t "Making %s... done"] 9 (#$ . 47547) (byte-code "\302\303!\304\"\211\305=\203 \202 \306\307\211\310$\311 \203 \312\202 \313! E\207" [default-directory current-prefix-arg vc-call-backend vc-responsible-backend revision-granularity repository read-directory-name "Directory: " t read-string "New branch name: " "New tag name: "] 6)])
#@621 For each file in or below DIR, retrieve their tagged version NAME.
NAME can name a branch, in which case this command will switch to the
named branch in the directory DIR.
Interactively, prompt for DIR only for VCS that works at file level;
otherwise use the repository root of the current buffer.
If NAME is empty, it refers to the latest revisions of the current branch.
If locking is used for the files in DIR, then there must not be any
locked files at or below DIR (but if NAME is empty, locked files are
allowed and simply skipped).
This function runs the hook `vc-retrieve-tag-hook' when finished.
(fn DIR NAME)
(defalias 'vc-retrieve-tag #[514 "\300!\301\302\"\205
\303\304!\203 \305\230\203! \306\307\310!\"\202) \306\311\310!#\312\313\"\210\301\314%\210\315\316\211\211$\210\317\320!\210\312\313\321P\"\207" [vc-responsible-backend vc-call-backend update-on-retrieve-tag yes-or-no-p "Update any affected buffers? " "" format "Updating %s... " abbreviate-file-name "Retrieving tag %s into %s... " message "%s" retrieve-tag vc-resynch-buffer t run-hooks vc-retrieve-tag-hook "done"] 11 (#$ . 48506) (byte-code "\301\302!\303\"\211\304=\203 \305\306 !\202 \307\310\311\312$\211\313\314C\302!#D\207" [default-directory vc-call-backend vc-responsible-backend revision-granularity repository expand-file-name vc-root-dir read-directory-name "Directory: " nil t vc-read-revision "Tag name to retrieve (default latest revisions): "] 8)])
#@217 Whether or not to show a short log.
If it contains `directory' then if the fileset contains a directory show a short log.
If it contains `file' then show short logs for files.
Not all VC backends support short logs!
(defvar vc-log-short-style '(directory) (#$ . 49981))
#@348 Insert at the end of the current buffer buttons to show more log entries.
In the new log, leave point at WORKING-REVISION (if non-nil).
LIMIT is the number of entries currently shown.
Does nothing if IS-START-REVISION is non-nil, or if LIMIT is nil,
or if PL-RETURN is `limit-unsupported'.
(fn WORKING-REVISION IS-START-REVISION LIMIT PL-RETURN)
(defalias 'vc-print-log-setup-buttons #[1028 "\205B \211\300=?\205B ?\205B db\210\301c\210\302\303\304\305\306\307\310\311 \n\"\312\"\313\314%\315\316%\210\317c\210\302\320\304\305\306\321\310\311 !\322\"\323\314%\315\324%\207" [limit-unsupported "\n" insert-text-button "Show 2X entries" action make-byte-code 128 "\304\n \300\305\306\301_%\207" vconcat vector [log-view-vc-backend log-view-vc-fileset vc-print-log-internal nil 2] 8 "\n\n(fn &rest IGNORE)" help-echo "Show the log again, and double the number of log entries shown" " " "Show unlimited entries" "\303 \n\300\304\211%\207" [log-view-vc-backend log-view-vc-fileset vc-print-log-internal nil] 7 "Show the log again, including all entries"] 14 (#$ . 50258)])
#@389 For specified BACKEND and FILES, show the VC log.
Leave point at WORKING-REVISION, if it is non-nil.
If IS-START-REVISION is non-nil, start the log from WORKING-REVISION
(not all backends support this); i.e., show only WORKING-REVISION and
earlier revisions. Show up to LIMIT entries (non-nil means unlimited).
(fn BACKEND FILES WORKING-REVISION &optional IS-START-REVISION LIMIT TYPE)
(defalias 'vc-print-log-internal #[1539 "\301\302\"\211\203
\303\202 \304>??\305\206 \203 \306\202 \307\310\n \311\312\313\314\315$\316\"\317\320%\311\321\322\314\315#\323\"\324\325%\205] \311\326\327\314\315!\330\"\331\332%\311\333\334\314\315&\335\"\336\337%&\207" [vc-log-short-style cl-some file-directory-p directory file "*vc-change-log*" short long vc-log-internal-common make-byte-code 1028 "\304\305\303\301\205\f \300\302&\207" vconcat vector [vc-call-backend print-log] 12 "\n\n(fn BK BUF TYPE-ARG FILES-ARG)" 771 "\212\303\300\301\302$)\207" [vc-print-log-setup-buttons] 8 "\n\n(fn BK FILES-ARG RET)" 257 "\301\302\300#\207" [vc-call-backend show-log-entry] 5 "\n\n(fn BK)" 514 "\306\300\301\302\303\304\305&\207" [vc-print-log-internal] 9 "\n\n(fn IGNORE-AUTO NOCONFIRM)"] 29 (#$ . 51342)])
#@56 Set this to differentiate the different types of logs.
(defvar vc-log-view-type nil (#$ . 52594))
(put 'vc-log-view-type 'permanent-local t)
#@104
(fn BACKEND BUFFER-NAME FILES TYPE BACKEND-FUNC SETUP-BUTTONS-FUNC GOTO-LOCATION-FUNC REV-BUFF-FUNC)
(defalias 'vc-log-internal-common #[2056 "\305C\306!r\211q\210\307\300!\210) \n\f$\240\210r\211q\210\310\311\n\312=\203< \313\f\314\"\203< \314\202= \315\"\210\307\302!\210 \307\303!\210\307\304!\210*\316!\210\317\320\321\322\323\324\f\f %\325\"\326$!\207" [vc-log-view-type inhibit-read-only log-view-vc-backend log-view-vc-fileset revert-buffer-function nil get-buffer-create make-local-variable t vc-call-backend with-diff vc-find-backend-function region-history-mode log-view-mode pop-to-buffer vc-exec-after make-byte-code 0 "\306 \302\300\301\304\242#\210\307 \210\303\203 \303\300!\210`\n\310\311!)\207" vconcat vector [inhibit-read-only t shrink-window-if-larger-than-buffer set-buffer-modified-p nil vc-sentinel-movepoint] 4] 21 (#$ . 52742)])
#@49
(fn BACKEND REMOTE-LOCATION BUFFER-NAME TYPE)
(defalias 'vc-incoming-outgoing-internal #[1028 "\300\301\302\303\304\305\306\f!\307\"\310\311%\312\301\302\313\314\305\306$\315\"\316\317%&\207" [vc-log-internal-common nil make-byte-code 1028 "\301\300$\207" vconcat vector [vc-call-backend] 9 "\n\n(fn BK BUF TYPE-ARG FILES)" #[771 "\300\207" [nil] 4 "\n\n(fn BK FILES-ARG RET)"] 514 "\304\300\301\302\303$\207" [vc-incoming-outgoing-internal] 7 "\n\n(fn IGNORE-AUTO NOCONFIRM)"] 21 (#$ . 53639)])
#@379 List the change log of the current fileset in a window.
If WORKING-REVISION is non-nil, leave point at that revision.
If LIMIT is non-nil, it should be a number specifying the maximum
number of revisions to show; the default is `vc-log-show-limit'.
When called interactively with a prefix argument, prompt for
WORKING-REVISION and LIMIT.
(fn &optional WORKING-REVISION LIMIT)
(defalias 'vc-print-log #[512 "\300\301!\211@A@\302\303%\207" [vc-deduce-fileset t vc-print-log-internal nil] 11 (#$ . 54160) (byte-code "\203- \302\303\304\211\211\211%\305\302\306\307\310 \"\304\211\211%!\311\230\203 \304\262\211\312X\203) \304\262D\207\304 \312V\2055 D\207" [current-prefix-arg vc-log-show-limit read-from-minibuffer "Leave point at revision (default: last revision): " nil string-to-number "Limit display (unlimited: 0): " format "%s" "" 0] 8)])
#@543 List the revision history for the current VC controlled tree in a window.
If LIMIT is non-nil, it should be a number specifying the maximum
number of revisions to show; the default is `vc-log-show-limit'.
When called interactively with a prefix argument, prompt for LIMIT.
When the prefix argument is a number, use it as LIMIT.
A special case is when the prefix argument is 1: in this case
the command asks for the ID of a revision, and shows that revision
with its diffs (if the underlying VCS supports that).
(fn &optional LIMIT REVISION)
(defalias 'vc-print-root-log #[512 "\302 \303=\205 \211?\205 \304\203! \305\306#\262\2023 \307\310!\262\311!\262\2043 \312\313!\210\211\314C\211 \205D \315&*\207" [default-directory vc-log-short-style vc-deduce-backend 1 nil vc-call-backend root read-directory-name "Directory for VC revision log: " vc-responsible-backend error "Directory is not version controlled" vc-print-log-internal with-diff] 12 (#$ . 55027) (byte-code "\302=\203 \303\304\305\"\306\203 \307\310\"\202 \311\312\211$\302D\207\247\203' C\207\203C \313\314\315\307\316 \"\312\211\211%!\211\317X\203@ \312\262\211C\207 \317V\205J C\207" [current-prefix-arg vc-log-show-limit 1 thing-at-point word t read-string format "Revision to show (default %s): " "Revision to show: " nil string-to-number read-from-minibuffer "Limit display (unlimited: 0): " "%s" 0] 7)])
#@58 Show the change log for BRANCH in a window.
(fn BRANCH)
(defalias 'vc-print-branch-log #[257 "\211\302\232\203\n \303\304!\210\305\306!C\307 \310V\205 %\207" [default-directory vc-log-show-limit "" error "No branch specified" vc-print-log-internal vc-responsible-backend t 0] 8 (#$ . 56444) (byte-code "\300\301!C\207" [vc-read-revision "Branch to log: "] 2)])
#@199 Show a log of changes that will be received with a pull operation from REMOTE-LOCATION.
When called interactively with a prefix argument, prompt for REMOTE-LOCATION.
(fn &optional REMOTE-LOCATION)
(defalias 'vc-log-incoming #[256 "\300 \211\204\n \301\302!\210\303\206 \304\305\306$\207" [vc-deduce-backend error "Buffer is not version controlled" vc-incoming-outgoing-internal "" "*vc-incoming*" log-incoming] 7 (#$ . 56818) (byte-code "\205 \301\302!C\207" [current-prefix-arg read-string "Remote location (empty for default): "] 2)])
#@193 Show a log of changes that will be sent with a push operation to REMOTE-LOCATION.
When called interactively with a prefix argument, prompt for REMOTE-LOCATION.
(fn &optional REMOTE-LOCATION)
(defalias 'vc-log-outgoing #[256 "\300 \211\204\n \301\302!\210\303\206 \304\305\306$\207" [vc-deduce-backend error "Buffer is not version controlled" vc-incoming-outgoing-internal "" "*vc-outgoing*" log-outgoing] 7 (#$ . 57368) (byte-code "\205 \301\302!C\207" [current-prefix-arg read-string "Remote location (empty for default): "] 2)])
#@359 Search the log of changes for PATTERN.
PATTERN is usually interpreted as a regular expression. However, its
exact semantics is up to the backend's log search command; some can
only match fixed strings.
Display all entries that match log messages in long format.
With a prefix argument, ask for a command to run that will output
log entries.
(fn PATTERN)
(defalias 'vc-log-search #[257 "\300 \211\204\n \301\302!\210\303\304\305$\207" [vc-deduce-backend error "Buffer is not version controlled" vc-incoming-outgoing-internal "*vc-search-log*" log-search] 7 (#$ . 57912) (byte-code "?\205 \301\302!C\207" [current-prefix-arg read-regexp "Search log with pattern: "] 2)])
#@165 Show a log of changes between the merge base of REV1 and REV2 revisions.
The merge base is a common ancestor between REV1 and REV2 revisions.
(fn FILES REV1 REV2)
(defalias 'vc-log-mergebase #[771 "\301 \302\203 \303\304#\262\202& \305\306!\262\307!\262\204& \310\311!\210\211\303\312$\262\313C\314\206? \315%)\207" [default-directory vc-deduce-backend nil vc-call-backend root read-directory-name "Directory for VC root-log: " vc-responsible-backend error "Directory is not version controlled" mergebase vc-print-log-internal t ""] 12 (#$ . 58596) (byte-code "\301\3021\f \303\304!0\202 \210\202 \206% \305 \206 \306!\211\307\310#CD\262!\207" [default-directory vc-diff-build-argument-list-internal (error) vc-deduce-fileset t vc-deduce-backend vc-responsible-backend vc-call-backend root] 7)])
#@134 Show the history of the region between FROM and TO.
If called interactively, show the history between point and
mark.
(fn FROM TO)
(defalias 'vc-region-history #[514 "\305\306\"\305S\306\"\307!\310\311!\204 \312\313!\210r\211q\210\314\301!\210\315)\316\307!\317 &\210r\211q\210\316\320\"\210\314\302!\210\314\303!\210C\314\304!\210\321\322\323\324\325 $\326\"\327\330%)\331!\207" [buffer-file-name vc-log-view-type log-view-vc-backend log-view-vc-fileset revert-buffer-function line-number-at-pos t vc-backend get-buffer-create "*VC-history*" error "Buffer is not version controlled" make-local-variable long vc-call-backend region-history region-history-mode make-byte-code 514 "r\303q\210\305 \306 \210*\307\310\302!\311\302\303\300\301&\207" vconcat vector [inhibit-read-only t erase-buffer vc-call-backend vc-backend region-history] 9 "\n\n(fn IGNORE-AUTO NOCONFIRM)" display-buffer] 16 (#$ . 59432) "r"])
#@201 Revert working copies of the selected fileset to their repository contents.
This asks for confirmation if the buffer contents are not identical
to the working revision (except for keyword expansion).
(defalias 'vc-revert #[0 "\302 \211A@\303\211C\203 \304 >\203 \305\303!\210\211\203U \211@\306!\211\203/ \307!\203/ \310\311!\210\210\211\312!\313=\262\203N \314\315\316\"!\203J \317\262\202N \310\320!\210A\266\202\202 \210\321\322\323\324\325!\326\"\327$\216\203z \211\330\331!\240\210\332 \303\211\211\242&\202| ?\203\256 \314\315\333\334!GG\335W\203\224 \202\243 \315\336\211\337U\203\241 \340\202\242 \341#\266\202\"!\204\256 \310\320!\210)\211\205\321 \211@\342\343\334!\"\210\344!\210\342\345\334!\"\210A\266\202\202\260 \262\207" [vc-revert-show-diff vc-allow-async-revert vc-deduce-fileset nil buffer-file-name vc-buffer-sync get-file-buffer buffer-modified-p error "Please kill or save all modified buffers before reverting" vc-state up-to-date yes-or-no-p format "%s seems up-to-date. Revert anyway? " t "Revert canceled" make-byte-code 0 "\300\242\205 \301\300\242!\207" vconcat vector [quit-windows-on] 2 generate-new-buffer-name "*vc-diff*" vc-diff-internal "Discard changes in %s? " vc-delistify 50 "%d file%s" 1 "" "s" message "Reverting %s..." vc-revert-file "Reverting %s...done"] 14 (#$ . 60380) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias vc-revert-buffer vc-revert nil make-obsolete "23.1"] 4)
#@647 Update the current fileset or branch.
You must be visiting a version controlled file, or in a `vc-dir' buffer.
On a distributed version control system, this runs a "pull"
operation to update the current branch, prompting for an argument
list if required. Optional prefix ARG forces a prompt for the VCS
command to run.
On a non-distributed version control system, update the current
fileset to the tip revisions. For each unchanged and unlocked
file, this simply replaces the work file with the latest revision
on its branch. If the file contains changes, any changes in the
tip revision are merged into the working file.
(fn &optional ARG)
(defalias 'vc-pull #[256 "\300\301!\211@A@\302\303\"\203 \304\303#\202\217 \302\305\"\203_ \306\307\310\311\312\313\314!\315\"\316$\"\210\211\211\205Z \211@\211\317!\320=\262\203I \321\301\"\210\202S \322\304\305#\"\210A\266\202\2020 \262\202\217 \323\"\324=\203\213 \211\211\205\206 \211@\211\317!\320=\262\203 \321\301\"\210A\266\202\202i \262\202\217 \325\326\"\207" [vc-deduce-fileset t vc-find-backend-function pull vc-call-backend merge-news save-some-buffers nil make-byte-code 0 "\301 \205 \302 \211\205 \211\300\235\262\207" vconcat vector [buffer-modified-p buffer-file-name] 3 vc-state up-to-date vc-checkout vc-maybe-resolve-conflicts vc-checkout-model locking error "VC update is unsupported for `%s'"] 12 (#$ . 61866) "P"])
(defalias 'vc-update 'vc-pull)
#@452 Push the current branch.
You must be visiting a version controlled file, or in a `vc-dir' buffer.
On a distributed version control system, this runs a "push"
operation on the current branch, prompting for the precise command
if required. Optional prefix ARG non-nil forces a prompt for the
VCS command to run.
On a non-distributed version control system, this signals an error.
It also signals an error in a Bazaar bound branch.
(fn &optional ARG)
(defalias 'vc-push #[256 "\300\301!\211@\302\303\"\203 \304\303#\202 \305\306\"\207" [vc-deduce-fileset t vc-find-backend-function push vc-call-backend user-error "VC push is unsupported for `%s'"] 7 (#$ . 63318) "P"])
#@234 Return name of backup file for revision REV of FILE.
If version backups should be used for FILE, and there exists
such a backup for REV or the working revision of file, return
its name; otherwise return nil.
(fn FILE &optional REV)
(defalias 'vc-version-backup-file #[513 "\300\301!\302#\205( \303\"\304!\203 \211\202& \303\305#\262\304!\205& \211\262\207" [vc-call-backend vc-backend make-version-backups-p vc-version-backup-file-name file-exists-p manual] 7 (#$ . 64001)])
#@81 Revert FILE back to the repository working revision it was based on.
(fn FILE)
(defalias 'vc-revert-file #[257 "\302C\303C\211\203G \211@\304!\203; \305 \211\2037 \211@\306!\211\203/ \307\"\203/ \211B\262\210A\266\202\202 \210\202@ \211B\262A\266\202\202 \210\310!\211\203Y \311\312#\210\313!\210\314\315!\316$\266\211\211\203\237 \211@\317\320\321!\3228\262BD\211\203\227 \211@\211@\211>\204\217 \323\324 \"A#\210\210A\266\202\202w \210A\266\202\202e \210)\266\325\302\211#\207" [vc-touched-properties vc-file-prop-obarray t nil file-directory-p buffer-list buffer-file-name string-prefix-p vc-version-backup-file copy-file ok-if-already-exists vc-delete-automatic-version-backups vc-call-backend vc-backend revert (vc-state . up-to-date) vc-checkout-time file-attributes 5 put intern vc-resynch-buffer] 12 (#$ . 64494)])
#@380 Make BACKEND the current version control system for FILE.
FILE must already be registered in BACKEND. The change is not
permanent, only for the current session. This function only changes
VC's perspective on FILE, it does not register or unregister it.
By default, this command cycles through the registered backends.
To get a prompt, use a prefix argument.
(fn FILE BACKEND)
(defalias 'vc-switch-backend #[514 "\211\300!=?\205( \301!\210\302\300#\210\303\304#\204% \301!\210\305\306#\210\307!\207" [vc-backend vc-file-clearprops vc-file-setprop vc-call-backend registered error "%s is not registered in %s" vc-mode-line] 6 (#$ . 65361) (byte-code "\206 \303\304!\305!\306\204 \303\307\"\210 \211\2035 \211@\310\311#\203. =\204. \211B\262A\266\202\202 \210\211@\211\204C \303\312!\202c \n\203b \313\314\315\316\"\317\320\"\306\321\306\211\322\n!\227&\226!\202c \266\202\266\202D\207" [buffer-file-name vc-handled-backends current-prefix-arg error "There is no version-controlled file in this buffer" vc-backend nil "File %s is not under version control" vc-call-backend registered "No other backend to switch to" intern completing-read format "Switch to backend [%s]: " mapcar #[257 "\300!\227C\207" [symbol-name] 3 "\n\n(fn B)"] t symbol-name] 15)])
#@564 Transfer FILE to another version control system NEW-BACKEND.
If NEW-BACKEND has a higher precedence than FILE's current backend
(i.e. it comes earlier in `vc-handled-backends'), then register FILE in
NEW-BACKEND, using the revision number from the current backend as the
base level. If NEW-BACKEND has a lower precedence than the current
backend, then commit all changes that were made under the current
backend to NEW-BACKEND, and unregister FILE from the current backend.
(If FILE is not yet registered under NEW-BACKEND, register it.)
(fn FILE NEW-BACKEND)
(defalias 'vc-transfer-file #[514 "\301!\302!\303>\304\305#\211\205 >>\206 \306\307!\310=\203- \311\312 #\210\203@ \313\314\315\n!\316\"\"\210\202\236 \317\"\210\320!\205S \321!\211\205[ \322 !\323\324\325\326\327#\330\"\331$\216\203\221 \332\n\333#\210\211\203\206 \332 \333\334$\210\202\221 \306\335!\203\221 \336\n!\210\304 \337\f$\210)\266\203\270 \317\"\210\304\340 #\262\304\341 #\210\317\"\210\204\307 \205\336 \342\302\343#\210\344\"\210\345\211;$\207" [vc-handled-backends vc-backend vc-state (edited needs-merge) vc-call-backend registered y-or-n-p "Final transfer? " nil error "%s is the current backend of %s" set-file-modes logior file-modes 128 vc-switch-backend vc-working-revision make-temp-file vc-version-backup-file make-byte-code 0 "\302\205\" \303\300\301\"\210\304\301\300C\"\305=\204 \306\300!\210\307\302\300\310#\210\311\300\312\313#\207" vconcat vector [vc-switch-backend vc-checkout-model implicit vc-checkout rename-file ok-if-already-exists vc-file-setprop vc-checkout-time nil] 4 copy-file ok-if-already-exists keep-date "Get base revision from repository? " vc-revert-file receive-file comment-history unregister vc-file-setprop edited vc-mode-line vc-checkin] 18 (#$ . 66654)])
#@187 Delete file and mark it as such in the version control system.
If called interactively, read FILE, defaulting to the current
buffer's file name if it's under version control.
(fn FILE)
(defalias 'vc-delete-file #[257 "\303!\262\304!\305!\211\204 \306\307\310!\"\210\311\312\"\204\" \306\313\"\210\2031 \314!\2031 \306\315\"\210\316!\211\317=\203? \306\320\"\210\211\321=\203J \306\322\"\210\210\323\324\325\310!\"!\204[ \306\326!\210\327!\204{ \203{ \330!\203{ r\206s \331!q\210\332\333 \210*\334!\335\312#\210)\330!\203\220 \312!\210\336!\210\337\332\340#\207" [make-backup-files backup-inhibited default-directory expand-file-name get-file-buffer vc-backend error "File %s is not under version control" file-name-nondirectory vc-find-backend-function delete-file "Deleting files under %s is not supported in VC" buffer-modified-p "Please save or undo your changes before deleting %s" vc-state edited "Please commit or undo your changes before deleting %s" conflict "Please resolve the conflicts before deleting %s" y-or-n-p format "Really want to delete %s? " "Abort!" file-directory-p file-exists-p find-file-noselect nil backup-buffer file-name-directory vc-call-backend vc-file-clearprops vc-resynch-buffer t] 8 (#$ . 68509) (byte-code "\301\302\303\304!\205\n \305$C\207" [buffer-file-name read-file-name "VC delete file: " nil vc-backend t] 5)])
#@195 Rename file OLD to NEW in both work area and repository.
If called interactively, read OLD and NEW, defaulting OLD to the
current buffer's file name if it's under version control.
(fn OLD NEW)
(defalias 'vc-rename-file #[514 "\301!\211\302\230\204 \301!\302\230\203 P\262\210\303!\211\203( \304!\203( \305\306!\210\303!\2032 \305\307!\210\310!\203< \305\311!\210\312!\211\313>\204S \305\314;\203P \315\202Q \316\"\210\210\317\320!\321$\210\322!\210\322!\210\310!\203p \321\"\210\211\205\212 r\211q\210\323!\210)\324\320!\"\210\325\326!)\207" [buffer-read-only file-name-nondirectory "" get-file-buffer buffer-modified-p error "Please save files before moving them" "Already editing new file name" file-exists-p "New file already exists" vc-state (up-to-date edited added) "Please %s files before moving them" "check in" "update" vc-call-backend vc-backend rename-file vc-file-clearprops set-visited-file-name vc-mode-line set-buffer-modified-p nil] 8 (#$ . 69902) (byte-code "\301\302\303\304!\205\n \305$\301\306!D\207" [buffer-file-name read-file-name "VC rename file: " nil vc-backend t "Rename to: "] 5)])
#@565 Find change log file and add entries from recent version control logs.
Normally, find log entries for all registered files in the default
directory.
With prefix arg of \[universal-argument], only find log entries for the current buffer's file.
With any numeric prefix arg, find log entries for all currently visited
files that are under version control. This puts all the entries in the
log for the default directory, which may not be appropriate.
From a program, any ARGS are assumed to be filenames for which
log entries should be gathered.
(fn &rest ARGS)
(defalias 'vc-update-change-log #[128 "\301\302!\303#\207" [default-directory vc-call-backend vc-responsible-backend update-changelog] 5 (#$ . 71048) (byte-code ":\203 C\207\2032 \302\303 \211\203/ \211@\301!\211\203' \304!\203' \211B\262\210A\266\202\202 \210\211\207\302\207" [current-prefix-arg buffer-file-name nil buffer-list vc-backend] 6)])
#@49 Return t if REV is a branch revision.
(fn REV)
(defalias 'vc-branch-p #[257 "\300\301\"\302=?\207" [string-match "\\`[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*\\'" nil] 4 (#$ . 71978)])
#@60 Return the branch part of a revision number REV.
(fn REV)
(defalias 'vc-branch-part #[257 "\300\301\"\211\205
\302\303#\207" [string-match "\\.[0-9]+\\'" substring 0] 6 (#$ . 72161)])
#@107 Indicate whether BACKEND is responsible for FILE.
The default is to return nil always.
(fn BACKEND FILE)
(defalias 'vc-default-responsible-p #[514 "\300\207" [nil] 3 (#$ . 72357)])
#@222 Provide the new `find-revision' op based on the old `checkout' op.
This is only for compatibility with old backends. They should be updated
to provide the `find-revision' operation instead.
(fn BACKEND FILE REV BUFFER)
(defalias 'vc-default-find-revision #[1028 "\300\301!!\302\303\304\305\306!\307\"\310$\216\311\312\313&\210rq\210\314!*\207" [make-temp-file expand-file-name make-byte-code 0 "\301\300!\207" vconcat vector [delete-file] 2 vc-call-backend checkout nil insert-file-contents-literally] 12 (#$ . 72546)])
#@24
(fn BACKEND OLD NEW)
(defalias 'vc-default-rename-file #[771 "\3001\f \301\"0\202 \210\302\"\210\303!\210r\304!q\210\305 )\207" [(error) add-name-to-file rename-file vc-delete-file find-file-noselect vc-register] 6 (#$ . 73086)])
(defalias 'vc-default-check-headers 'ignore)
#@16
(fn BACKEND)
(defalias 'vc-default-log-edit-mode #[257 "\300 \207" [log-edit-mode] 2 (#$ . 73376)])
#@16
(fn BACKEND)
(defalias 'vc-default-log-view-mode #[257 "\300 \207" [log-view-mode] 2 (#$ . 73484)])
#@20
(fn BACKEND REV)
(defalias 'vc-default-show-log-entry #[514 "\300!\207" [log-view-goto-rev] 4 (#$ . 73592)])
#@85 Return a string with all log entries stored in BACKEND for FILE.
(fn BACKEND FILE)
(defalias 'vc-default-comment-history #[514 "\300\301\"\205 r\302q\210\303\301C#\210\304 )\207" [vc-find-backend-function print-log "*vc*" vc-call-backend buffer-string] 6 (#$ . 73710)])
#@86 Let BACKEND receive FILE from another version control system.
(fn BACKEND FILE REV)
(defalias 'vc-default-receive-file #[771 "\300\301C\302%\207" [vc-call-backend register ""] 9 (#$ . 73991)])
#@63 Prompt for update buffers on `vc-retrieve-tag'.
(fn BACKEND)
(defalias 'vc-default-update-on-retrieve-tag #[257 "\300\207" [t] 2 (#$ . 74194)])
#@32
(fn BACKEND DIR NAME UPDATE)
(defalias 'vc-default-retrieve-tag #[1028 "\211C\300\230\203 \301\302\303\304\305\306 \"\307\"\310\311%\"\202M \312!\211;\203, \313\314\"\202K \315=\2055 \242\240\210\301\302\303\316\305\306\f \n#\317\"\310\311%\"\262\207" [#1="" vc-file-tree-walk make-byte-code 257 "\211\302!\303=\262\205' \3041% \305\300\306\307\310%\210\301\242\203\" \311\312\211#\210\3070\207\210\312\207" vconcat vector [vc-state up-to-date (error) vc-call-backend checkout nil #1# vc-resynch-buffer t] 7 "\n\n(fn F)" vc-tag-precondition error "File %s is locked" visited "\3031 \304\300\305\306\301%\210\302\242\203 \307\310\211#\210\3060\207\210\310\207" [(error) vc-call-backend checkout nil vc-resynch-buffer t]] 16 (#$ . 74345)])
#@35
(fn BACKEND FILE CONTENTS-DONE)
(defalias 'vc-default-revert #[771 "\211?\205\226 \303!\304!\206 p\305\306\"\210\307C\310!@\211\2039 \311\312\313$\210\314!\2049 \315\316\317 !\320\"\"\210\321\322\323\324\325\n#\326\"\327$\216\330\211\331\332!\321\322\333\324\325!\334\"\335$\216r\211q\210prq\210\336 !\337\n\340 \n%\210*\210)r\211q\210\341\342\211\342\322%\210*\266\342\240\210+\266\305\343\"\266\202\207" [coding-system-for-write coding-system-for-read default-directory vc-working-revision get-file-buffer message "Checking out %s..." t find-backup-file-name copy-file ok-if-already-exists keep-date file-writable-p set-file-modes logior file-modes 128 make-byte-code 0 "\302\205 \301\242\203 \304\302\300\305#\207 ?\205 \306\302!\207" vconcat vector [vc-make-backup-files rename-file ok-if-already-exists delete-file] 4 no-conversion generate-new-buffer " *temp file*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 file-name-directory vc-call-backend find-revision write-region nil "Checking out %s...done"] 16 (#$ . 75115)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias vc-default-revision-completion-table ignore vc-default-mark-resolved] 3)
#@42
(fn BACKEND DIR FILES UPDATE-FUNCTION)
(defalias 'vc-default-dir-status-files #[1028 "\211\300\301\"!\207" [mapcar #[257 "\211\300D\207" [up-to-date] 3 "\n\n(fn FILE)"]] 8 (#$ . 76335)])
#@50 Check if the current file has any headers in it.
(defalias 'vc-check-headers #[0 "\301\302!\303\"\207" [buffer-file-name vc-call-backend vc-backend check-headers] 3 (#$ . 76531) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias vc-string-prefix-p string-prefix-p nil make-obsolete "24.3"] 4)
#@125 Walk recursively through DIRNAME.
Invoke FUNC f ARGS on each VC-managed file f underneath it.
(fn DIRNAME FUNC &rest ARGS)
(defalias 'vc-file-tree-walk #[642 "\300\301!#\210\302\303\"\207" [vc-file-tree-walk-internal expand-file-name message "Traversing directory %s...done"] 7 (#$ . 76853)])
#@23
(fn FILE FUNC ARGS)
(defalias 'vc-file-tree-walk-internal #[771 "\300!\204 \301!\2054 \302#\207\303\304\305!\"\210\306!\307\310\311\312\313\314#\315\"\316\317%\320!\"\262\207" [file-directory-p vc-backend apply message "Traversing directory %s..." abbreviate-file-name file-name-as-directory mapcar make-byte-code 257 "\211\304\230\206# \211\305\230\206# \211 \235\206# \306\302\"\307!\206! \310\300\301#\262\207" vconcat vector [vc-directory-exclusion-list "." ".." expand-file-name file-symlink-p vc-file-tree-walk-internal] 6 "\n\n(fn F)" directory-files] 13 (#$ . 77157)])
(provide 'vc)
Mini Shell