Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
vc /
Delete
Unzip
Name
Size
Permission
Date
Action
add-log.elc
35.97
KB
-rw-r--r--
2023-06-07 04:15
compare-w.elc
9.89
KB
-rw-r--r--
2023-06-07 04:15
cvs-status.elc
21.51
KB
-rw-r--r--
2023-06-07 04:15
diff-mode.elc
63.77
KB
-rw-r--r--
2023-06-07 04:15
diff.elc
5.9
KB
-rw-r--r--
2023-06-07 04:15
ediff-diff.elc
35.48
KB
-rw-r--r--
2023-06-07 04:15
ediff-help.elc
11.36
KB
-rw-r--r--
2023-06-07 04:15
ediff-hook.elc
6.49
KB
-rw-r--r--
2023-06-07 04:19
ediff-init.elc
58.7
KB
-rw-r--r--
2023-06-07 04:15
ediff-merg.elc
9.68
KB
-rw-r--r--
2023-06-07 04:15
ediff-mult.elc
60.23
KB
-rw-r--r--
2023-06-07 04:15
ediff-ptch.elc
19.55
KB
-rw-r--r--
2023-06-07 04:15
ediff-util.elc
119.83
KB
-rw-r--r--
2023-06-07 04:15
ediff-vers.elc
5
KB
-rw-r--r--
2023-06-07 04:15
ediff-wind.elc
30.84
KB
-rw-r--r--
2023-06-07 04:15
ediff.elc
38.37
KB
-rw-r--r--
2023-06-07 04:15
emerge.elc
76.85
KB
-rw-r--r--
2023-06-07 04:15
log-edit.elc
32.25
KB
-rw-r--r--
2023-06-07 04:15
log-view.elc
18.21
KB
-rw-r--r--
2023-06-07 04:15
pcvs-defs.elc
15.6
KB
-rw-r--r--
2023-06-07 04:15
pcvs-info.elc
23.49
KB
-rw-r--r--
2023-06-07 04:15
pcvs-parse.elc
15.33
KB
-rw-r--r--
2023-06-07 04:15
pcvs-util.elc
24.08
KB
-rw-r--r--
2023-06-07 04:15
pcvs.elc
85.47
KB
-rw-r--r--
2023-06-07 04:15
smerge-mode.elc
37.72
KB
-rw-r--r--
2023-06-07 04:15
vc-annotate.elc
25.01
KB
-rw-r--r--
2023-06-07 04:15
vc-arch.elc
18.12
KB
-rw-r--r--
2023-06-07 04:15
vc-bzr.elc
41.49
KB
-rw-r--r--
2023-06-07 04:15
vc-cvs.elc
33.48
KB
-rw-r--r--
2023-06-07 04:15
vc-dav.elc
5.25
KB
-rw-r--r--
2023-06-07 04:15
vc-dir.elc
40.26
KB
-rw-r--r--
2023-06-07 04:15
vc-dispatcher.elc
16.33
KB
-rw-r--r--
2023-06-07 04:15
vc-git.elc
46.72
KB
-rw-r--r--
2023-06-07 04:15
vc-hg.elc
25.34
KB
-rw-r--r--
2023-06-07 04:15
vc-hooks.elc
31.95
KB
-rw-r--r--
2023-06-07 04:19
vc-mtn.elc
13.72
KB
-rw-r--r--
2023-06-07 04:15
vc-rcs.elc
35.34
KB
-rw-r--r--
2023-06-07 04:15
vc-sccs.elc
15.26
KB
-rw-r--r--
2023-06-07 04:15
vc-svn.elc
21.91
KB
-rw-r--r--
2023-06-07 04:15
vc.elc
68.74
KB
-rw-r--r--
2023-06-07 04:15
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:15:38 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\301\303!\210\304\305\"\204 \306B\307\310\311\312\313\314%\210\315\316\317\320\321DD\322\323\324\313\310&\210\325\316\326\327#\210\315\330\317\320\331DD\332\323\333\313\310\334\335& \210\315\336\317\320\337DD\340\323\341\313\310&\210\315\342\317\320\343DD\344\323\345\313\310&\210\315\346\317\320\347DD\350\323\351\313\310&\210\315\352\317\320\353DD\354\323\355\313\310\334\356& \210\315\357\317\320\360DD\361\323\362\313\310&\210\315\363\317\320\364DD\365\323\366\313\310&\210\315\367\317\320\370DD\371\323\372\313\310\334\373& \210\315\374\317\320\375DD\376\323\377\313\310\334\356& \210\315\201@ \317\320\201A DD\201B \323\377\201C \201D \313\310& \210\315\201E \317\320\201F DD\201G \323\377\313\310&\210\315\201H \317\320\201I DD\201J \323\324\313\310\334\201K & \210\315\201L \317\320\201M DD\201N \323\201O \313\310&\210\315\201P \317\320\201Q DD\201R \323\201S \313\310&\207" [minor-mode-alist require vc-hooks vc-dispatcher 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-initial-comment funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, prompt for initial comment when a file is registered." :type boolean make-obsolete-variable "it has no effect." "23.2" vc-default-init-revision #[0 "\300\207" ["1.1"] 1 "1.1\n\n(fn)"] "A string used as the default revision number when a new file is registered.\nThis can be overridden by giving a prefix argument to \\[vc-register]. This\ncan also be overridden by a particular VC backend." string :version "20.3" vc-checkin-switches #[0 "\300\207" [nil] 1 "\n\n(fn)"] "A string or list of strings specifying extra switches for checkin.\nThese are passed to the checkin program by \\[vc-checkin]." (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1="") string)) vc-checkout-switches #[0 "\300\207" [nil] 1 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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)) "21.1" vc-diff-knows-L #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Indicates whether diff understands the -L option.\nThe value is either `yes', `no', or nil. If it is nil, VC tries\nto use -L and sets this variable to remember whether it worked." (choice (const :tag "Work out" nil) (const yes) (const no)) vc-log-show-limit #[0 "\300\207" [2000] 1 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "Normal hook (list of functions) run after checking out a file.\nSee `run-hooks'." hook vc-checkin-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "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 "\n\n(fn)"] "Normal hook (list of functions) run before a commit or a file checkin.\nSee `run-hooks'." vc-revert-show-diff #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil, `vc-revert' shows a `vc-diff' buffer before querying." "24.1" vc-static-header-alist #[0 "\300\207" [(("\\.c\\'" . "\n#ifndef lint\nstatic char vcid[] = \"%s\";\n#endif /* lint */\n"))] 1 "\n\n(fn)"] "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 "\n\n(fn)"] "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")))] 10) #@178 VC sets this to t locally to disable some async diff operations. Backends that offer asynchronous diffs should respect this variable in their implementation of vc-BACKEND-diff. (defvar vc-disable-async-diff nil (#$ . 6073)) #@41 Clear all cached file properties. (fn) (defalias 'vc-clear-context #[0 "\301\302\"\207" [vc-file-prop-obarray fillarray 0] 3 (#$ . 6303) 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 (#$ . 6455)])) (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 "\300\301\302\303\304\305\306!\307\"\310\311%D\215\207" [found funcall make-byte-code 0 " \211\203# \211@\303\304\300#\204 \303\305\300#\203 \306\307\"\210A\266\202\202 \210\310 \211\203? \211@\311\312\"\2038 \211B\262A\266\202\202& \210\211\262\313\314\315\316\300\"\317\320\"\310\321$!\322\300!\323\315\324\"\n\321\310\325\326\327\330\331 !\332\"\333\334%&\262\211\303\312\"\210)\306\307\"\207" vconcat vector [vc-handled-backends default-directory vc-call-backend registered responsible-p throw found 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)"] 15 "\n\n(fn)"] 9 (#$ . 7424)]) #@269 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. (fn FILE) (defalias 'vc-responsible-backend #[257 "\300!\204\f \301!\206$ \302\303\304\305\306\307\310!\311\"\312\313%D\215\206$ \314\315\"\207" [file-directory-p vc-backend found funcall make-byte-code 0 " \211\205 \211@\302\303\300#\203 \304\305\"\210A\266\202\202 \207" vconcat vector [vc-handled-backends vc-call-backend responsible-p throw found] 6 "\n\n(fn)" error "No VC backend is responsible for %s"] 9 (#$ . 8688)]) #@148 Expands directories in a file list specification. Within directories, only files already under version control are noticed. (fn FILE-OR-DIR-LIST) (defalias 'vc-expand-dirs #[257 "\300C\211\2034 \211@\301!\203 \302\303\304\305\306\307 !\310\"\311\312%\"\210\301!\204- @B\240\210A\266\202\202 \210\211@\237\207" [nil file-directory-p vc-file-tree-walk make-byte-code 257 "\301!\205\f \300\300@B\240\207" vconcat vector [vc-backend] 4 "\n\n(fn F)"] 12 (#$ . 9390)]) (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#\203, \316\f!\207 \2054 \317!\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 vc-responsible-backend vc-backend buffer-file-name] 4 "\n\n(fn)"]) #@739 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. 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 "\302\303\304!\203 \305!\202\243 \303\306!\203\" \203 \307 \202\243 \310\311!\202\243 \312!\211\262\203G \203@ \211CC\313!\314\"\257\202\243 \211CD\202\243 \315 !\203i \300 !\204^ r q\210\303\304!)\203i q\210\316#\202\243 \204u \310\317\320 \"\202\243 \203\240 \321!\204\240 \203\226 \322\300 !CC\205\220 \323\302\257\202\243 \322\300 !CD\202\243 \310\324!\207" [buffer-file-name vc-parent-buffer 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 "Buffer %s is not associated with a file" buffer-name vc-registered vc-backend-for-registration unregistered "No fileset is available here"] 11 (#$ . 10312)]) (defalias 'vc-dired-deduce-fileset #[0 "\303!\211\204 \304\305!\210\211\306\307\211\211C\307\262\307\262\310 \307\212eb\210\311\307\306#\205, \312 \262\211??\262\211\203^ \211b\210\313\307\306\"@B\240\210\211b\210\314y\210\211\307\211\223\210\311\307\306#\205Y \312 \262\2023 )\203h @\202m \313\307\306\"C\266\202*\266\204\315 \210D\207" [default-directory case-fold-search inhibit-read-only vc-responsible-backend error "Directory not under VC" t nil dired-marker-regexp re-search-forward point-marker dired-get-filename 1 dired-move-to-filename] 12 "\n\n(fn)"]) #@75 Make sure that the current buffer visits a version-controlled file. (fn) (defalias 'vc-ensure-vc-buffer #[0 "\302\303!\203\f \304\305 !q\207\203\" \306!\203\" p=\204\" q\210\202\f \204, \307\310\311 \"\207\312 !?\2057 \307\313 \"\207" [vc-parent-buffer buffer-file-name derived-mode-p vc-dir-mode find-file-noselect vc-dir-current-file buffer-live-p error "Buffer %s is not associated with a file" buffer-name vc-backend "File %s is not under version control"] 3 (#$ . 12480)]) #@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 (#$ . 12970)]) (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\235\205 \211\301\235\207" [(edited added removed) (edited added removed)] 4 (#$ . 13271)]) #@1161 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. If the variable `vc-keep-workfiles' is non-nil (the default), 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 "\304\305\306\307#\211@A@\3108\3118\312=\203 \313\314!\202,\315=\203( \313\316!\202,\2032 \317=\203: \320\305\"\202,\321=\204J \203\274 \322=\203\274 \203\230 \323\324!\211\227\211\325\326\"\235\203y \327!\211\205r \211@\330\"\210A\266\202\202` \262\262\202\223 \211\205\221 \211@\331\332=#\210A\266\202\202z \262\266\202\202,\211\332=\204\266 \211\205\261 \211@\331\306\"\210A\266\202\202\237 \262\202,\333\334!\202,\335\336\"\203\240\337>\203 \211\203\211@\340!\203\341!\204\342\343\344\"!\204\352 \313\345!\210\346\347\350\351\352\353\354!\355\"\356\357%D\313\347\360\346EDC\217\210\361!\211\203r\211q\210\362\363!\210)\210A\266\202\202\313 \210\212\211\203N\211@\361!\332=\204F\364!\203F\211\203<\365 \204F\366!\210\367\"\262\210A\266\202\202 \210)\211\204Z\333\370!\202\233\204g\371\"\202\233\323\372!\211\227\211\325\373\"\235\203\223\374!\211\205\214\211@\330\"\210A\266\202\202z\262\262\202\231\371#\266\202\262\202,;\203\317\211\205\312\211@\375 \203\274\323\343\376\"!\202\277\377!#\210A\266\202\202\246\262\202,\201@ =\203\340\201A \"\202,\322=\203*\211\205%\211@\201B \343\201C \201D !\"!\203 \331\332=\306#\210\202 \332=\204 \201B \201E !\203 \331\306\"\210A\266\202\202\347\262\202,\201F =\203f\211\205a\211@\201B \343\201G \201D !\"!\203Z\201H \201I \201J #\"\210A\266\202\2023\262\202,\201K =\203&\211\205!\211@ \232\204\201\201L !\210\201M \347\350\351\201N \353\354!\201O \"\201P \357%DC\216\201Q \305 @\n\211A@)CBB\377!\305$\210eb\210\306\343\201R \"c\210)\201S \210\201B \201T !)\262\203\373\201I \201U #\210\201V \210\201W !\210\201X !\210\201Y \"\210\202\201B \201Z !\204\313\201[ !\210\202\201\\ \306\211\"\210\331\306\"\210A\266\202\202o\262\202,\313\201] \"\207" [vc-handled-backends buffer-file-name x inhibit-read-only vc-deduce-fileset nil t state-model-only-files 3 4 missing error "Fileset files are missing, so cannot be operated on" ignored "Fileset files are ignored by the version-control system" unregistered vc-register up-to-date 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 implicit 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" #1=#:err funcall make-byte-code 0 "\301\300\302\303\300!\304\"\"\207" vconcat vector [set-file-modes logior file-modes 128] 5 "\n\n(fn)" #[257 "\300\301!\207" [error "Unable to make file writable"] 3 "\n\n(fn IGNORED)"] get-file-buffer read-only-mode -1 vc-workfile-unchanged-p buffer-modified-p 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 conflict vc-mark-resolved yes-or-no-p "%s is not up-to-date. Get latest revision? " file-name-nondirectory "Lock this revision? " needs-merge "%s is not up-to-date. Merge in changes now? " vc-maybe-resolve-conflicts vc-call-backend merge-news unlocked-changes find-file-other-window current-window-configuration "\301\300!\207" [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 vc-clear-headers write-file vc-mode-line "Revert to checked-in revision, instead? " "Checkout aborted" vc-revert-buffer-internal "Fileset is in an unknown state %s"] 18 (#$ . 13483) "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 (#$ . 18431) (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)]) #@722 Register into a version control system. If VC-FILESET is given, register the files in that fileset. Otherwise register the current file. With prefix argument SET-REVISION, allow user to specify initial revision level. 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 SET-REVISION VC-FILESET COMMENT) (defalias 'vc-register #[768 "\206 \301\302\303\"\211@A@\211\211\203e \211@\304!\204 \262\305!\203; \306!\2031 \307\310!\210\202; \311\312!\204; \307\313!\210\211\203] r\211q\210\314 \204Y \315\316 !\203Y \317!\204Y \320\303!\210\321 \210)\210A\266\202\202 \210\322\323\"\210\324\325\"\210\326\327 \203\203 \330\331\332\"!\202\210 \326\333\"%\210\324\334\335\336\337\340!\341\"\342\343%\"\210\344\345!\203\246 \346 \210\322\347\"\207" [buffer-file-name vc-deduce-fileset nil t get-file-buffer vc-backend vc-registered error "This file is already registered" y-or-n-p "Previous master file has vanished. Make a new one? " "Aborted" buffer-modified-p zerop buffer-size file-exists-p set-buffer-modified-p vc-buffer-sync message "Registering %s... " mapc vc-file-clearprops vc-call-backend register read-string format "Initial revision level for %s: " init-revision make-byte-code 257 "\302\303\300#\210\304 \305#\207" vconcat vector [vc-keep-workfiles 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"] 14 (#$ . 18799) "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 (#$ . 20675) "SBackend: "]) #@242 Retrieve a copy of the revision REV of FILE. If WRITABLE is non-nil, make sure the retrieved file is writable. REV defaults to the latest revision. After check-out, runs the normal hook `vc-checkout-hook'. (fn FILE &optional WRITABLE REV) (defalias 'vc-checkout #[769 "\203! \211\204! \303\304!\305#\203! \306!)\307=\203! \310!\210\304!\311C\312\312\262C\211\203n \211@\313!\203b \314 \211\203^ \211@\315!\211\203V \316\"\203V \211B\262\210A\266\202\202< \210\202g \211B\262A\266\202\202. \210\317\320\321\322\323\324\325\f\f\f\f$\326\"\327\330%D\331\320\321\332\333\324\325\"\334\"\335\336%\317EDC\217\210\211\211\203\367 \211@\306\337C\"\340=\204\264 \204\305 \303\341#\203\301 \307\202\306 \342\202\306 \343B\344\345\346!8BD\211\203\357 \211@\211@\211 >\204\347 \347\350\n\"A#\210\210A\266\202\202\317 \210A\266\202\202\235 \210)\266\351\311\211#\210\352\353!\207" [file 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 #1=#:err funcall make-byte-code 0 "\304\303\305\300\301\302%\207" vconcat vector [vc-call-backend checkout] 6 "\n\n(fn)" file-error 257 "\301\203 \302\300!\211\203 r\211q\210\303\304!\210)\210\305@A\"\207" [get-file-buffer read-only-mode -1 signal] 4 "\n\n(fn ERR)" vc-checkout-model implicit latest-on-branch-p needs-update edited vc-checkout-time 5 file-attributes put intern vc-resynch-buffer run-hooks vc-checkout-hook] 17 (#$ . 20943)]) (defalias 'vc-mark-resolved #[514 "\302C\303\303\262\211\203I \211@\304!\203= \305 \211\2039 \211@\306!\211\2031 \307\"\2031 \211B\262\210A\266\202\202 \210\202B \211B\262A\266\202\202 \210\310\311#\210\211\211\205\200 \211@\312\211\203x \211@\211@\211>\204p \313\314 \"A#\210\210A\266\202\202X \210A\266\202\202Q \262)\266\202\315\316\317!G\320V\203\230 \321\322G\"\202\231 \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 "\n\n(fn BACKEND FILES)"]) #@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\303\303\262C\211\203o \211@\315!\203c \316 \211\203_ \211@\317!\211\203W \320\"\203W \211B\262\210A\266\202\202= \210\202h \211B\262A\266\202\202/ \210\321\322!\323$\210\211\211\203\254 \211@\324\211\203\244 \211@\211@\211>\204\234 \325\326 \"A#\210\210A\266\202\202\204 \210A\266\202\202} \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 (#$ . 23295)]) #@568 Check in FILES. The optional argument REV may be a string specifying the new revision level (strongly deprecated). 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. If `vc-keep-workfiles' is nil, FILE is deleted afterwards, provided that the version control system supports this mode of operation. Runs the normal hooks `vc-before-checkin-hook' and `vc-checkin-hook'. (fn FILES BACKEND &optional REV COMMENT INITIAL-CONTENTS) (defalias 'vc-checkin #[1282 "\203 \301\300!\210\302\303\304\305\306\307\310\311!\312\"\313\314%\305\315\316\310\311\"\317\"\320\321%\322\f& \207" [vc-before-checkin-hook run-hooks 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 "\n\n(fn)" 514 "\304\305\306!\"\210\211\203 \307\310\"\204 \311\262\312C\313\313\262\211\203^ \211@\314!\203R \315 \211\203N \211@\316!\211\203F \317\"\203F \211B\262\210A\266\202\202, \210\202W \211B\262A\266\202\202 \210\320\300\321\301%\210\322\323\"\210\211\211\203\250 \211@\324\325\326\327!8B\330BB\211\203\240 \211@\211@\211\n>\204\230 \331\332 \"A#\210\210A\266\202\202\200 \210A\266\202\202o \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 5 file-attributes ((vc-working-revision)) put intern "Checking in %s...done"] 13 "\n\n(fn FILES COMMENT)" vc-checkin-hook] 19 (#$ . 24473)]) #@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 (#$ . 26298)) #@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 (#$ . 26762)]) #@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 (#$ . 27175)]) (defalias 'vc-diff-switches-list '(macro . #[257 "\300\301D\302BB\207" [vc-switches quote ('diff)] 4 "\n\n(fn BACKEND)"])) (make-obsolete 'vc-diff-switches-list 'vc-switches "22.1") (defalias 'vc-diff-finish #[514 "\301!\205I \302\303\"\304\305!!rq\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 zerop buffer-size ".\n" message "%s" diff-setup-whitespace shrink-window-if-larger-than-buffer "%sdone"] 7 "\n\n(fn BUFFER MESSAGES)"]) #@62 If non-nil, diff added files by comparing them to /dev/null. (defvar vc-diff-added-files nil (#$ . 28633)) #@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\262\211A@)\307\310\311!\"\307\312\206 \313\206! \314#B\203. \315@!\202/ \316\317!\210\320\321@\"\210\n\203\217 \322\211\211\203\210 \211@\323!\204V \324!\325\230\204^ \211B\262\202\201 \204h \203p \326\327\"\210\202\201 \330\331\332\333\334\335\322\336\"\337\"&\210A\266\202\202B \210\211\237\262)\210? \340@\336 &\210)q\210\341 \210\342\305!\210@\342\343!\210\344\345\346\n\347 D\n\n\n\257E#\350/\351\352 !\203\343 \353p!\204\343 \320\321A\"\210\322\202\366 \354p!\210\355\356p\347\205\361 DE!\210\350)\207" [x coding-system-for-read vc-diff-added-files process-file-side-effects vc-disable-async-diff diff-vc-backend "*vc-diff*" format "Finding changes in %s..." vc-delistify "No changes between %s and %s" "working revision" "workfile" vc-coding-system-for-diff undecided vc-setup-buffer message "%s" nil file-directory-p vc-working-revision "0" error "No revisions of %s exist" apply vc-do-command 1 "diff" append vc-switches diff ("/dev/null") vc-call-backend diff-mode make-local-variable revert-buffer-function lambda (ignore-auto noconfirm) vc-diff-internal quote t zerop buffer-size get-buffer-process pop-to-buffer vc-exec-after vc-diff-finish buffer-read-only] 22 (#$ . 28747)]) (defalias 'vc-read-revision #[1281 "\204 \301\302!\211\211A@)\262\211@\262\210\202! \204! \303@!\262\304\305#\211\203; \306\307\211\307 &\202C \310\307$\207" [x vc-deduce-fileset t vc-backend vc-call-backend revision-completion-table completing-read nil read-string] 14 "\n\n(fn PROMPT &optional FILES BACKEND DEFAULT INITIAL-INPUT)"]) #@64 Build argument list for calling internal diff functions. (fn) (defalias 'vc-diff-build-argument-list-internal #[0 "\302\303!\211\211A@)@@\304\211G\305U\203Y \306!\204Y \307 !)\310=\204/ \311!\262\202Y \312\313\314\315\316\317\320\n\n\"\321\"\322\323%D\324\313\325\312EDC\217\262\326\230\203T \304\262\311!\262\203d \327\330Q\202e \331\332\206k \333\330Q\334$\334 $\326\230\203\210 \304\262\211\326\230\203\221 \304\262E\266\204\207" [x file vc-deduce-fileset t nil 1 file-directory-p vc-state up-to-date vc-working-revision #1=#:err funcall make-byte-code 0 "\302\300\303\301\304\301!$\207" vconcat vector [vc-call-backend previous-revision vc-working-revision] 6 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] "" "Older revision (default " "): " "Older revision: " "Newer revision (default " "current source" vc-read-revision] 15 (#$ . 30689)]) #@96 Report diffs between revisions of the fileset in the repository history. (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 (#$ . 31596) (vc-diff-build-argument-list-internal)]) #@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 (#$ . 31965) (list current-prefix-arg t)]) #@112 Show differences between revisions of the fileset in the repository history using ediff. (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 (#$ . 32620) (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 \302\303!\207\203 \304!\210\303\305\306!\211A@)\307\211#\207" [buffer-file-name x call-interactively vc-version-ediff vc-buffer-sync vc-deduce-fileset t nil] 7 (#$ . 33216) (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\306\262\203( \307\310 #\262\202? \311\312!\262\313!\262\203; \202? \314\315!\210\316!\262\317\320CE\306\211\321\322!%*\207" [buffer-file-name default-directory call-interactively vc-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 (#$ . 33830) (list current-prefix-arg t)]) #@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 (#$ . 34819) (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 "\303\"\304!\206 p\303\305#\306!\204\252 \306!\203% \307\310#\210\202\252 \311\312\"\210rq\210\313C\314\315\316\317\320\321\"\322\"\323\324%DC\216\325\211\326\327\330!!\314\315\316\331\320\321!\332\"\323\324%DC\216r\211q\210prq\210\203z \333\334\f\f%\210\202\207 \333\335 !\334\f\f%\210)\210)r\211q\210\336\310\211\310\316%\210*\266\211\310\240\210+\210\337!\210)\311\340\"\210\341!r\211q\210\342\302!\210)\211\262\207" [coding-system-for-write coding-system-for-read vc-parent-buffer vc-version-backup-file-name get-file-buffer manual file-exists-p rename-file nil message "Checking out %s..." t funcall make-byte-code 0 "\301@\205 \302\300!\205 \303\300!\207" vconcat vector [file-exists-p delete-file] 2 "\n\n(fn)" no-conversion get-buffer-create generate-new-buffer-name " *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 (#$ . 35410)]) #@166 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'. (fn) (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 (#$ . 36633) nil]) #@131 Clear all version headers in the current buffer (or FILE). The headers are reset to their non-expanded form. (fn &optional FILE) (defalias 'vc-clear-headers #[256 "\211\206 \301!\302!\303\304\"\2054 \203' \305 \212\306\304\"\210)\307!\262\2024 \310!q\210\306\304\"\210\311!\207" [buffer-file-name find-buffer-visiting vc-backend vc-find-backend-function clear-headers vc-buffer-context vc-call-backend vc-restore-buffer-context find-file-noselect kill-buffer] 8 (#$ . 37425)]) #@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\314%\305\315\316\310\311 \"\317\"\320\321%&\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 "\n\n(fn)" 514 "\302\301\303\300%\207" [vc-call-backend modify-change-comment] 8 "\n\n(fn FILES COMMENT)"] 18 (#$ . 37921)]) #@642 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. (fn) (defalias 'vc-merge #[0 "\301\302!\211@\211A@)\303\304\"\203 \305\304\"\202\311 \303\306\"\203\305 \307 \210\211\211\205\300 \211@\310!\311\211\211;\203@ \312\313#\210\202a \314!\211\205W \315C\"\316=\206W \310!\317>\266\202\204a \320\302\"\210\321\322\323\324RC\n#\262\325\230\203\202 \305\326#\262\202\261 \327!\204\234 \321\330C\n\311\331!\332P%\262\202\244 \262\331!\262\305\306%\262\333\334\335$\266A\266\202\202$ \262\202\311 \312\336\"\207" [x 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 vc-read-revision "Merge " " from branch or revision " "(default news on current branch): " "" merge-news vc-branch-p "Second revision: " vc-branch-part "." vc-maybe-resolve-conflicts "WORKFILE" "MERGE SOURCE" "Sorry, merging is not implemented for %s"] 17 (#$ . 38480) nil]) (defalias 'vc-maybe-resolve-conflicts #[1026 "\300\301\302 ?#\210\303!\203 \304\305!\207\306\307!\210\304\310!\207" [vc-resynch-buffer t buffer-modified-p zerop message "Merge successful" smerge-mode 1 "File contains conflicts."] 8 "\n\n(fn FILE STATUS &optional NAME-A NAME-B)"]) (defalias 'vc-resolve-conflicts 'smerge-ediff) #@62 Visit the next conflicted file in the current project. (fn) (defalias 'vc-find-conflicted-file #[0 "\203\n \302!\206 \303 !\206 \304\305!\306\307 #\211@\232\203# \211A\262\211\204- \310\311!\202C \312\211A\262@!\210\310\313\203A G\202B \314\"\207" [buffer-file-name default-directory vc-backend vc-responsible-backend error "No VC backend" vc-call-backend conflicted-files message "No more conflicted files" find-file "%s more conflicted files after this one" "No"] 5 (#$ . 40460) 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\301\302\303\304\305\306\307\"\310\"\311\312%D\215\207" [nil vc-locked-example funcall make-byte-code 0 "\302\300\303\304\305\306\307\301!\310\"\311\312%\"\210\301@\207" vconcat vector [vc-file-tree-walk make-byte-code 257 "\211\302 !)\303=\204 \304\305\"\207\306!\205 \300\307\240\207" vconcat vector [file vc-state up-to-date throw vc-locked-example get-file-buffer visited] 4 "\n\n(fn F)"] 8 "\n\n(fn)"] 11 (#$ . 40966)]) #@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 (#$ . 41743) (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)]) #@298 Descending recursively from DIR, retrieve the tag called NAME. If NAME is empty, it refers to the latest revisions. 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). (fn DIR NAME) (defalias 'vc-retrieve-tag #[514 "\300\301!\203 \302\230\203 \303\304\305!\"\202 \303\306\305!\"\307\310\"\210\311\312!\313%\210\314\315\211\211$\210\307\310\316P\"\207" [yes-or-no-p "Update any affected buffers? " "" format "Updating %s... " abbreviate-file-name "Retrieving tag into %s... " message "%s" vc-call-backend vc-responsible-backend retrieve-tag vc-resynch-buffer t "done"] 10 (#$ . 42702) (byte-code "\301\302!\303\"\211\304=\203 \202 \305\306\211\307$\310\311!D\207" [default-directory vc-call-backend vc-responsible-backend revision-granularity repository read-directory-name "Directory: " t read-string "Tag name to retrieve (default latest revisions): "] 6)]) #@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) (#$ . 43705)) (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\301\306_%\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 "\n\n(fn WORKING-REVISION IS-START-REVISION LIMIT PL-RETURN)"]) (defalias 'vc-print-log-internal #[1283 "\301\211\302\301\211\203 \211@\303!\203 \304\262A\266\202\202 \210\203' \305>\202* \306>??\262\2036 \307\2027 \310\262\311\n \312\313\314\315\316 $\317\"\320\321%\312\322\323\315\316#\324\"\325\326%\312\327\330\315\316!\331\"\332\333%\312\334\335\315\316%\336\"\325\337%&\262\207" [vc-log-short-style nil "*vc-change-log*" file-directory-p t directory file 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 "\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 "\305\300\301\302\303\304%\207" [vc-print-log-internal] "\n\n(fn IGNORE-AUTO NOCONFIRM)"] 28 "\n\n(fn BACKEND FILES WORKING-REVISION &optional IS-START-REVISION LIMIT)"]) #@56 Set this to differentiate the different types of logs. (defvar vc-log-view-type nil (#$ . 45722)) (put 'vc-log-view-type 'permanent-local t) (defalias 'vc-log-internal-common #[2056 "\305r\306!q\210\307\300!\210) \n$\262\310!\210\311\312 \313\"\210\307\302!\210\307\303!\210\307\304!\210)\314\315\316\317\320D\320D\320 D\320D\257\321\317\320 D\320DE\322BBBBB!\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 pop-to-buffer t vc-call-backend log-view-mode vc-exec-after let ((inhibit-read-only t)) funcall quote (shrink-window-if-larger-than-buffer) ((setq vc-sentinel-movepoint (point)) (set-buffer-modified-p nil))] 18 "\n\n(fn BACKEND BUFFER-NAME FILES TYPE BACKEND-FUNC SETUP-BUTTONS-FUNC GOTO-LOCATION-FUNC REV-BUFF-FUNC)"]) (defalias 'vc-incoming-outgoing-internal #[1028 "\300\301\302\303\304\305\306\f!\307\"\310\311%\312\313\302\314\315\305\306$\316\"\317\320%&\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)"] #[257 "eb\207" [] 2 "\n\n(fn BK)"] 514 "\304\300\301\302\303$\207" [vc-incoming-outgoing-internal] 7 "\n\n(fn IGNORE-AUTO NOCONFIRM)"] 21 "\n\n(fn BACKEND REMOTE-LOCATION BUFFER-NAME TYPE)"]) #@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 "\301\302!\211@\211A@)\206 \303@!\304\305 %\207" [x vc-deduce-fileset t vc-working-revision vc-print-log-internal nil] 13 (#$ . 47130) (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 "Log from revision (default: last revision): " nil string-to-number "Limit display (unlimited: 0): " format "%s" "" 0] 8)]) #@290 List the change log 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. (fn &optional LIMIT) (defalias 'vc-print-root-log #[256 "\301 \302\211\302\262\203 \303\304#\262\202/ \305\306!\262\307!\262\203+ \202/ \310\311!\210\312!\262\313C\302 %)\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" vc-working-revision vc-print-log-internal] 11 (#$ . 48032) (byte-code "\203 \302\303\304\305\306 \"\307\211\211%!\211\310X\203 \307\262\211C\207 \310V\205# C\207" [current-prefix-arg vc-log-show-limit string-to-number read-from-minibuffer "Limit display (unlimited: 0): " format "%s" nil 0] 7)]) #@200 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\304\305$\207" [vc-deduce-backend error "Buffer is not version controlled" vc-incoming-outgoing-internal "*vc-incoming*" log-incoming] 7 (#$ . 48984) (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\304\305$\207" [vc-deduce-backend error "Buffer is not version controlled" vc-incoming-outgoing-internal "*vc-outgoing*" log-outgoing] 7 (#$ . 49522) (byte-code "\205 \301\302!C\207" [current-prefix-arg read-string "Remote location (empty for default): "] 2)]) #@207 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). (fn) (defalias 'vc-revert #[0 "\304 \211\211A@)\305\211C\203 \306 >\203 \307\305!\210\211\203X \211@\310!\211\2032 \311!\2032 \312\313!\210\210\211\314 !)\315=\203Q \316\317\320\"!\203M \321\262\202Q \312\322!\210A\266\202\202 \210\323\324\325\326\327\330!\331\"\332\333%DC\216\n\203\202 \211\334\335!\240\210\336 \305\211\211@&\202\204 ?\203\266 \316\317\337\340!GG\341W\203\234 \202\253 \317\342\211\343U\203\251 \344\202\252 \345#\266\202\"!\204\266 \312\322!\210)\211\205\331 \211@\346\347\340!\"\210\350!\210\346\351\340!\"\210A\266\202\202\270 \262\207" [x file 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" funcall make-byte-code 0 "\300@\205 \301\300@!\207" vconcat vector [quit-windows-on] 2 "\n\n(fn)" 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 (#$ . 50053) nil]) #@198 Roll back (remove) the most recent changeset committed to the repository. This may be either a file-level or a repository-level operation, depending on the underlying version-control system. (fn) (defalias 'vc-rollback #[0 "\304 \211@\211A@)\305\306\"\307\310\"\204 \311\312\"\210\211\313=\204+ G\314U\204+ \311\315!\210\305\316@#\2048 \311\317!\210\203C \320 >\203G \321\322!\210\211\203p \211@\323\324!!\203Z \311\325!\210\211\326 !)\327=\204i \311\330!\210A\266\202\202H \210\331\332!\210\333 \210\334\335!\210\336@!\305\337@$\340\322$\266\341\342!\204\232 \311\343!\210\344\332!\210\334\345\346!\"\210\347C\322\322\262\211\203\356 \211@\350!\203\342 \351 \211\203\336 \211@\320!\211\203\326 \352\"\203\326 \211B\262\210A\266\202\202\274 \210\202\347 \211B\262A\266\202\202\256 \210\305\310#\210\211\211\2032\211@\326\327B\353\354\355!8B\356BB\211\203*\211@\211@\211\n>\204\"\357\360 \"A#\210\210A\266\202\202\n\210A\266\202\202\367 \210)\266\211\203J\211@\361\347\211#\210A\266\202\2027\210\334\362\346!\"\207" [x file vc-touched-properties vc-file-prop-obarray vc-deduce-fileset vc-call-backend revision-granularity vc-find-backend-function rollback error "Rollback is not supported in %s" repository 1 "Rollback requires a singleton fileset or repository versioning" latest-on-branch-p "Rollback is only possible at the tip revision" buffer-file-name vc-buffer-sync nil buffer-modified-p get-file-buffer "Please kill or save all modified buffers before rollback" vc-state up-to-date "Please revert all modified workfiles before rollback" vc-setup-buffer "*vc-diff*" not-modified message "Finding changes..." vc-working-revision previous-revision vc-diff-internal yes-or-no-p "Discard these revisions? " "Rollback canceled" quit-windows-on "Rolling back %s..." vc-delistify t file-directory-p buffer-list string-prefix-p vc-checkout-time 5 file-attributes ((vc-working-revision)) put intern vc-resynch-buffer "Rolling back %s...done"] 16 (#$ . 51461) 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) #@620 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. 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 "\302\303!\211@\211A@)\304\305\"\203 \306\305#\202\225 \304\307\"\203d \310\311\312\313\314\315\316!\317\"\320\321%\"\210\211\211\205_ \211@\211\322 !)\323=\203N \324\311\303#\210\202X \325\306\307#\"\210A\266\202\2024 \262\202\225 \326\"\327=\203\221 \211\211\205\214 \211@\211\322 !)\323=\203\205 \324\311\303#\210A\266\202\202n \262\202\225 \330\331\"\207" [x file 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 "\n\n(fn)" vc-state up-to-date vc-checkout vc-maybe-resolve-conflicts vc-checkout-model locking error "VC update is unsupported for `%s'"] 13 (#$ . 53613) "P"]) (defalias 'vc-update 'vc-pull) #@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 (#$ . 55069)]) #@81 Revert FILE back to the repository working revision it was based on. (fn FILE) (defalias 'vc-revert-file #[257 "\302C\303\303\262C\211\203J \211@\304!\203> \305 \211\203: \211@\306!\211\2032 \307\"\2032 \211B\262\210A\266\202\202 \210\202C \211B\262A\266\202\202\n \210\310!\211\203\\ \311\312#\210\313!\210\314\315!\316$\266\211\211\203\237 \211@\317\320\321\322!8BD\211\203\227 \211@\211@\211>\204\217 \323\324 \"A#\210\210A\266\202\202w \210A\266\202\202h \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 5 file-attributes put intern vc-resynch-buffer] 12 (#$ . 55562)]) #@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 (#$ . 56434) (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\242 \317\"\210\320!\205S \321!\211\205[ \322 !\323\324\325\326\327\330 #\331\"\332\333%DC\216\203\225 \334\n\335#\210\211\203\212 \334 \335\336$\210\202\225 \306\337!\203\225 \340\n!\210\304 \341\f$\210)\266\203\274 \317\"\210\304\342 #\262\304\343 #\210\317\"\210\204\313 \205\343 \344\302\345#\210\346\"\210\347\310\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 funcall make-byte-code 0 "\302\205$ \303\300\301\"\210\304\301\300C\"\305=\204 \306\300\307\310#\210\311\302\300\312#\210\313\300\314\310#\207" vconcat vector [vc-switch-backend vc-checkout-model implicit vc-checkout t nil rename-file ok-if-already-exists vc-file-setprop vc-checkout-time] 4 "\n\n(fn)" 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] 19 (#$ . 57727)]) #@106 Rename OLDMASTER to be the master file for NEWFILE based on TEMPLATES. (fn OLDMASTER NEWFILE TEMPLATES) (defalias 'vc-rename-master #[771 "\300\301!!C\300!\206 \302\303!\304\305\306\307\310\311\"\312\"\313\314%\"\315!\2042 \315\300!!\2036 \316\317!\210\320\321\322\305\323\324\310\311\f\n\"\325\"\313\326%D\215\"\207" [file-name-directory expand-file-name "" file-name-nondirectory mapcar make-byte-code 257 "\302\300\301#\207" vconcat vector [vc-possible-master] 5 "\n\n(fn S)" file-symlink-p error "This is unsafe in the presence of symbolic links" rename-file found funcall 0 "\301\211\203\" \211@\211\203 \302\303!!\300@\230\203 \304\305\"\210A\266\202\202 \210\301\211\203I \211@\211\203B \300\302!\240\203= \306\300@!\203B \304\305\"\210A\266\202\202$ \210\307\310!\207" [file-name-directory expand-file-name throw found file-directory-p error "New file lacks a version control directory"] "\n\n(fn)"] 18 (#$ . 59624)]) #@75 Delete file and mark it as such in the version control system. (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 (#$ . 60584) "fVC delete file: "]) #@72 Rename file OLD to NEW in both work area and repository. (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\310!\203l \321\"\210\211\205\206 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) "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 (#$ . 61761) "fVC rename file: \nFRename to: "]) #@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 (#$ . 62656) (byte-code ":\203 C\207\2032 \302\303 \302\2030 \301@!\262\211\203) \304!\203) \211B\262A\262\202 \207\302\207" [current-prefix-arg buffer-file-name nil buffer-list vc-backend] 5)]) #@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 (#$ . 63574)]) #@60 Return the branch part of a revision number REV. (fn REV) (defalias 'vc-branch-part #[257 "\300\301\"\211\205\f \302O\207" [string-match "\\.[0-9]+\\'" 0] 5 (#$ . 63757)]) #@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 (#$ . 63940)]) #@130 Return non-nil if BACKEND could be used to register FILE. The default implementation returns t for all files. (fn BACKEND FILE) (defalias 'vc-default-could-register #[514 "\300\207" [t] 3 (#$ . 64129)]) #@200 Return non-nil if FILE is the latest on its branch. This default implementation always returns non-nil, which means that editing non-current revisions is not supported by default. (fn BACKEND FILE) (defalias 'vc-default-latest-on-branch-p #[514 "\300\207" [t] 3 (#$ . 64340)]) (defalias 'vc-default-init-revision #[257 "\207" [vc-default-init-revision] 2 "\n\n(fn BACKEND)"]) #@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\"\311\312%DC\216\313\314\315&\210rq\210\316!*\207" [make-temp-file expand-file-name funcall make-byte-code 0 "\301\300!\207" vconcat vector [delete-file] 2 "\n\n(fn)" vc-call-backend checkout nil insert-file-contents-literally] 12 (#$ . 64725)]) (defalias 'vc-default-rename-file #[771 "\300\301\302\303\304\305\306\"\307\"\310\311%D\312\301\302\313\304\305\306\n\n\"\314\"\315\316%\300EDC\217\210\317!\210r\320!q\210\321 )\207" [#1=#:err funcall make-byte-code 0 "\302\300\301\"\207" vconcat vector [add-name-to-file] 3 "\n\n(fn)" error 257 [rename-file] 4 "\n\n(fn IGNORED)" vc-delete-file find-file-noselect vc-register] 14 "\n\n(fn BACKEND OLD NEW)"]) (defalias 'vc-default-check-headers 'ignore) (defalias 'vc-default-log-edit-mode #[257 "\300 \207" [log-edit-mode] 2 "\n\n(fn BACKEND)"]) (defalias 'vc-default-log-view-mode #[257 "\300 \207" [log-view-mode] 2 "\n\n(fn BACKEND)"]) (defalias 'vc-default-show-log-entry #[514 "\300!\207" [log-view-goto-rev] 4 "\n\n(fn BACKEND REV)"]) #@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 (#$ . 66047)]) #@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 (#$ . 66328)]) (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 @\240\210\301\302\303\316\305\306\f \n#\317\"\320\311%\"\262\207" [#2="" vc-file-tree-walk make-byte-code 257 "\211\303\n!)\304=\205% \305\306\307\310\311\312\313\300\301 #\314\"\315\316%D\317\306\320\305EDC\217\207" vconcat vector [file vc-state up-to-date #1=#:err funcall make-byte-code 0 "\303\300\304\302\305\306%\210\301@\203 \307\302\310\211#\210\305\207" vconcat vector [vc-call-backend checkout nil #2# vc-resynch-buffer t] 6 "\n\n(fn)" error #[257 "\300\207" [t] 2 "\n\n(fn IGNORED)"]] 11 "\n\n(fn F)" vc-tag-precondition error "File %s is locked" visited "\303\304\305\306\307\310\311\300\301\302\n$\312\"\313\314%D\315\304\316\303EDC\217\207" [#3=#:err funcall make-byte-code 0 "\304\300\305\303\306\301%\210\302@\203 \307\303\310\211#\210\306\207" vconcat vector [vc-call-backend checkout nil vc-resynch-buffer t] 6 "\n\n(fn)" error #[257 "\300\207" [t] 2 "\n\n(fn IGNORED)"]] 12] 16 "\n\n(fn BACKEND DIR NAME UPDATE)"]) (defalias 'vc-default-revert #[771 "\211?\205\241 \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\326 #\327\"\330\331%DC\216\332\211\333\334\335!!\321\322\323\336\325\326!\337\"\340\331%DC\216r\211q\210prq\210\341 !\342\n\343 \n%\210*\210)r\211q\210\344\345\211\345\323%\210*\266\345\240\210+\266\305\346\"\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 funcall make-byte-code 0 "\302\205 \301@\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 "\n\n(fn)" no-conversion get-buffer-create generate-new-buffer-name " *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 "\n\n(fn BACKEND FILE CONTENTS-DONE)"]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias vc-default-revision-completion-table ignore vc-default-mark-resolved] 3) (defalias 'vc-default-dir-status-files #[1285 "\211\300\301\302\303\304\305!\306\"\307\310%\"!\207" [mapcar make-byte-code 257 "\211\300D\207" vconcat vector [] 3 "\n\n(fn FILE)"] 13 "\n\n(fn BACKEND DIR FILES DEFAULT-STATE UPDATE-FUNCTION)"]) #@56 Check if the current file has any headers in it. (fn) (defalias 'vc-check-headers #[0 "\301\302!\303\"\207" [buffer-file-name vc-call-backend vc-backend check-headers] 3 (#$ . 69156) 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 (#$ . 69484)]) (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 "\n\n(fn FILE FUNC ARGS)"]) (provide 'vc)