Current File : //usr/local/share/emacs/27.2/lisp/vc/vc-hooks.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\304\306\307\310& \210\311\312\313\314\304\301\304\306\307\310& \210\311\315\316\317\307\310\304\301&\210\311\320\321\322\307\310\304\301&\210\311\323\324\325\307\310\304\301&\210\311\326\327\330\307\310\304\301&\210\311\331\332\333\307\310\304\301&\210\311\334\335\336\307\310\304\301&\210\311\337\340\341\307\310\304\301&\210\311\342\343\344\307\310\304\301&\210\345\346\347\350\351DD\352\353\354\304\305&\210\345\355\347\350\356DD\357\353\360\307\310\304\305& \210\345\361\347\350\362DD\363\353\364\304\305&\210\345\365\347\350\366DD\367\353\370\304\305\304\371& \210\345\372\347\350\373DD\374\353\375\304\305&\210\345\376\347\350\377DD\201@ \353\370\304\305&\210\345\201A \347\350\201B DD\201C \353\370\304\305&\210\201D \201E \201F \201G #\210\201H \201E !\210\201D \201E \201I \201G #\210\201J \201K \201L \"\207" [custom-declare-group vc-faces nil "Faces used in the mode line by the VC state indicator." :group vc mode-line :version "25.1" custom-declare-face vc-state-base ((default)) "Base face for VC state indicator." vc-up-to-date-state ((default :inherit vc-state-base)) "Face for VC modeline state when the file is up to date." vc-needs-update-state ((default :inherit vc-state-base)) "Face for VC modeline state when the file needs update." vc-locked-state ((default :inherit vc-state-base)) "Face for VC modeline state when the file locked." vc-locally-added-state ((default :inherit vc-state-base)) "Face for VC modeline state when the file is locally added." vc-conflict-state ((default :inherit vc-state-base)) "Face for VC modeline state when the file contains merge conflicts." vc-removed-state ((default :inherit vc-state-base)) "Face for VC modeline state when the file was removed from the VC system." vc-missing-state ((default :inherit vc-state-base)) "Face for VC modeline state when the file is missing from the file system." vc-edited-state ((default :inherit vc-state-base)) "Face for VC modeline state when the file is edited." custom-declare-variable vc-ignore-dir-regexp funcall function #[0 "\207" [locate-dominating-stop-dir-regexp] 1] "Regexp matching directory names that are not under VC's control.\nThe default regexp prevents fruitless and time-consuming attempts\nto determine the VC status in directories in which filenames are\ninterpreted as hostnames." :type regexp vc-handled-backends #[0 "\300\207" [(RCS CVS SVN SCCS SRC Bzr Git Hg Mtn)] 1] "List of version control backends for which VC will be used.\nEntries in this list will be tried in order to determine whether a\nfile is under that sort of version control.\nRemoving an entry from the list prevents VC from being activated\nwhen visiting a file managed by that backend.\nAn empty list disables VC altogether." (repeat symbol) vc-directory-exclusion-list #[0 "\300\301!\207" [purecopy ("SCCS" "RCS" "CVS" "MCVS" ".src" ".svn" ".git" ".hg" ".bzr" "_MTN" "_darcs" "{arch}")] 2] "List of directory names to be ignored when walking directory trees." (repeat string) vc-make-backup-files #[0 "\300\207" [nil] 1] "If non-nil, backups of registered files are made as with other files.\nIf nil (the default), files covered by version control don't get backups." boolean backup vc-follow-symlinks #[0 "\300\207" [ask] 1] "What to do if visiting a symbolic link to a file under version control.\nEditing such a file through the link bypasses the version control system,\nwhich is dangerous and probably not what you want.\n\nIf this variable is t, VC follows the link and visits the real file,\ntelling you about it in the echo area. If it is `ask', VC asks for\nconfirmation whether it should follow the link. If nil, the link is\nvisited and a warning displayed." (choice (const :tag "Ask for confirmation" ask) (const :tag "Visit link and warn" nil) (const :tag "Follow link" t)) vc-display-status #[0 "\300\207" [t] 1] "If non-nil, display revision number and lock status in mode line.\nOtherwise, not displayed." vc-consult-headers #[0 "\300\207" [t] 1] "If non-nil, identify work files by searching for version headers." put vc-mode risky-local-variable t make-variable-buffer-local permanent-local define-error vc-not-supported "VC method not implemented for backend"] 10)
#@286 Version Control minor mode.
This minor mode is automatically activated whenever you visit a file under
control of one of the revision control systems in `vc-handled-backends'.
VC commands are globally reachable under the prefix `\[vc-prefix-map]':
\{vc-prefix-map}
(fn &optional ARG)
(defalias 'vc-mode #[256 "\300\207" ["Version Control minor mode.\nThis minor mode is automatically activated whenever you visit a file under\ncontrol of one of the revision control systems in `vc-handled-backends'.\nVC commands are globally reachable under the prefix `\\[vc-prefix-map]':\n\\{vc-prefix-map}"] 2 (#$ . 4637)])
#@19
(fn &rest BODY)
(defalias 'vc-error-occurred '(macro . #[128 "\300\301\302\303\304\"B\305BBB\207" [condition-case nil progn append (nil) ((error t))] 7 (#$ . 5255)]))
#@34 Obarray for per-file properties.
(defvar vc-file-prop-obarray (make-vector 17 0) (#$ . 5431))
(defvar vc-touched-properties nil)
#@71 Set per-file VC PROPERTY for FILE to VALUE.
(fn FILE PROPERTY VALUE)
(defalias 'vc-file-setprop #[771 "\203 >\204 \302C\"\303\304\305! \"#\207" [vc-touched-properties vc-file-prop-obarray append put intern expand-file-name] 7 (#$ . 5566)])
#@56 Get per-file VC PROPERTY for FILE.
(fn FILE PROPERTY)
(defalias 'vc-file-getprop #[514 "\301\302!\"N\207" [vc-file-prop-obarray intern expand-file-name] 5 (#$ . 5824)])
#@45 Clear all VC properties of FILE.
(fn FILE)
(defalias 'vc-file-clearprops #[257 "\301\302!\203\n \303\302!\210\304\305\306!\"\307\"\207" [vc-file-prop-obarray boundp vc-parent-buffer kill-local-variable setplist intern expand-file-name nil] 5 (#$ . 6003)])
#@69 Return BACKEND-specific version of VC symbol SYM.
(fn BACKEND SYM)
(defalias 'vc-make-backend-sym #[514 "\300\301\302!\227\303\302!R!\207" [intern "vc-" symbol-name "-"] 8 (#$ . 6268)])
#@179 Return BACKEND-specific implementation of FUN.
If there is no such implementation, return the default implementation;
if that doesn't exist either, return nil.
(fn BACKEND FUN)
(defalias 'vc-find-backend-function #[514 "\300\"\301!\203 \211\2023 \302\303\304\305!\227P!!\210\301!\203$ \211\2023 \300\306\"\301!\2051 \211B\262\207" [vc-make-backend-sym fboundp require intern "vc-" symbol-name default] 8 (#$ . 6464)])
#@333 Call for BACKEND the implementation of FUNCTION-NAME with the given ARGS.
Calls
(apply #\='vc-BACKEND-FUN ARGS)
if vc-BACKEND-FUN exists (after trying to find it in vc-BACKEND.el)
and else calls
(apply #\='vc-default-FUN BACKEND ARGS)
It is usually called via the `vc-call' macro.
(fn BACKEND FUNCTION-NAME &rest ARGS)
(defalias 'vc-call-backend #[642 "\300\301N\"\211\203 \211A\262\202& \302\"\262B\303\301\301NB#\266\211\2044 \304\305D\"\202G \211:\203C \306@A#\202G \306\"\207" [assoc vc-functions vc-find-backend-function put signal vc-not-supported apply] 12 (#$ . 6901)])
#@253 A convenience macro for calling VC backend functions.
Functions called by this macro must accept FILE as the first argument.
ARGS specifies any additional arguments. FUN should be unquoted.
BEWARE!! FILE is evaluated twice!!
(fn FUN FILE &rest ARGS)
(defalias 'vc-call '(macro . #[642 "\300\301D\302DBBBB\207" [vc-call-backend vc-backend quote] 8 (#$ . 7521)]))
#@81 Find PATTERN in the current buffer and return its Ith submatch.
(fn PATTERN I)
(defalias 'vc-parse-buffer #[514 "eb\210\300\301\302#\205 \303!\207" [re-search-forward nil t match-string] 6 (#$ . 7895)])
(put 'vc-parse-buffer 'byte-optimizer 'byte-compile-inline-expand)
#@432 Insert the contents of FILE into the current buffer.
Optional argument LIMIT is a regexp. If present, the file is inserted
in chunks of size BLOCKSIZE (default 8 kByte), until the first
occurrence of LIMIT is found. Anything from the start of that occurrence
to the end of the buffer is then deleted. The function returns
non-nil if FILE exists and its contents were successfully inserted.
(fn FILE &optional LIMIT BLOCKSIZE)
(defalias 'vc-insert-file #[769 "\300 \210\301!\205M \204 \302!\210\202H \211\204 \303\262\304\304\302\305\211\\\211\262$A@W\203G \306 \210\307\305\310#\211\203@ \304\224d|\210\211?\262\204 \210\311\305!\210\312\207" [erase-buffer file-exists-p insert-file-contents 8192 0 nil beginning-of-line re-search-forward move set-buffer-modified-p t] 11 (#$ . 8176)])
#@196 Find the root of a checked out project.
The function walks up the directory tree from FILE looking for WITNESS.
If WITNESS if not found, return nil, otherwise return the root.
(fn FILE WITNESS)
(defalias 'vc-find-root #[514 "\206 \302\")\207" [vc-ignore-dir-regexp locate-dominating-stop-dir-regexp locate-dominating-file] 5 (#$ . 8988)])
#@303 Return non-nil if FILE is registered in a version control system.
This function performs the check each time it is called. To rely
on the result of a previous call, use `vc-backend' instead. If the
file was previously registered under a certain backend, then that
backend is tried first.
(fn FILE)
(defalias 'vc-registered #[257 "\302\303!\203 \304\303!\"\203 \302\202] \305\306!\203+ \307\310\"\211\262\203+ \211\310\"\202] \3112] \312\313\"\314\315\316\317\320\321!\322\"\323\324%\203K \325=\203O \202R B\"\266\326\313\325#\210\3020\207" [vc-ignore-dir-regexp vc-handled-backends nil file-name-directory string-match boundp file-name-handler-alist find-file-name-handler vc-registered found vc-file-getprop vc-backend mapc make-byte-code 257 "\301\302\300#\205 \303\300\304#\205 \305\306\307\"\207" vconcat vector [vc-call-backend registered vc-file-setprop vc-backend throw found t] 5 "\n\n(fn B)" none vc-file-setprop] 10 (#$ . 9341)])
#@167 Return the version control type of FILE-OR-LIST, nil if it's not registered.
If the argument is a list, the files must all have the same back end.
(fn FILE-OR-LIST)
(defalias 'vc-backend #[257 "\211;\203\" \300\301\"\211\302=\203 \303\202! \211\206! \304!\205! \300\301\"\207\211\2030 \211<\2030 \301@!\207\303\207" [vc-file-getprop vc-backend none nil vc-registered] 5 (#$ . 10314)])
#@75 Return where the repository for the current directory is kept.
(fn FILE)
(defalias 'vc-backend-subdirectory-name #[257 "\300\301!!\207" [symbol-name vc-backend] 4 (#$ . 10711)])
#@637 Indicate how FILES are checked out.
If FILES are not registered, this function always returns nil.
For registered files, the possible values are:
`implicit' FILES are always writable, and checked out `implicitly'
when the user saves the first changes to the file.
`locking' FILES are read-only if up-to-date; user must type
\[vc-next-action] before editing. Strict locking
is assumed.
`announce' FILES are read-only if up-to-date; user must type
\[vc-next-action] before editing. But other users
may be editing at the same time.
(fn BACKEND FILES)
(defalias 'vc-checkout-model #[514 "\300\301#\207" [vc-call-backend checkout-model] 6 (#$ . 10898)])
#@74 Return the name under which the user accesses the given FILE.
(fn FILE)
(defalias 'vc-user-login-name #[257 "\302!\2037 \303!\304\305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316\317\304\320#\310U\2050 dSd|\210\321 *\262*\206@ \322 \206@ \323\324 !\207" [process-file-side-effects default-directory file-remote-p file-name-directory nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 process-file "whoami" t buffer-string user-login-name number-to-string user-uid] 8 (#$ . 11643)])
#@2914 Return the version control state of FILE.
A return of nil from this function means we have no information on the
status of this file. Otherwise, the value returned is one of:
`up-to-date' The working file is unmodified with respect to the
latest version on the current branch, and not locked.
`edited' The working file has been edited by the user. If
locking is used for the file, this state means that
the current version is locked by the calling user.
This status should *not* be reported for files
which have a changed mtime but the same content
as the repo copy.
USER The current version of the working file is locked by
some other USER (a string).
`needs-update' The file has not been edited by the user, but there is
a more recent version on the current branch stored
in the repository.
`needs-merge' The file has been edited by the user, and there is also
a more recent version on the current branch stored in
the repository. This state can only occur if locking
is not used for the file.
`unlocked-changes' The working version of the file is not locked,
but the working file has been changed with respect
to that version. This state can only occur for files
with locking; it represents an erroneous condition that
should be resolved by the user (vc-next-action will
prompt the user to do it).
`added' Scheduled to go into the repository on the next commit.
Often represented by vc-working-revision = "0" in VCSes
with monotonic IDs like Subversion and Mercurial.
`removed' Scheduled to be deleted from the repository on next commit.
`conflict' The file contains conflicts as the result of a merge.
For now the conflicts are text conflicts. In the
future this might be extended to deal with metadata
conflicts too.
`missing' The file is not present in the file system, but the VC
system still tracks it.
`ignored' The file showed up in a dir-status listing with a flag
indicating the version-control system is ignoring it,
Note: This property is not set reliably (some VCSes
don't have useful directory-status commands) so assume
that any file with vc-state nil might be ignorable
without VC knowing it.
`unregistered' The file is not under version control.
(fn FILE &optional BACKEND)
(defalias 'vc-state #[513 "\300\301\"\206 G\302V\205 \211\206 \303!\262\211\205 \304\"\207" [vc-file-getprop vc-state 0 vc-backend vc-state-refresh] 5 (#$ . 12224)])
#@59 Quickly recompute the `state' of FILE.
(fn FILE BACKEND)
(defalias 'vc-state-refresh #[514 "\300\301\302\303##\207" [vc-file-setprop vc-state vc-call-backend state] 9 (#$ . 15319)])
#@89 Convenience function that checks whether `vc-state' of FILE is `up-to-date'.
(fn FILE)
(defalias 'vc-up-to-date-p #[257 "\300!\301=\207" [vc-state up-to-date] 3 (#$ . 15512)])
(put 'vc-up-to-date-p 'byte-optimizer 'byte-compile-inline-expand)
#@154 Return the repository version from which FILE was checked out.
If FILE is not registered, this function always returns nil.
(fn FILE &optional BACKEND)
(defalias 'vc-working-revision #[513 "\300\301\"\206 \211\206 \302!\262\211\205 \303\301\304\305##\207" [vc-file-getprop vc-working-revision vc-backend vc-file-setprop vc-call-backend working-revision] 9 (#$ . 15764)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias vc-workfile-version vc-working-revision nil make-obsolete "23.1"] 4)
#@21
(fn BACKEND FILE)
(defalias 'vc-default-working-revision #[514 "\300\301!\210\302\303#\207" [message "`working-revision' not found: using the old `workfile-version' instead" vc-call-backend workfile-version] 6 (#$ . 16287)])
#@94 Check if FILE is registered in BACKEND using vc-BACKEND-master-templates.
(fn BACKEND FILE)
(defalias 'vc-default-registered #[514 "\300\301\"\302N\204 \303\302\304#\210\305J\"\211;\205 \306\307#\262\207" [vc-make-backend-sym master-templates vc-templates-grabbed put t vc-check-master-templates vc-file-setprop vc-master-name] 8 (#$ . 16522)])
#@27
(fn S DIRNAME BASENAME)
(defalias 'vc-possible-master #[771 ";\203 \300#\207\301!\205' \3022 \"0\211:\203$ \211@\202% \211\262\207" [format functionp found] 7 (#$ . 16884)])
#@672 Return non-nil if there is a master corresponding to FILE.
TEMPLATES is a list of strings or functions. If an element is a
string, it must be a control string as required by `format', with two
string placeholders, such as "%sRCS/%s,v". The directory part of
FILE is substituted for the first placeholder, the basename of FILE
for the second. If a file with the resulting name exists, it is taken
as the master of FILE, and returned.
If an element of TEMPLATES is a function, it is called with the
directory part and the basename of FILE as arguments. It should
return non-nil if it finds a master; that value is then returned by
this function.
(fn FILE TEMPLATES)
(defalias 'vc-check-master-templates #[514 "\300!\206 \301\302!\3032# \304\305\306\307\310\311 #\312\"\313\314%\"0\207" [file-name-directory "" file-name-nondirectory found mapcar make-byte-code 257 "\303\301\302#\211\205& \304!\205& \301\305!\230\203\" \306\300!\306!\232?\205& \307\310\"\207" vconcat vector [vc-possible-master file-exists-p file-name-directory file-attributes throw found] 5 "\n\n(fn S)"] 13 (#$ . 17078)])
(byte-code "\300\301\302\"\210\303\301\304\305#\207" [defalias vc-toggle-read-only toggle-read-only make-obsolete "use `read-only-mode' instead (or `toggle-read-only' in older versions of Emacs)." "24.1"] 4)
#@130 Return non-nil if unmodified versions should be backed up locally.
The default is to switch off this feature.
(fn BACKEND FILE)
(defalias 'vc-default-make-version-backups-p #[514 "\300\207" [nil] 3 (#$ . 18405)])
#@314 Return a backup file name for REV or the current version of FILE.
If MANUAL is non-nil it means that a name for backups created by
the user should be returned; if REGEXP is non-nil that means to return
a regexp for matching all such backup files, regardless of the version.
(fn FILE &optional REV MANUAL REGEXP)
(defalias 'vc-version-backup-file-name #[1025 "\211\203 \300\301!!\302?\205 \303\304R\207\305\301!\306\307\310\311\206$ \312\n!#?\205+ \313\304\260\314!\"\207" [regexp-quote file-name-nondirectory "\\.~.+" "\\." "~" expand-file-name ".~" subst-char-in-string 47 95 vc-working-revision "." file-name-directory] 12 (#$ . 18626)])
#@68 Delete all existing automatic version backups for FILE.
(fn FILE)
(defalias 'vc-delete-automatic-version-backups #[257 "\3011 \302\303\304\305!\206 \306\307\310\211\306$#\"0\207\210\310\207" [default-directory (file-error) mapc delete-file directory-files file-name-directory t vc-version-backup-file-name nil] 11 (#$ . 19285)])
#@161 Make a backup copy of FILE, which is assumed in sync with the repository.
Before doing that, check if there are any old backups and get rid of them.
(fn FILE)
(defalias 'vc-make-version-backup #[257 "\300\301!\205 \301 ??\205# \302!\210\3031 \304\305!\306\307$0\207\210\310\311!\207" [fboundp msdos-long-file-names vc-delete-automatic-version-backups (file-error) copy-file vc-version-backup-file-name nil keep-date message "Warning: Cannot make version backup; diff/revert therefore not local"] 6 (#$ . 19628)])
#@61 Function to be called by `basic-save-buffer' (in files.el).
(defalias 'vc-before-save #[0 "\301\3021= \303!\204 \304!\210\305!\211\262\2059 \306!\307=\262\2059 \310C\"\311=\2059 \312\313#\2059 \314!0\202? \210\301\207" [buffer-file-name nil (error) file-exists-p vc-file-clearprops vc-backend vc-state up-to-date vc-checkout-model implicit vc-call-backend make-version-backups-p vc-make-version-backup] 6 (#$ . 20153)])
#@25 List of vc-dir buffers.
(defvar vc-dir-buffers nil (#$ . 20593))
#@61 Function to be called by `basic-save-buffer' (in files.el).
(defalias 'vc-after-save #[0 "\302!\211\203F \303C\"\304=\2037 \305\306\"\307!\3108\262\232\203( \311\306\312#\210\313\"\203F \314\"\210\202F \305\315\"\316=\203F \311\315\312#\210 \205M \317!\207" [buffer-file-name vc-dir-buffers vc-backend vc-checkout-model implicit vc-file-getprop vc-checkout-time file-attributes 5 vc-file-setprop nil vc-state-refresh vc-mode-line vc-state up-to-date vc-dir-resynch-file] 6 (#$ . 20664)])
(defvar vc-menu-entry (byte-code "\300\301\302!\303BB\207" [menu-item purecopy "Version Control" (vc-menu-map :filter vc-menu-map-filter)] 3))
(byte-code "\302\300!\203\f \303\304 #\210\302\207" [menu-bar-tools-menu vc-menu-entry boundp define-key [vc]] 4)
(defconst vc-mode-line-map (byte-code "\301 \302\303#\210\211\207" [vc-menu-entry make-sparse-keymap define-key [mode-line down-mouse-1]] 5))
#@244 Set `vc-mode' to display type of version control for FILE.
The value is set in the current buffer, which should be the buffer
visiting FILE.
If BACKEND is passed use it as the VC backend when computing the result.
(fn FILE &optional BACKEND)
(defalias 'vc-mode-line #[513 "\211\206 \305!\262\211\204 \306\202a \204 \307\310!P\202a \311\312#\313\314\315#\307\316\317\320\315\2069 \321\322\n\"\323P\324\n&P\266 \232\203a \f\204a \325 \314U\203a \326\327 !\330\"\314U\203a \331\332 \210\207" [vc-mode vc-display-status vc-mode-line-map buffer-file-name buffer-read-only vc-backend nil " " symbol-name vc-call-backend mode-line-string get-text-property 0 help-echo propertize mouse-face mode-line-highlight format "File under the %s version control system" "\nmouse-1: Version Control menu" local-map user-real-uid logand file-modes 128 t force-mode-line-update] 13 (#$ . 21577) (list buffer-file-name)])
#@523 Return a string for `vc-mode-line' to put in the mode line for FILE.
Format:
"BACKEND-REV" if the file is up-to-date
"BACKEND:REV" if the file is edited (or locked by the calling user)
"BACKEND:LOCKER:REV" if the file is locked by somebody else
"BACKEND@REV" if the file was locally added
"BACKEND!REV" if the file contains conflicts or was removed
"BACKEND?REV" if the file is under VC, but is missing
This function assumes that the file is registered.
(fn BACKEND FILE)
(defalias 'vc-default-mode-line-string #[514 "\300!\301\"\302\211\303\"\304\305=\204 \306=\203( \307\262\310\262\311Q\202\204 ;\203@ \312P\262\313\262\314\314\260\202\204 \315\267\202z \316\262\317\262\320Q\202\204 \321\262\322\262\323Q\202\204 \324\262\325\262\323Q\202\204 \326\262\327\262\330Q\202\204 \331\262\332\262\314Q\333\334\335 \336R%\207" [symbol-name vc-state nil vc-working-revision propertize up-to-date needs-update "Up to date file" vc-up-to-date-state "-" "File locked by" vc-locked-state ":" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (added 70 conflict 83 removed 96 missing 109)) "Locally added file" vc-locally-added-state "@" "File contains conflicts after the last merge" vc-conflict-state "!" "File removed from the VC system" vc-removed-state "File tracked by the VC system, but missing from the file system" vc-missing-state "?" "Locally modified file" vc-edited-state face help-echo " under the " " version control system"] 16 (#$ . 22507)])
#@187 If current buffer visits a symbolic link, visit the real file.
If the real file is already visited in another buffer, make that buffer
current, and kill the buffer that visits the link.
(defalias 'vc-follow-link #[0 "\301!p=\203 \302!\210\303!q\262\202 q\210\302!\207" [buffer-file-truename find-buffer-visiting kill-buffer find-file-noselect] 5 (#$ . 24095)])
#@16
(fn BACKEND)
(defalias 'vc-default-find-file-hook #[257 "\300\207" [nil] 2 (#$ . 24473)])
#@244 Refresh the VC state of the current buffer's file.
This command is more thorough than `vc-state-refresh', in that it
also supports switching a back-end or removing the file from VC.
In the latter case, VC mode is deactivated for this buffer.
(defalias 'vc-refresh-state #[0 "\203 \306 \205\304 \307 !\210\310\311\312\306\313$\210\306\3141! \315 !0\202) \316\317\"\210\306\262\211\262\203H \320\321\"\210\312 \"\210\n?\205\302 \322\303!\210\313\211\202\302 \f\205O \323\f!\211\205] \232?\205] \315!\211\204e \306\202\300
\306=\203r \316\324\"\202\300
\325=\203\232 #\204\232 \326 \203\220 \327 A\204\220 \330 $=\204\232 \331\332\333 !!!\203\247 \334 \210\316\335 \"\210\336 \202\300 \337\340\341\"!\203\275 \334 \210\316\335 \"\210\336 \202\300 \316\342!\266\202\262\207" [vc-mode buffer-file-name vc-make-backup-files backup-inhibited buffer-file-truename vc-follow-symlinks nil vc-file-clearprops add-hook vc-mode-line-hook vc-mode-line t (debug error) vc-backend message "Error: %S" vc-call-backend find-file-hook make-local-variable expand-file-name "Warning: symbolic link to %s-controlled source file" ask daemonp frame-list selected-frame get-file-buffer abbreviate-file-name file-chase-links vc-follow-link "Followed link to %s" vc-refresh-state yes-or-no-p format "Symbolic link to %s-controlled source file; follow link? " "Warning: editing through the link bypasses version control" noninteractive terminal-frame] 7 (#$ . 24572) nil])
(byte-code "\300\301\302\"\210\303\304\302\305#\210\306\304\302\307#\207" [add-hook find-file-hook vc-refresh-state defalias vc-find-file-hook nil make-obsolete "25.1"] 4)
#@55 Discard VC info about a file when we kill its buffer.
(defalias 'vc-kill-buffer-hook #[0 "\205 \301!\207" [buffer-file-name vc-file-clearprops] 2 (#$ . 26215)])
(add-hook 'kill-buffer-hook 'vc-kill-buffer-hook)
(defvar vc-prefix-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\301\350\351#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\301\360\361#\210\211\207" [make-sparse-keymap define-key "a" vc-update-change-log "b" vc-switch-backend "d" vc-dir "g" vc-annotate "G" vc-ignore "h" vc-region-history "i" vc-register "l" vc-print-log "L" vc-print-root-log "I" vc-log-incoming "O" vc-log-outgoing "ML" vc-log-mergebase "MD" vc-diff-mergebase "m" vc-merge "r" vc-retrieve-tag "s" vc-create-tag "u" vc-revert "v" vc-next-action "+" vc-update "P" vc-push "=" vc-diff "D" vc-root-diff "~" vc-revision-other-window "x" vc-delete-file] 5))
(byte-code "\300M\210\302 \303\300#\207" [vc-prefix-map ctl-x-map define-key "v"] 4)
(defvar vc-menu-map (byte-code "\301\302!\303\304\305#\210\303\306\307#\210\303\310#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\211\207" [menu-bar-separator make-sparse-keymap "Version Control" bindings--define-key [vc-retrieve-tag] (menu-item "Retrieve Tag" vc-retrieve-tag :help "Retrieve tagged version or branch") [vc-create-tag] (menu-item "Create Tag" vc-create-tag :help "Create version tag") [separator1] [vc-annotate] (menu-item "Annotate" vc-annotate :help "Display the edit history of the current file using colors") [vc-rename-file] (menu-item "Rename File" vc-rename-file :help "Rename file") [vc-revision-other-window] (menu-item "Show Other Version" vc-revision-other-window :help "Visit another version of the current file in another window") [vc-diff] (menu-item "Compare with Base Version" vc-diff :help "Compare file set with the base version") [vc-root-diff] (menu-item "Compare Tree with Base Version" vc-root-diff :help "Compare current tree with the base version") [vc-update-change-log] (menu-item "Update ChangeLog" vc-update-change-log :help "Find change log file and add entries from recent version control logs") [vc-log-out] (menu-item "Show Outgoing Log" vc-log-outgoing :help "Show a log of changes that will be sent with a push operation") [vc-log-in] (menu-item "Show Incoming Log" vc-log-incoming :help "Show a log of changes that will be received with a pull operation") [vc-print-log] (menu-item "Show History" vc-print-log :help "List the change log of the current file set in a window") [vc-print-root-log] (menu-item "Show Top of the Tree History " vc-print-root-log :help "List the change log for the current tree in a window") [separator2] [vc-insert-header] (menu-item "Insert Header" vc-insert-headers :help "Insert headers into a file for use with a version control system.") [vc-revert] (menu-item "Revert to Base Version" vc-revert :help "Revert working copies of the selected file set to their repository contents") [vc-push] (menu-item "Push Changes" vc-push :help "Push the current branch's changes") [vc-update] (menu-item "Update to Latest Version" vc-update :help "Update the current fileset's files to their tip revisions") [vc-next-action] (menu-item "Check In/Out" vc-next-action :help "Do the next logical version control operation on the current fileset") [vc-register] (menu-item "Register" vc-register :help "Register file set into a version control system") [vc-ignore] (menu-item "Ignore File..." vc-ignore :help "Ignore a file under current version control system") [vc-dir] (menu-item "VC Dir" vc-dir :help "Show the VC status of files in a directory")] 5))
(defalias 'vc-menu-map vc-menu-map)
#@21
(fn ORIG-BINDING)
(defalias 'vc-menu-map-filter #[257 "\2119\203 \303!\203 \304!\262\205$ \305 \203 \306 !\202\" \307\n!\310\"\211\204, \2021 \311\312#\207" [vc-mode buffer-file-name default-directory fboundp indirect-function vc-call-backend vc-backend vc-responsible-backend extra-menu append ((ext-menu-separator "--"))] 6 (#$ . 30436)])
#@16
(fn BACKEND)
(defalias 'vc-default-extra-menu #[257 "\300\207" [nil] 2 (#$ . 30795)])
(provide 'vc-hooks)
Mini Shell