;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:14 2007 ;;; from file /home/cyd/emacs/lisp/vc-hooks.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`vc-hooks.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301\306\"\210\307B\302\307!\204#\303\307\304\"\210\305\307\310\"\210\311B\302\311!\2047\303\311\304\"\210\305\311\312\"\207" [current-load-list vc-ignore-vc-files default-boundp set-default nil make-obsolete-variable "set `vc-handled-backends' to nil to disable VC." vc-master-templates "to define master templates for a given BACKEND, use\nvc-BACKEND-master-templates. To enable or disable VC for a given\nBACKEND, use `vc-handled-backends'." vc-header-alist vc-BACKEND-header] 3) #@223 Regexp matching directory names that are not under VC's control. The default regexp prevents fruitless and time-consuming attempts to determine the VC status in directories in which filenames are interpreted as hostnames. (custom-declare-variable 'vc-ignore-dir-regexp '"\\`\\([\\/][\\/]\\|/net/\\|/afs/\\)\\'" '(#$ . 1110) :type 'regexp :group 'vc) #@322 *List of version control backends for which VC will be used. Entries in this list will be tried in order to determine whether a file is under that sort of version control. Removing an entry from the list prevents VC from being activated when visiting a file managed by that backend. An empty list disables VC altogether. (custom-declare-variable 'vc-handled-backends ''(RCS CVS SVN SCCS Arch MCVS) '(#$ . -1467) :type '(repeat symbol) :version "21.1" :group 'vc) #@68 *List of extra directories to search for version control commands. (custom-declare-variable 'vc-path '(if (file-directory-p "/usr/sccs") '("/usr/sccs") nil) '(#$ . -1936) :type '(repeat directory) :group 'vc) #@146 *If non-nil, backups of registered files are made as with other files. If nil (the default), files covered by version control don't get backups. (custom-declare-variable 'vc-make-backup-files 'nil '(#$ . -2152) :type 'boolean :group 'vc :group 'backup) #@439 *What to do if visiting a symbolic link to a file under version control. Editing such a file through the link bypasses the version control system, which is dangerous and probably not what you want. If this variable is t, VC follows the link and visits the real file, telling you about it in the echo area. If it is `ask', VC asks for confirmation whether it should follow the link. If nil, the link is visited and a warning displayed. (custom-declare-variable 'vc-follow-symlinks ''ask '(#$ . -2412) :type '(choice (const :tag "Ask for confirmation" ask) (const :tag "Visit link and warn" nil) (const :tag "Follow link" t)) :group 'vc) #@93 *If non-nil, display revision number and lock status in modeline. Otherwise, not displayed. (custom-declare-variable 'vc-display-status 't '(#$ . -3057) :type 'boolean :group 'vc) #@68 *If non-nil, identify work files by searching for version headers. (custom-declare-variable 'vc-consult-headers 't '(#$ . -3243) :type 'boolean :group 'vc) #@157 *If non-nil, don't delete working files after registering changes. If the back-end is CVS, workfiles are always kept, regardless of the value of this flag. (custom-declare-variable 'vc-keep-workfiles 't '(#$ . -3406) :type 'boolean :group 'vc) #@155 *If non-nil, don't assume permissions/ownership track version-control status. If nil, do rely on the permissions. See also variable `vc-consult-headers'. (custom-declare-variable 'vc-mistrust-permissions 'nil '(#$ . -3657) :type 'boolean :group 'vc) #@74 Internal access function to variable `vc-mistrust-permissions' for FILE. (defalias 'vc-mistrust-permissions #[(file) "\302=\206\205\303 !!\207" [vc-mistrust-permissions file t vc-backend-subdirectory-name] 3 (#$ . 3913)]) #@576 *Non-nil means use local operations when possible for remote repositories. This avoids slow queries over the network and instead uses heuristics and past information to determine the current status of a file. The value can also be a regular expression or list of regular expressions to match against the host name of a repository; then VC only stays local for hosts that match it. Alternatively, the value can be a list of regular expressions where the first element is the symbol `except'; then VC always stays local except for hosts matched by these regular expressions. (custom-declare-variable 'vc-stay-local 't '(#$ . -4149) :type '(choice (const :tag "Always stay local" t) (const :tag "Don't stay local" nil) (list :format "\nExamine hostname and %v" :tag "Examine hostname ..." (set :format "%v" :inline t (const :format "%t" :tag "don't" except)) (regexp :format " stay local,\n%t: %v" :tag "if it matches") (repeat :format "%v%i\n" :inline t (regexp :tag "or")))) :version "22.1" :group 'vc) #@115 Return non-nil if VC should stay local when handling FILE. This uses the `repository-hostname' backend operation. (defalias 'vc-stay-local-p #[(file) "\306!\307 \303\"\310\n!\203\nJ\202\311\211\311=\203\f 9\203' \202\211\312!\2033\313!\2026\314!\315 \316\"\206\206\317 \316\320 \321 #\211\204P\322\202\204\311 \242\323=\203`\324 A :\203k\325\326 \327#\330 \"\203x\202{?\203\202\331\202\203\322))#)\331=+\207" [file backend sym stay-local vc-stay-local dirname vc-backend vc-make-backend-sym boundp t file-directory-p directory-file-name file-name-directory vc-file-getprop vc-stay-local-p vc-file-setprop vc-call-backend repository-hostname no except nil mapconcat identity "\\|" string-match yes hostname default] 8 (#$ . 5160)]) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local vc-mode put permanent-local t] 4) #@266 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} (defalias 'vc-mode #[(&optional arg) "\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}"] 1 (#$ . 6050)]) (defalias 'vc-error-occurred '(macro . #[(&rest body) "\301\302\303\304\305\"B\306BBB\207" [body condition-case nil progn append (nil) ((error t))] 6])) #@34 Obarray for per-file properties. (defvar vc-file-prop-obarray (make-vector 17 0) (#$ . 6814)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list vc-touched-properties default-boundp set-default nil] 3) #@45 Set per-file VC PROPERTY for FILE to VALUE. (defalias 'vc-file-setprop #[(file property value) "\203 >\204\305 C\"\306\307\n \" \f#\207" [vc-touched-properties property file vc-file-prop-obarray value append put intern] 4 (#$ . 7052)]) #@36 Get per-file VC PROPERTY for FILE. (defalias 'vc-file-getprop #[(file property) "\303 \"\nN\207" [file vc-file-prop-obarray property intern] 3 (#$ . 7302)]) #@34 Clear all VC properties of FILE. (defalias 'vc-file-clearprops #[(file) "\302\303 \"\304\"\207" [file vc-file-prop-obarray setplist intern nil] 4 (#$ . 7466)]) #@51 Return BACKEND-specific version of VC symbol SYM. (defalias 'vc-make-backend-sym #[(backend sym) "\302\303\304!\227\305\304 !R!\207" [backend sym intern "vc-" symbol-name "-"] 6 (#$ . 7633)]) #@161 Return BACKEND-specific implementation of FUN. If there is no such implementation, return the default implementation; if that doesn't exist either, return nil. (defalias 'vc-find-backend-function #[(backend fun) "\304 \"\305\n!\203\n\2023\306\307\310\311!\227P!!\210\305\n!\203$\n\2023\304\312 \"\305 !\2052 B))\207" [backend fun f def vc-make-backend-sym fboundp require intern "vc-" symbol-name default] 5 (#$ . 7833)]) #@288 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. (defalias 'vc-call-backend #[(backend function-name &rest args) "\304 \305N\"\211\203\nA\202\"\306 \"\307 \305\nB \305NB#\210\n\204.\310\311 #\202A\n:\203=\312\n@\nA #\202A\312\n \")\207" [function-name backend f args assoc vc-functions vc-find-backend-function put error "Sorry, %s is not implemented for %s" apply] 7 (#$ . 8273)]) (defalias 'vc-call '(macro . #[(fun file &rest args) "\303\304D\305 D\nBBBB\207" [file fun args vc-call-backend vc-backend quote] 5])) #@65 Find PATTERN in the current buffer and return its Ith submatch. (defalias 'vc-parse-buffer #[(pattern i) "eb\210\302\303\304#\205\305 !\207" [pattern i re-search-forward nil t match-string] 4 (#$ . 9050)]) (put 'vc-parse-buffer 'byte-optimizer 'byte-compile-inline-expand) #@395 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. (defalias 'vc-insert-file #[(file &optional limit blocksize) "\306 \210\307!\205M \204\310!\210\202H\n\204\311\312\312\310\313 \211\n\\\211$\211A@)W\203G\314 \210\315 \313\316#\211\203B\312\224d|\210 )\203)\317\313!\210\320\207" [file limit blocksize filepos x pos erase-buffer file-exists-p insert-file-contents 8192 0 nil beginning-of-line re-search-forward move set-buffer-modified-p t] 8 (#$ . 9333)]) #@177 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. (defalias 'vc-find-root #[(file witness) "\304!\305 \2045\306!\211\232\2045\2035\307\n\"\2045\310\311 \"!\203.\211\202\312!\202 )\207" [file root vc-ignore-dir-regexp witness abbreviate-file-name nil file-name-directory string-match file-exists-p expand-file-name directory-file-name] 5 (#$ . 10158)]) #@292 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. (defalias 'vc-registered #[(file) "\303\304 \305\n!\"\203\303\202(\306\307!\203%\310\n\311\"\211\203%\311\n\"\202(\312\313\215)\207" [handler vc-ignore-dir-regexp file nil string-match file-name-directory boundp file-name-handler-alist find-file-name-handler vc-registered found (byte-code "\303\304\"\305\306 \203 \307=\203\n\202 \nB\"\210)\310\304\307#\210\311\207" [file backend vc-handled-backends vc-file-getprop vc-backend mapcar #[(b) "\302\303 #\205\304 \305#\205\306\307\310\"\207" [b file vc-call-backend registered vc-file-setprop vc-backend throw found t] 4] none vc-file-setprop nil] 4)] 4 (#$ . 10665)]) #@71 Return the version control type of FILE, nil if it is not registered. (defalias 'vc-backend #[(file) ";\205#\302\303\"\211\304=\203\305\202\" \206\"\306!\205\"\302\303\")\207" [file property vc-file-getprop vc-backend none nil vc-registered] 4 (#$ . 11604)]) #@76 Return where the master and lock FILEs for the current directory are kept. (defalias 'vc-backend-subdirectory-name #[(file) "\301\302!!\207" [file symbol-name vc-backend] 3 (#$ . 11880)]) #@109 Return the master name of FILE. If the file is not registered, or the master name is not known, return nil. (defalias 'vc-name #[(file) "\301\302\"\206\303!\205\304\303!\305#\205\301\302\"\207" [file vc-file-getprop vc-name vc-backend vc-call-backend registered] 4 (#$ . 12076)]) #@607 Indicate how FILE is checked out. If FILE is not registered, this function always returns nil. For registered files, the possible values are: 'implicit FILE is always writeable, and checked out `implicitly' when the user saves the first changes to the file. 'locking FILE is read-only if up-to-date; user must type \[vc-next-action] before editing. Strict locking is assumed. 'announce FILE is read-only if up-to-date; user must type \[vc-next-action] before editing. But other users may be editing at the same time. (defalias 'vc-checkout-model #[(file) "\301\302\"\206\303!\205\304\302\305\303!\306##\207" [file vc-file-getprop vc-checkout-model vc-backend vc-file-setprop vc-call-backend checkout-model] 7 (#$ . 12374)]) #@63 Return the name under which the user accesses the given FILE. (defalias 'vc-user-login-name #[(file) "\304 \"\305=\203,\306 !\307\310!\311\216r q\210\312\313\314\315\316#!\205(dSd|\210\317 ,\2065\320 \2065\321\322 !\207" [tramp-file-name-regexp file default-directory #1=#:temp-buffer string-match 0 file-name-directory generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) zerop process-file "whoami" nil t buffer-string user-login-name number-to-string user-uid] 5 (#$ . 13202)]) #@1534 Return the version control state of FILE. If FILE is not registered, this function always returns nil. For registered files, 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. USER The current version of the working file is locked by some other USER (a string). 'needs-patch The file has not been edited by the user, but there is a more recent version on the current branch stored in the master file. '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 master file. This state can only occur if locking is not used for the file. 'unlocked-changes The current version of the working 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). (defalias 'vc-state #[(file) "\301\302\"\206\303!\205\304\302\305\303!\306##\207" [file vc-file-getprop vc-state vc-backend vc-file-setprop vc-call-backend state-heuristic] 7 (#$ . 13755)]) #@149 Recompute the version control state of FILE, and return it. This calls the possibly expensive function vc-BACKEND-state, rather than the heuristic. (defalias 'vc-recompute-state #[(file) "\301\302\303\304!\305##\207" [file vc-file-setprop vc-state vc-call-backend vc-backend state] 7 (#$ . 15494)]) #@78 Convenience function that checks whether `vc-state' of FILE is `up-to-date'. (defalias 'vc-up-to-date-p #[(file) "\301!\302=\207" [file vc-state up-to-date] 2 (#$ . 15802)]) (put 'vc-up-to-date-p 'byte-optimizer 'byte-compile-inline-expand) #@160 Default implementation of vc-state-heuristic. It simply calls the real state computation function `vc-BACKEND-state' and does not employ any heuristic at all. (defalias 'vc-default-state-heuristic #[(backend file) "\302\303 #\207" [backend file vc-call-backend state] 4 (#$ . 16051)]) #@65 Return non-nil if FILE has not changed since the last checkout. (defalias 'vc-workfile-unchanged-p #[(file) "\304\305\"\306\307!8\211\203 \310\232\204\n \232\2023\311\312!\313#\314\305 \203. \202/\315#\210 )*\207" [file lastmod checkout-time unchanged vc-file-getprop vc-checkout-time 5 file-attributes (0 0) vc-call-backend vc-backend workfile-unchanged-p vc-file-setprop 0] 5 (#$ . 16343)]) #@104 Check if FILE is unchanged by diffing against the master version. Return non-nil if FILE is unchanged. (defalias 'vc-default-workfile-unchanged-p #[(backend file) "\300\301\302\303\217!\207" [zerop err (byte-code "\301\302!\303\304\211\305&\207" [file vc-call-backend vc-backend diff nil "*vc*"] 7) ((wrong-number-of-arguments (byte-code "\211A@)\303\304\305\n!\306\"!=\203\211AA)@\307=\204%\310@A\"\207\311\305\n!\306\n#\207" [err x file indirect-function vc-find-backend-function vc-backend diff 4 signal vc-call-backend] 6)))] 4 (#$ . 16758)]) #@117 Return the version level of the current workfile FILE. If FILE is not registered, this function always returns nil. (defalias 'vc-workfile-version #[(file) "\301\302\"\206\303!\205\304\302\305\303!\306##\207" [file vc-file-getprop vc-workfile-version vc-backend vc-file-setprop vc-call-backend workfile-version] 7 (#$ . 17324)]) #@75 Check if FILE is registered in BACKEND using vc-BACKEND-master-templates. (defalias 'vc-default-registered #[(backend file) "\305\306\"\307N\204\310\307\311#\210 \312\313\314\315\316\n\"\" J\"L\210\317 J\"\211;\205/\320 \321\f#*\207" [backend sym vc-master-templates file result vc-make-backend-sym master-templates vc-templates-grabbed put t append delq nil mapcar #[(template) ":\205A =\205@\207" [template backend] 2] vc-check-master-templates vc-file-setprop vc-name] 8 (#$ . 17668)]) (defalias 'vc-possible-master #[(s dirname basename) ";\203 \304 \n#\207\305!\205!\306\307\215\211:\203 @\202 )\207" [s dirname basename result format functionp found (funcall s dirname basename)] 5]) #@651 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. (defalias 'vc-check-master-templates #[(file templates) "\303!\206\304\305!\306\307\215*\207" [file basename dirname file-name-directory "" file-name-nondirectory found (mapcar #[(s) "\305 \n#\211\205'\306 !\205' \307 !\230\203#\310\f!\310 !\232?\205'\311\312 \")\207" [s dirname basename trial file vc-possible-master file-exists-p file-name-directory file-attributes throw found] 5] templates)] 3 (#$ . 18391)]) #@550 Change read-only status of current buffer, perhaps via version control. If the buffer is visiting a file registered with version control, then check the file in or out. Otherwise, just change the read-only flag of the buffer. With prefix argument, ask for version number to check in or check out. Check-out of a specified version number does not lock the file; to do that, use this command a second time with no argument. If you bind this function to \[toggle-read-only], then Emacs checks files in or out whenever you toggle the read-only flag. (defalias 'vc-toggle-read-only #[(&optional verbose) "\303\300!\203\n\204\304 !\203\305\n!\207\306 \207" [vc-dired-mode buffer-file-name verbose boundp vc-backend vc-next-action toggle-read-only] 2 (#$ . 19474) "P"]) #@111 Return non-nil if unmodified versions should be backed up locally. The default is to switch off this feature. (defalias 'vc-default-make-version-backups-p #[(backend file) "\300\207" [nil] 1 (#$ . 20253)]) #@275 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. (defalias 'vc-version-backup-file-name #[(file &optional rev manual regexp) "\203\304\305 !!\306\n?\205\307\310R\207\311\305 !\312\313\314\315 \206\"\316 !#\n?\205)\317\310\260\320 !\"\207" [regexp file manual rev regexp-quote file-name-nondirectory "\\.~.+" "\\." "~" expand-file-name ".~" subst-char-in-string 47 95 vc-workfile-version "." file-name-directory] 8 (#$ . 20466)]) #@57 Delete all existing automatic version backups for FILE. (defalias 'vc-delete-automatic-version-backups #[(file) "\300\301\302\217\207" [nil (byte-code "\302\303\304\305!\206\n \306\307\310\211\306$#\"\207" [file default-directory mapcar delete-file directory-files file-name-directory t vc-version-backup-file-name nil] 10) ((file-error))] 3 (#$ . 21134)]) #@150 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. (defalias 'vc-make-version-backup #[(file) "\301\302!\205 \302 ??\205\303!\210\304\305\306\217\207" [file fboundp msdos-long-file-names vc-delete-automatic-version-backups nil (byte-code "\301\302!\303\304$\207" [file copy-file vc-version-backup-file-name nil keep-date] 5) ((file-error (message "Warning: Cannot make version backup; diff/revert therefore not local")))] 3 (#$ . 21501)]) #@61 Function to be called by `basic-save-buffer' (in files.el). (defalias 'vc-before-save #[nil "\302 !\205( \303 !)\304=\205(\305 !\306=\205(\307\302 !\310 #\205(\311 !)\207" [buffer-file-name file vc-backend vc-state up-to-date vc-checkout-model implicit vc-call-backend make-version-backups-p vc-make-version-backup] 4 (#$ . 22050)]) #@61 Function to be called by `basic-save-buffer' (in files.el). (defalias 'vc-after-save #[nil "\302 !\205E\303 \304\"\305\306 !8\232\203\307 \304\310#\210 \311 !)\312=\205E\313 !\314=\205E\307 \311\315#\205E\316 !\205E\317\320!\205E\321 !)\207" [buffer-file-name file vc-backend vc-file-getprop vc-checkout-time 5 file-attributes vc-file-setprop nil vc-state up-to-date vc-checkout-model implicit edited vc-mode-line featurep vc vc-dired-resynch-file] 4 (#$ . 22396)]) #@142 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. (defalias 'vc-mode-line #[(file) "\306!\211\204 \307\202N\310 \203\311\306!\312#\202\313 !P\f\232\2030\314!;\2030\315\f\232\203N \204N\316\317 !\203N\316\320\321\f!\322\"!\203N\315\323 \210 )\207" [file backend vc-mode vc-display-status buffer-file-name buffer-read-only vc-backend nil " " vc-call-backend mode-line-string symbol-name vc-state t zerop user-real-uid logand file-modes 128 force-mode-line-update] 6 (#$ . 22880) (list buffer-file-name)]) #@318 Return string for placement in modeline by `vc-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 This function assumes that the file is registered. (defalias 'vc-default-mode-line-string #[(backend file) "\304!\305 !\306 !\211\307=\204 \310=\203\311\nQ\2022 ;\203.\312 \312\n\260\2022\312\nQ*\207" [backend file rev state symbol-name vc-state vc-workfile-version up-to-date needs-patch "-" ":"] 6 (#$ . 23504)]) #@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 #[nil "\304\305!!\306 !p\n =\203\307 !\210\310 !q\202#\nq\210\307 !+\207" [buffer-file-name truename true-buffer this-buffer abbreviate-file-name file-chase-links find-buffer-visiting kill-buffer find-file-noselect] 3 (#$ . 24107)]) (defalias 'vc-default-find-file-hook #[(backend) "\300\207" [nil] 1]) #@66 Function for `find-file-hook' activating VC mode if appropriate. (defalias 'vc-find-file-hook #[nil "\203\306 \205\201\307 !\210\310 !\203)\311 !\210\n\204\"\312\303!\210\313\314\310 !\315\"\207\316 !\2054\310\317 !!\211\204=\306\202\200 \306=\203J\320\321\f\"\202\200 \322=\203Z\323\324\317 !!!\203g\325 \210\320\326 \"\210\327 \202\200\330\331\332\f\"!\203}\325 \210\320\326 \"\210\327 \202\200\320\333!)\207" [vc-mode buffer-file-name vc-make-backup-files backup-inhibited link-type vc-follow-symlinks nil vc-file-clearprops vc-backend vc-mode-line make-local-variable t vc-call-backend find-file-hook file-symlink-p file-chase-links message "Warning: symbolic link to %s-controlled source file" ask get-file-buffer abbreviate-file-name vc-follow-link "Followed link to %s" vc-find-file-hook yes-or-no-p format "Symbolic link to %s-controlled source file; follow link? " "Warning: editing through the link bypasses version control"] 5 (#$ . 24635)]) (add-hook 'find-file-hook 'vc-find-file-hook) #@161 When file is not found, try to check it out from version control. Returns t if checkout was successful, nil otherwise. Used in `find-file-not-found-functions'. (defalias 'vc-file-not-found-hook #[nil "\302!\210\303!\211\205\304 \305\")\207" [buffer-file-name backend vc-file-clearprops vc-backend vc-call-backend find-file-not-found-hook] 4 (#$ . 25660)]) (defalias 'vc-default-find-file-not-found-hook #[(backend) "\302\303\304\305!\"!\205\212\306\307!\210\310!\311\312\313\217)?\207" [buffer-file-name default-directory yes-or-no-p format "File %s was lost; check out from version control? " file-name-nondirectory require vc file-name-directory nil (byte-code "\301!\210\302\207" [buffer-file-name vc-checkout nil] 2) ((error t))] 5]) (add-hook 'find-file-not-found-functions 'vc-file-not-found-hook) #@55 Discard VC info about a file when we kill its buffer. (defalias 'vc-kill-buffer-hook #[nil "\205\301!\207" [buffer-file-name vc-file-clearprops] 2 (#$ . 26481)]) (byte-code "\305\306\307\"\210\302B\310\302!\204r\311\302\312 \313 \314\315#\210\313 \316\317#\210\313 \320\321#\210\313 \322\323#\210\313 \324\325#\210\313 \326\327#\210\313 \330\331#\210\313 \332\333#\210\313 \334\335#\210\313 \336\337#\210\313 \340\341#\210\313 \342\343#\210\313 \344\345#\210\313 \346\347#\210\313 \350\351#\210 )\"\210\302\nM\210\313 \352\302#\210\353\304!\203\313\f\354\355#\210\313\f\356\357#\210\313\f\360\361#\210\313\f\362\363#\210\313\f\364\365#\210\313\f\366\367#\210\313\f\370\371#\210\313\f\372\373#\210\313\f\374\375#\210\313\f\376\377#\210\313\f\201@\201A#\210\313\f\201B\201C#\210\313\f\201D\201E#\210\313\f\201F\201G#\210\313\f\201H\201I#\210\313\f\201J\201K#\210\313\f\201L\201M#\210\201N\201O!\207" [current-load-list map vc-prefix-map global-map vc-menu-map add-hook kill-buffer-hook vc-kill-buffer-hook default-boundp set-default make-sparse-keymap define-key "a" vc-update-change-log "b" vc-switch-backend "c" vc-cancel-version "d" vc-directory "g" vc-annotate "h" vc-insert-headers "i" vc-register "l" vc-print-log "m" vc-merge "r" vc-retrieve-snapshot "s" vc-create-snapshot "u" vc-revert-buffer "v" vc-next-action "=" vc-diff "~" vc-version-other-window "v" boundp [vc-retrieve-snapshot] ("Retrieve Snapshot" . vc-retrieve-snapshot) [vc-create-snapshot] ("Create Snapshot" . vc-create-snapshot) [vc-directory] ("VC Directory Listing" . vc-directory) [separator1] ("----") [vc-annotate] ("Annotate" . vc-annotate) [vc-rename-file] ("Rename File" . vc-rename-file) [vc-version-other-window] ("Show Other Version" . vc-version-other-window) [vc-diff] ("Compare with Base Version" . vc-diff) [vc-update-change-log] ("Update ChangeLog" . vc-update-change-log) [vc-print-log] ("Show History" . vc-print-log) [separator2] ("----") [vc-insert-header] ("Insert Header" . vc-insert-headers) [undo] ("Undo Last Check-In" . vc-cancel-version) [vc-revert-buffer] ("Revert to Base Version" . vc-revert-buffer) [vc-update] ("Update to Latest Version" . vc-update) [vc-next-action] ("Check In/Out" . vc-next-action) [vc-register] ("Register" . vc-register) provide vc-hooks] 6)