;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue May  4 09:35:35 1993
;;; from file /gd/gnu/emacs/19.0/lisp/vc-hooks.el
;;; emacs version 19.5.9.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(defvar vc-master-templates (quote (("%sRCS/%s,v" . RCS) ("%s%s,v" . RCS) ("%sRCS/%s" . RCS) ("%sSCCS/s.%s" . SCCS) ("%ss.%s" . SCCS))) "\
*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.")
(defvar vc-make-backup-files nil "\
*If non-nil, backups of registered files are made according to
the make-backup-files variable.  Otherwise, prevents backups being made.")
(byte-code "АБ\n\"„ Г\nBДБ!€ЕБЖЗ#€ИЙM‡" [assoc vc-mode minor-mode-alist (vc-mode vc-mode) make-variable-buffer-local put permanent-local t vc-error-occurred (macro . #[(&rest body) "АБВГЕ\"BЖF‡" [condition-case nil progn append body (nil) (error t)] 6])] 4)
(defvar vc-file-prop-obarray [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0] "\
Obarray for per-file properties.")
(byte-code "АБM€ВГM€ДЕM‡" [vc-file-setprop #[(file property value) "АБ\n\"#‡" [put intern file vc-file-prop-obarray property value] 4] vc-file-getprop #[(file property) "А	\n\"N‡" [intern file vc-file-prop-obarray property] 3] vc-registered #[(file) "А‰ГД!ѓ> Е ЗЋ‰:ѓ= \n„= 	@:ѓ6 	@@;ѓ6 И	@@	\"ѓ6 	@A	A‰‚ *\nѓJ \nК	\"‚^ Л	!†R МН	!РСЌ**‡" [nil handlers handler boundp file-name-handler-alist match-data match-data ((store-match-data match-data)) string-match file vc-registered file-name-directory "" file-name-nondirectory basename dirname found (byte-code "АБ\n\"€Г‡" [mapcar #[(s) "А	@\n#Е!…* Ж\nЗ!\"ѓ# ИЙ\n!Й!\"?…* ЛМ	AB\")‡" [format s dirname basename trial file-exists-p string= file-name-directory equal file-attributes file throw found] 4] vc-master-templates nil] 3)] 4]] 2)
(defalias 'vc-backend-deduce #[(file) "… БВ\"† ГВД!A#‡" [file vc-file-getprop vc-backend vc-file-setprop vc-registered] 5 "\
Return the version-control type of a file, nil if it is not registered"])
(defalias 'vc-toggle-read-only #[nil "АБ !ѓ ВГ!‡Д ‡" [vc-backend-deduce buffer-file-name vc-next-action nil toggle-read-only] 2 "\
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." nil])
(define-key global-map "" (quote vc-toggle-read-only))
(defalias 'vc-mode-line #[(file &optional label) "А	!‰ѓ Г† Е\n!PЗИ !€\n)‡" [vc-backend-deduce file vc-type " " label symbol-name vc-mode set-buffer-modified-p buffer-modified-p] 4 "\
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." (list buffer-file-name nil)])
(byte-code "АБM€А\n>„ А\nBА‡" [vc-find-file-hook #[nil "А	ВГ#€Д	!… ?… ЖЗ!€Г‰‡" [vc-file-setprop buffer-file-name vc-backend nil vc-mode-line vc-make-backup-files make-local-variable make-backup-files] 4] find-file-hooks] 2)
(defalias 'vc-file-not-found-hook #[nil "А	!… ВГ!€ДЕЖЏ?‡" [vc-backend-deduce buffer-file-name require vc nil (byte-code "А	!€В‡" [vc-checkout buffer-file-name nil] 2) ((error t))] 3 "\
When file is not found, try to check it out from RCS or SCCS.
Returns t if checkout was successful, nil otherwise."])
(byte-code "А	>„\n А	BВД\"Ж!„` З ИД#€ИЙК#€ИЛМ#€ИНО#€ИПР#€ИСТ#€ИУФ#€ИХЦ#€ИЧШ#€ИЩЪ#€ИЫЬ#€ИЭЮ#€Яа!‡" [vc-file-not-found-hook find-file-not-found-hooks lookup-key global-map "v" vc-prefix-map keymapp make-sparse-keymap define-key "a" vc-update-change-log "c" vc-cancel-version "d" vc-directory "h" vc-insert-headers "i" vc-register "l" vc-print-log "r" vc-retrieve-snapshot "s" vc-create-snapshot "u" vc-revert-buffer "v" vc-next-action "=" vc-diff provide vc-hooks] 4)