;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Fri May 20 04:32:30 1994 ;;; from file /home/fsf/rms/e19/lisp/vc-hooks.el ;;; emacs version 19.22.94.1. ;;; bytecomp version FSF 2.10 ;;; 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 "`/home/fsf/rms/e19/lisp/vc-hooks.el' was compiled for Emacs 19")) (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 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!#\"" [assoc vc-mode minor-mode-alist (vc-mode vc-mode) make-variable-buffer-local put permanent-local t defalias vc-error-occurred (macro . #[(&rest body) "\f\"BF" [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 "\"\"\"" [defalias vc-file-setprop #[(file property value) "\n \"\f #" [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\n\"0!$! \f΍**" [nil handlers handler boundp file-name-handler-alist find-file-name-handler file vc-registered file-name-directory "" file-name-nondirectory basename dirname found (byte-code "\n\"Ç" [mapcar #[(s) " @\n #\f!(\n\f!!!\f!?(\f AB\")" [format s dirname basename trial file-exists-p file-name-directory file-attributes file throw found] 4] vc-master-templates nil] 3)] 3]] 3) (defalias 'vc-name #[(file) " \" ! \fA# \f@#)" [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."]) (defalias 'vc-backend-deduce #[(file) "!\"!! \f@#\fA#)" [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."]) (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) "h!#\f\n!\"\n=\"!Q\nG G !G!G !G \nc!c!!b\") \n)" [file vc-backend-deduce 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 "\"\"\"" [defalias vc-rcs-status #[(file) " !!q\f! E \fTb\f\f\\$A@U)Ey# !Qؔؕ}eb#vmnڂo҉#\\ )ژ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 \f ]+\\(" regexp-quote user-login-name ":\\)?" lock-pattern 1 replace-match "" ":" buffer-string locks looking-at "head[  \n \f ]+\\([.0-9]+\\)" "-" " @@" status set-buffer-modified-p] 7] vc-find-file-hook #[nil "\n#! ?!ȉ" [buffer-file-name 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) (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 "\"\f\"!q \f#############!" [add-hook find-file-not-found-hooks vc-file-not-found-hook 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 "~" vc-version-other-window provide vc-hooks] 4)