;ELC ;;; Compiled by ghudson@whirlpool.mit.edu on Tue Apr 27 18:30:43 1999 ;;; from file /afs/athena.mit.edu/user/g/h/ghudson/dev/third/emacs/lisp/vc-hooks.el ;;; in Emacs version 20.3.1 ;;; with bytecomp version 1.1.1.1 ;;; 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")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@133 *Back-end actually used by this interface; may be SCCS or RCS. The value is only computed when needed to avoid an expensive search. (custom-declare-variable 'vc-default-back-end 'nil '(#$ . -646) :type '(choice (const nil) (const RCS) (const SCCS)) :group 'vc) #@93 *If non-nil, use VC for files managed with CVS. If it is nil, don't use VC for those files. (custom-declare-variable 'vc-handle-cvs 't '(#$ . -913) :type 'boolean :group 'vc) #@194 *Indicates whether rcsdiff understands the --brief option. The value is either `yes', `no', or nil. If it is nil, VC tries to use --brief and sets this variable to remember whether it worked. (custom-declare-variable 'vc-rcsdiff-knows-brief 'nil '(#$ . -1095) :type '(choice (const nil) (const yes) (const no)) :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) '(#$ . -1425) :type '(repeat directory) :group 'vc) #@207 *Where to look for version-control master files. The first pair corresponding to a given back end is used as a template when creating new masters. Setting this variable to nil turns off use of VC entirely. (custom-declare-variable 'vc-master-templates ''(("%sRCS/%s,v" . RCS) ("%s%s,v" . RCS) ("%sRCS/%s" . RCS) ("%sSCCS/s.%s" . SCCS) ("%ss.%s" . SCCS) vc-find-cvs-master vc-search-sccs-project-dir) '(#$ . -1641) :type '(repeat sexp) :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 '(#$ . -2095) :type 'boolean :group 'vc) #@462 *Indicates what to do if you visit a symbolic link to a file that is 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 '(#$ . -2340) :type '(choice (const ask) (const nil) (const 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 '(#$ . -2934) :type 'boolean :group 'vc) #@68 *If non-nil, identify work files by searching for version headers. (custom-declare-variable 'vc-consult-headers 't '(#$ . -3120) :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 '(#$ . -3283) :type 'boolean :group 'vc) #@166 *If non-nil, don't assume that permissions and 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 '(#$ . -3534) :type 'boolean :group 'vc) #@255 *If non-nil don't look for version control information when finding files. It may be useful to set this if (say) you edit files in a directory containing corresponding RCS files but don't have RCS available; similarly for other version control systems. (custom-declare-variable 'vc-ignore-vc-files 'nil '(#$ . -3802) :type 'boolean :group 'vc :version "20.3") (defalias 'vc-mistrust-permissions #[(file) "\302=\206\205\303 !!\207" [vc-mistrust-permissions file t vc-backend-subdirectory-name] 3]) (byte-code "\301\302\"\204 \303B\304\302!\210\305\302\306\307#\207" [minor-mode-alist assoc vc-mode (vc-mode vc-mode) make-variable-buffer-local put permanent-local t] 4) (defalias 'vc-error-occurred '(macro . #[(&rest body) "\301\302\303\304\305\"B\306F\207" [body condition-case nil progn append (nil) (error t)] 6])) #@34 Obarray for per-file properties. (defvar vc-file-prop-obarray [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0] (#$ . 4638)) (byte-code "\302\300!\204\303\300 B\304\300!\207" [vc-buffer-backend current-load-list boundp t make-variable-buffer-local] 2) (defalias 'vc-file-setprop #[(file property value) "\304\305 \"\n #\207" [file vc-file-prop-obarray property value put intern] 4]) (defalias 'vc-file-getprop #[(file property) "\303 \"\nN\207" [file vc-file-prop-obarray property intern] 3]) (defalias 'vc-file-clearprops #[(file) "\302\303 \"\304\"\207" [file vc-file-prop-obarray setplist intern nil] 4]) (defalias 'vc-match-substring #[(bn) "\224\225{\207" [bn] 2]) (defalias 'vc-lock-file #[(file) "\302!\211\205\303\304 \"\205 \305\224\305\225O\306 \307\224\307\225OQ)\207" [file master vc-name string-match "\\(.*/\\)s\\.\\(.*\\)" 1 "p." 2] 6]) (defalias 'vc-parse-buffer #[(patterns &optional file properties) "\301\302\"\207" [patterns mapcar #[(p) "eb\210G\306=\203,\307\310@\307\311#\203\312\313\234!\n\203)\314\n @ #\210 A )\207G\315=\205k\316\307\310@\307\311#\203[\312\306\234! \231\203W\312\313\234!)\2027\n\203i\314\n @\f#\210 A\f*\207" [p value file properties latest-val latest-date 2 nil re-search-forward t vc-match-substring 1 vc-file-setprop 3 "" date] 4]] 3]) (defalias 'vc-insert-file #[(file &optional limit blocksize) "\305 \210\306!\203P \203B\n\204\307\310\211\211\204>\311 \211Tb\210\312\310 \211\n\\$A@\313U\2069\313y\210\314 \310\315#\211\203*\202F\312!\210\316\310!\210\317\310!\210\315\207\310\207" [file limit blocksize s found erase-buffer file-exists-p 8192 nil buffer-size insert-file-contents 0 re-search-forward t set-buffer-modified-p auto-save-mode] 7]) (defalias 'vc-parse-locks #[(file locks) "\204\n\306 \307\310#\207\311\312\313\211\211\314 !\315=\203A\316\317 #\203\204\320\224\320\225O\321\224\321\225O\322\f \nBC\"\312\225\202\314 !\323=\203\204\316\324 #\203m\321\224\321\225O\320\224\320\225O\322\f \nBC\"\312\225\202I\316\325 #\203~\306 \326\327#\210\202\204\306 \326\330#\210\306 \307\f\206\214\310#-\207" [locks file user version master-locks index vc-file-setprop vc-master-locks none t 0 nil vc-backend SCCS string-match "^\\([0-9.]+\\) [0-9.]+ \\([^ ]+\\) .*\n?" 1 2 append RCS "[ \n]*\\([^:]+\\):\\([0-9.]+\\)" ";[ \n]+strict;" vc-checkout-model manual implicit found] 5]) (defalias 'vc-simple-command #[(okstatus command file &rest args) "\212\306\307!q\210\310 \210)\311 \"\312\313\314\315!\n\316\317\n#R B\320\321 \312\307\312\311C\"&\211V\203G\322\323!!\210\324\325\307!!\210\326\327!\210\f+\207" [vc-path exec-path path-separator process-environment exec-status command get-buffer-create "*vc-info*" erase-buffer append nil "PATH=" getenv "PATH" mapconcat identity apply call-process switch-to-buffer get-file-buffer shrink-window-if-larger-than-buffer display-buffer error "Couldn't find version control information" args file okstatus] 10]) (defalias 'vc-parse-cvs-status #[(&optional full) "\304\211eb\210\305\306\304\307#\205\275\310\311!\203\304\202\275\305\312\304\307#\205\275\n\313\314!P\315 \316\317#\210\305\320\304\307#\204:\321\202>\313\314! \203R\305\322\304\307#\203R\315 \323\313\324!#\210\325\326\"\203k\315 \327\330#\210\315 \331\332\333 !8#\202\275\315 \327\325\334\"\203y\335\202\274\325\336\"\203\204\337\202\274\325\340\"\203\217\341\202\274\325\342\"\203\232\343\202\274\325\344\"\203\245\343\202\274\325\345\"\203\260\346\202\274\325\347\"\203\273\346\202\274\350#*\207" [status file default-directory full nil re-search-forward "^File: " t looking-at "no file" "\\=\\([^ ]+\\)" match-string 1 vc-file-setprop vc-backend CVS "\\=[ ]+Status: \\(.*\\)" "Unknown" "\\(RCS Version\\|RCS Revision\\|Repository revision\\):[ ]+\\([0-9.]+\\)" vc-latest-version 2 string-match "Up-to-date" vc-cvs-status up-to-date vc-checkout-time 5 file-attributes "Locally Modified" locally-modified "Needs Merge" needs-merge "Needs \\(Checkout\\|Patch\\)" needs-checkout "Unresolved Conflict" unresolved-conflict "File had conflicts on merge" "Locally Added" locally-added "New file!" unknown] 6]) (defalias 'vc-fetch-master-properties #[(file) "\212\303!\304=\203?\305\306!q\210\307\310!!\203\311\312 \"\210\202%\313\314\315#\210\307\316!\317\"\210\320\321\322\323\324 !\325Q\326DD\327#\210\202\312\303!\330=\203\251\305\306!q\210\307\316!\331\"\210\320\332\333\334E\335#\210\336\337\"\211\203k \340\230\203w\313\341\336\342\"#\210\202\235\343\344 \"\203\207\313\341 #\210\202\235\307\316!\345\"\210\320\346\323 !\347Q\326\350EC\351#\210)\311\336\314\"\"\210\202\312\303!\352=\203\312\212\353!\354\355\356\357!\360$\210)\361\306!q\210\362\363!\210)\361\306!\205\325\364\361\306!!)\207" [file default-branch default-directory vc-backend SCCS get-buffer-create "*vc-info*" vc-insert-file vc-lock-file vc-parse-locks buffer-string vc-file-setprop vc-master-locks none vc-name "^e" vc-parse-buffer ("^d D \\([^ ]+\\)" 1) "^d D \\([^ ]+\\) .* " regexp-quote vc-user-login-name " " 1 (vc-latest-version vc-your-latest-version) RCS "^[0-9]" ("^head[ \n]+\\([^;]+\\);" 1) ("^branch[ \n]+\\([^;]+\\);" 1) ("^locks[ \n]*\\([^;]*;\\([ \n]*strict;\\)?\\)" 1) (vc-head-version vc-default-branch vc-master-locks) vc-file-getprop vc-default-branch "" vc-master-workfile-version vc-head-version string-match "^[0-9]+\\.[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*$" "^desc" "^\\(" "\\.[0-9]+\\)\ndate[ ]+\\([0-9.]+\\);" 2 (vc-master-workfile-version) CVS file-name-directory vc-simple-command 0 "cvs" file-name-nondirectory "status" get-buffer vc-parse-cvs-status t kill-buffer] 7]) (defalias 'vc-consult-rcs-headers #[(file) "\203\n\305 !\204\f\306\207\306\211\211\212\305 !q\210eb\210\307\310\306\311#\203)\312\313!\204:eb\210\307\314\306\311#\203n\312\313!\203n\315\225b\210\316\317\224\317\225\"\312\320!\203\260\315\225b\210\312\321!\203\\\322\323\202\260\312\324!\203\260\316\317\224\317\225\"\323\202\260\325\326\306\311#\203\260\316\317\224\317\225\"eb\210\325\327\306\311#\203\256\312\330!\203\232\316\317\224\317\225\"\323\202\260\312\331!\203\247\322\323\202\260\322\323\202\260\332)\f\203\273\333 \334 #\210\f\323=\203\367\335 !\336=\203\367\333 \337\n#\203\367\340 !\204\367\337 !\204\367\341\342\343\344 !8\"\203\361\333 \345\346#\210\202\367\333 \345\347#\210\f+\207" [vc-consult-headers file locking-user version status get-file-buffer nil search-forward "$Id: " t looking-at "[^ ]+ \\([0-9.]+\\) " "$Header: " 0 buffer-substring-no-properties 1 "[0-9]+[/-][01][0-9][/-][0-3][0-9] [0-2][0-9]:[0-5][0-9]+:[0-6][0-9]+\\([+-][0-9:]+\\)? [^ ]+ [^ ]+ " "\\$" none rev-and-lock "\\([^ ]+\\) \\$" re-search-forward "\\$Revision: \\([0-9.]+\\) \\$" "\\$Locker:" " \\([^ ]+\\) \\$" " *\\$" rev vc-file-setprop vc-workfile-version vc-backend RCS vc-locking-user vc-mistrust-permissions string-match ".r-..-..-." 8 file-attributes vc-checkout-model manual implicit] 5]) (defalias 'vc-backend-subdirectory-name #[(&optional file) "\302\203 \303!\206 \206\304\305!\203\306\202\307\211!\207" [file vc-default-back-end symbol-name vc-backend vc-find-binary "rcs" RCS SCCS] 3]) #@115 Return the master name of a file, nil if it is not registered. For CVS, the full name of CVS/Entries is returned. (defalias 'vc-name #[(file) "\301\302\"\206\303!\205\301\302\"\207" [file vc-file-getprop vc-name vc-backend] 3 (#$ . 11899)]) #@73 Return the version-control type of a file, nil if it is not registered. (defalias 'vc-backend #[(file) "\2059\303\304\"\305\211\306=\203\305\2028\n\2068\307!\211\2031\310\311 @#\210\310\304 A#\2028\310\304\306#\210\305*\207" [file name-and-type property vc-file-getprop vc-backend nil none vc-registered vc-file-setprop vc-name] 5 (#$ . 12153)]) (defalias 'vc-checkout-model #[(file) "\301\302\"\206W\303!\304=\203\305\302\306#\207\303!\307=\2031\310!\210\301\302\"\206W\311!\210\301\302\"\207\303!\312=\205W\305\302\313\314!\203F\306\202V\315\316\317\320!8\"\203U\306\202V\321#\207" [file vc-file-getprop vc-checkout-model vc-backend SCCS vc-file-setprop manual RCS vc-consult-rcs-headers vc-fetch-master-properties CVS getenv "CVSREAD" string-match "r-..-..-." 8 file-attributes implicit] 8]) (defalias 'vc-cvs-status #[(file) "\301\302\"\206\303!\210\301\302\"\207" [file vc-file-getprop vc-cvs-status vc-fetch-master-properties] 3]) (defalias 'vc-master-locks #[(file) "\301\302\"\206\303!\210\301\302\"\207" [file vc-file-getprop vc-master-locks vc-fetch-master-properties] 3]) (defalias 'vc-master-locking-user #[(file) "\303!\304\211\305=\203\305\202!\306\307!\n\"\211\203 A\202!\305*\207" [file lock master-locks vc-master-locks nil none assoc vc-workfile-version] 4]) (defalias 'vc-lock-from-permissions #[(file) "\302!\303!?\2054\304\305\306 8\"\203\307\310\311#\2024\312 8\313 U\2054\304\314\306 8\"\2054\307\310\315 #)\207" [file attributes file-attributes vc-mistrust-permissions string-match ".r-..-..-." 8 vc-file-setprop vc-locking-user none 2 user-uid ".rw..-..-." vc-user-login-name] 4]) (defalias 'vc-user-login-name #[(&optional uid) "\301!\206\203\302!\206\302\303 !\207" [uid user-login-name number-to-string user-uid] 2]) (defalias 'vc-file-owner #[(file) "\301\302\303!8!\207" [file vc-user-login-name 2 file-attributes] 4]) (defalias 'vc-rcs-lock-from-diff #[(file) "\304\305!P\n\306=\203\307\310\311 $\202\307\312\311\313 %\211\312=\203:\n\2043\306\307\310\311 $\202@\314\315!\210\202@\n\204@\316 \317U\203N\320\321\322#\202U\320\321\323!#*\207" [file version vc-rcsdiff-knows-brief status "-r" vc-workfile-version no vc-simple-command 1 "rcsdiff" 2 "--brief" error "rcsdiff failed." yes 0 vc-file-setprop vc-locking-user none vc-file-owner] 7]) (defalias 'vc-locking-user #[(file) "\303\304\"\211\203 \305=?\205\276 \202\276\306!\307=\203J\310!\311=\203*\312!\204\261\303\313\"\314\315!8\232\203?\316\304\305#\204\261\316\304\317!#\210\202\261\306!\320=\203\233\321\322!\323=\204\202\312!\211\203z\n\305=\203r\316\310\311#\202w\310!\311=\204\202\316\304\324!#\210\303\304\"\305=\203\227\310!\325=\203\227\326!\210)\202\261\306!\327=\203\261\312!\204\261\316\304\324!#\210\303\304\"\211\305=?\205\276 )\207" [file locking-user p-lock vc-file-getprop vc-locking-user none vc-backend CVS vc-checkout-model manual vc-lock-from-permissions vc-checkout-time 5 file-attributes vc-file-setprop vc-file-owner RCS nil vc-consult-rcs-headers rev-and-lock vc-master-locking-user implicit vc-rcs-lock-from-diff SCCS] 6]) (defalias 'vc-latest-version #[(file) "\301\302\"\206\303!\210\301\302\"\207" [file vc-file-getprop vc-latest-version vc-fetch-properties] 3]) (defalias 'vc-your-latest-version #[(file) "\301\302\"\206\303!\210\301\302\"\207" [file vc-file-getprop vc-your-latest-version vc-fetch-properties] 3]) (defalias 'vc-master-workfile-version #[(file) "\301\302\"\206\303!\210\301\302\"\207" [file vc-file-getprop vc-master-workfile-version vc-fetch-master-properties] 3]) (defalias 'vc-fetch-properties #[(file) "\301!\302=\2036\212\303\304!q\210\305\306!\307\"\210\310\311\312\313\314\315\316 !\317\260\320\321ED\322#\210\323\304!\2054\324\323\304!!)\207\325!\207" [file vc-backend RCS get-buffer-create "*vc-info*" vc-insert-file vc-name "^desc" vc-parse-buffer ("^\\([0-9]+\\.[0-9.]+\\)\ndate[ ]+\\([0-9.]+\\);" 1 2) "^\\([0-9]+\\.[0-9.]+\\)\n" "date[ ]+\\([0-9.]+\\);[ ]+" "author[ ]+" regexp-quote vc-user-login-name ";" 1 2 (vc-latest-version vc-your-latest-version) get-buffer kill-buffer vc-fetch-master-properties] 7]) (defalias 'vc-workfile-version #[(file) "\302\303\"\206X\304!\305=\203\306!\207\304!\307=\203=\310!\203&\302\303\"\207\311!\2063\306!\2063\312\313\303 #\210 )\207\304!\314=\205X\310!\203P\302\303\"\207\315\316\215\210\302\303\"\207" [file rev vc-file-getprop vc-workfile-version vc-backend SCCS vc-latest-version RCS vc-consult-rcs-headers vc-master-workfile-version nil vc-file-setprop CVS found (byte-code "\301\302!\303!\"\207" [file vc-find-cvs-master file-name-directory file-name-nondirectory] 4)] 4]) (defalias 'vc-registered #[(file) "\305\211\306\307!\203\310\n\311\" \203 \311\n\"\202*\312\n!\206!\313\314\n!\315\316\215**\207" [handlers handler file basename dirname nil boundp file-name-handler-alist find-file-name-handler vc-registered file-name-directory "" file-name-nondirectory found (byte-code "\301\302\"\210\303\207" [vc-master-templates mapcar #[(s) ":\204\n \n\"\207\305@ \n#\306 !\2051 \307 !\230\203*\310\f!\310 !\232?\2051\311\312 AB\")\207" [s dirname basename trial file format file-exists-p file-name-directory file-attributes throw found] 4] nil] 3)] 3]) (defalias 'vc-sccs-project-dir #[nil "\302\303!\211\205n\304\234\305=\203(\306\307P!\203\310P\202n\306!\205n\202n\311\312P!\313\314P\306 !\203@ \315P\202m\316P\306 !\203P \315P\202m\317P\306 !\203` \315P\202m\320P\306 !\205m \315P))\207" [project-dir trial getenv "PROJECTDIR" 0 47 file-exists-p "/SCCS" "/SCCS/" expand-file-name "~" nil "/src/SCCS" "/" "/src" "/source/SCCS" "/source/"] 4]) (defalias 'vc-search-sccs-project-dir #[(dirname basename) "\303 \211\205 \304 Q\211\205\305\n!\205\306\307\n\310B\"*\207" [project-dir basename master-file vc-sccs-project-dir "s." file-exists-p throw found SCCS] 5]) (defalias 'vc-find-cvs-master #[(dirname basename) "\205\372\306 \307P!\205\372\310 \311P!\205\372 \nP\312\211\313\216\212\314\315!q\316 \311P!\210eb\210\317\320\321\n!\322Q\312\323#\203Q\324 \325\326#\210\324 \327\330#\210\331\332 \311P\333B\"\202\371\317\320\321\n!\334\335\336\337\340\341\342\260 \312\323#\203\317\324 \327\343\344!#\210\345\346 !8\347\343\350!!\347\343\345!!\347\343\351!!\347\343\352!!\347\343\353!!12345\2116\3545432\355\343\356!\357\"\352\2451\326&\232\203\274\324 \3256#\210\202\302\324 \325\326#\210.\331\332 \311P\333B\"\202\371\317\320\321\n!\334\360\342\260\312\323#\203\370\324 \327\343\344!#\210\324 \325\326#\210\331\332 \311P\333B\"\202\371\312-\207" [vc-handle-cvs dirname basename buffer case-fold-search file file-directory-p "CVS/" file-readable-p "CVS/Entries" nil ((kill-buffer buffer)) get-buffer-create "*vc-info*" vc-insert-file re-search-forward "^/" regexp-quote "/0/" t vc-file-setprop vc-checkout-time 0 vc-workfile-version "0" throw found CVS "/\\([^/]*\\)" "/[A-Z][a-z][a-z]" " \\([A-Z][a-z][a-z]\\)" " *\\([0-9]*\\)" " \\([0-9]*\\):\\([0-9]*\\):\\([0-9]*\\)" " \\([0-9]*\\)" "\\(+[^/]*\\)?/" match-string 1 5 file-attributes string-to-number 6 4 3 7 encode-time string-match 2 "xxxJanFebMarAprMayJunJulAugSepOctNovDec" "/[^/]*" year day hour minute second mtime] 11]) #@70 Return the version-control type of the visited file, or nil if none. (defalias 'vc-buffer-backend #[nil "\301=\203 \302\303 !\211\207\207" [vc-buffer-backend t vc-backend buffer-file-name] 2 (#$ . 19520)]) #@275 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. (defalias 'vc-toggle-read-only #[(&optional verbose) "\302\300!\203\n\204\303\304 !\203\305 !\207\306 \207" [vc-dired-mode verbose boundp vc-backend buffer-file-name vc-next-action toggle-read-only] 2 (#$ . 19737) "P"]) (define-key global-map "" 'vc-toggle-read-only) (defalias 'vc-after-save #[nil "\301 \302!\205E\303\304\"\305\306!8\232\203\307\304\310#\210\311!?\205E\312!\313=\205E\307\311\314 #\205E\302!\315=\203B\307\316\310#\210\317!)\207" [file buffer-file-name vc-backend vc-file-getprop vc-checkout-time 5 file-attributes vc-file-setprop nil vc-locking-user vc-checkout-model implicit vc-user-login-name CVS vc-cvs-status vc-mode-line] 4]) #@217 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. Second optional arg LABEL is put in place of version control system name. (defalias 'vc-mode-line #[(file &optional label) "\306!\211\205\307\n\206\310 ! \205\311!Q \2036\312 \232\2036\313!;\2036\314 \313!\230\2046\315 \203Z\312 \232\203Z \204Z\316\317 !\203Z\316\320\321\312 !\322\"!\203Z\315\323 \210 )\207" [file vc-type label vc-display-status vc-mode buffer-read-only vc-backend " " symbol-name vc-status buffer-file-name vc-locking-user vc-user-login-name t zerop user-real-uid logand file-modes 128 force-mode-line-update] 5 (#$ . 20696) (list buffer-file-name nil)]) (defalias 'vc-status #[(file) "\303!\304! \305\230\203\306\202.\n\204\307 P\202.\n\310 \230\203)\311 P\202.\311\n\311 R*\207" [file rev locker vc-locking-user vc-workfile-version "0" " @@" "-" vc-user-login-name ":"] 4]) (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]) (defalias 'vc-find-file-hook #[nil "?\205| \205|\306 !\210\307 !\203$\310 !\210\n?\205|\311\303!\210\312\211\207\313 !\211\2051\307\314\f!!\211\205{\315=\203D\316\317 \"\202{\320=\203U\321\322\314 !!!\203b\323 \210\316\324 \"\210\325 \202{\326\327\330 \"!\203x\323 \210\316\324 \"\210\325 \202{\316\331!*\207" [vc-ignore-vc-files buffer-file-name vc-make-backup-files backup-inhibited link link-type vc-file-clearprops vc-backend vc-mode-line make-local-variable t file-symlink-p file-chase-links nil 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" vc-follow-symlinks] 5]) (add-hook 'find-file-hooks 'vc-find-file-hook) #@116 When file is not found, try to check it out from RCS or SCCS. Returns t if checkout was successful, nil otherwise. (defalias 'vc-file-not-found-hook #[nil "\303!\210 ?\205\304!\205\212\305\306!\210\307\300 !\310\311\312\217)?\207" [buffer-file-name vc-ignore-vc-files default-directory vc-file-clearprops vc-backend require vc file-name-directory nil (byte-code "\301!\210\302\207" [buffer-file-name vc-checkout nil] 2) ((error t))] 3 (#$ . 22822)]) (add-hook 'find-file-not-found-hooks 'vc-file-not-found-hook) (defalias 'vc-kill-buffer-hook #[nil "\300 ;\205\301\300 !\210\302\303!\207" [buffer-file-name vc-file-clearprops kill-local-variable vc-buffer-backend] 2]) (byte-code "\303\304\"\305 !\204h\306 \307\304 #\210\307 \310\311#\210\307 \312\313#\210\307 \314\315#\210\307 \316\317#\210\307 \320\321#\210\307 \322\323#\210\307 \324\325#\210\307 \326\327#\210\307 \330\331#\210\307 \332\333#\210\307 \334\335#\210\307 \336\337#\210\307 \340\341#\210\307 \342\343#\210\344\302!\203\330\307\n\345\346#\210\307\n\347\350#\210\307\n\351\352#\210\307\n\353\354#\210\307\n\355\356#\210\307\n\357\360#\210\307\n\361\362#\210\307\n\363\364#\210\307\n\365\366#\210\307\n\367\370#\210\307\n\371\372#\210\307\n\373\374#\210\307\n\375\376#\210\307\n\377\201@#\210\307\n\201A\201B#\210\307\n\201C\201D#\210\201E\201F\201G\201H#\210\201E\317\201G\201I#\210\201E\343\201G\201H#\210\201E\341\201G\201H#\210\201E\311\201G\201J#\210\201E\325\201G\201H#\210\201E\313\201G\201H#\210\201E\335\201G\201H#\210\201E\321\201G\201H#\210\201E\337\201G\201H#\210\201E\323\201G\201K#\210\201L\201M!\207" [global-map vc-prefix-map vc-menu-map lookup-key "v" keymapp make-sparse-keymap define-key "a" vc-update-change-log "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 boundp [vc-retrieve-snapshot] ("Retrieve Snapshot" . vc-retrieve-snapshot) [vc-create-snapshot] ("Create Snapshot" . vc-create-snapshot) [vc-directory] ("Show Locked Files" . 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 Last Version" . vc-diff) [vc-update-change-log] ("Update ChangeLog" . vc-update-change-log) [vc-print-log] ("Show History" . vc-print-log) [separator2] ("----") [undo] ("Undo Last Check-In" . vc-cancel-version) [vc-revert-buffer] ("Revert to Last Version" . vc-revert-buffer) [vc-insert-header] ("Insert Header" . vc-insert-headers) [vc-next-action] ("Check In/Out" . vc-next-action) [vc-register] ("Register" . vc-register) put vc-rename-file menu-enable vc-mode (eq (vc-buffer-backend) 'CVS) (eq (vc-buffer-backend) 'RCS) (and buffer-file-name (not vc-mode)) provide vc-hooks] 4)