;ELC ;;; compiled by jwz@thalidomide on Sun May 15 00:44:10 1994 ;;; from file /th/jwz/emacs19/lisp/packages/vc-hooks.el ;;; emacs version 19.10 Lucid (beta23). ;;; bytecomp version 2.24; 26-Apr-94. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (defvar vc-master-templates '(("%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-no-vc-on-regexp (byte-code "! @" [boundp ange-ftp-path-format] 2) "\ *If non-nil, describes files which do not get revision controlled. This is useful for turning off the scanning for revision files on ange-ftp remotely visited files.") (defvar vc-make-backup-files nil "\ *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.") (defvar vc-rcs-status t "\ *If non-nil, revision and locks on RCS working file displayed in modeline. Otherwise, not displayed.") (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) " \"BF" [condition-case nil progn append body (nil) (error t)] 6])] 4) (defvar vc-file-prop-obarray (make-vector 17 0) "\ Obarray for per-file properties.") (byte-code "MMM" [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 @: @@; @@ \" @A A\\*\n\n \" ! !э**" [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 !! !? AB\")" [format s dirname basename trial file-exists-p file-name-directory file-attributes file throw found] 4] vc-master-templates nil] 3)] 4]] 2) (fset 'vc-name #[(file) " \" ! A# @#)" [vc-file-getprop file vc-name vc-registered name-and-type vc-file-setprop vc-backend] 5 "\ Return the master name of a file, nil if it is not registered."]) (fset 'vc-backend-deduce #[(file) "\"! @# A#)" [file vc-file-getprop vc-backend vc-registered name-and-type vc-file-setprop vc-name] 5 "\ Return the version-control type of a file, nil if it is not registered."]) (fset '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 "" 'vc-toggle-read-only) (fset 'vc-mode-line #[(file &optional label) " ! \n!\n= !Q\n !! ! \n ! !!\") \n)" [vc-backend-deduce file vc-type " " label symbol-name vc-rcs-status RCS vc-mode buffer-read-only zerop user-uid require vc user-login-name vc-locking-user t file-symlink-p link-type message "Warning: symbolic link to %s-controlled source file" force-mode-line-update] 5 "\ 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 "MM\"" [vc-rcs-status #[(file) " !!q !  Tb  \\$A@U)y#\\ !Qؔؕ}eb#mڪ҉#j )ژeb!ؔؕ{P\" !\"+)*" [vc-name file nil found master get-buffer-create " *vc-rcs-status*" buffer-read-only file-name-directory default-directory erase-buffer buffer-size s insert-file-contents 8192 0 re-search-forward "^locks\\([^;]*\\);" t "[  \n ]+\\(" regexp-quote user-login-name ":\\)?" lock-pattern 1 replace-match "" ":" buffer-string locks looking-at "head[  \n ]+\\([.0-9]+\\)" "-" " @@" status set-buffer-modified-p] 7] vc-find-file-hook #[nil " \"?#!?!ʉ " [buffer-file-name vc-no-vc-on-regexp string-match vc-file-setprop vc-backend nil vc-mode-line vc-make-backup-files make-local-variable backup-inhibited t] 4] add-hook find-file-hooks] 3) (fset 'vc-file-not-found-hook #[nil " \"?!!ȏ?" [buffer-file-name vc-no-vc-on-regexp string-match vc-backend-deduce 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 "\" \"! \" #############!" [add-hook find-file-not-found-hooks vc-file-not-found-hook lookup-key global-map "v" vc-prefix-map keymapp make-sparse-keymap set-keymap-name 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 "~" vc-version-other-window provide vc-hooks] 4)