
(defun rcs-file-status (fname) (byte-code "Ã	!ƒ' ÄÅ8ÆH=ƒ# Ç Æ8=ƒ È‚  É‚$ Ê‚( Â)‡" [stat fname nil file-attributes 119 8 2 user-real-uid mine locked unlocked] 5))

(defun rcs-find-file-hook nil (byte-code "Ã	!… Ä=?‰)‡" [foo buffer-file-name buffer-read-only rcs-file-status mine] 3))

(defun rcs-lock nil (interactive) (byte-code "Æˆ†	 ÈÉ!ˆÊ ˆË!ÆÆÆ	?ƒ\" ÈÌ!‚l 	Í=ƒ. ÈÎ!‚l 	Ï=ƒ: ÈÐ!‚l 	Ñ=…l Æ‰ˆÒÓ!ˆÔÕ!‰ˆ‰ˆÖ×
ØÙ%‰ˆÚÛ\"ˆ
qˆÜÇ!ˆ‰,‡" [buffer-file-name foo buf proc file buffer-read-only nil rcs-file-name error "This buffer has no file!" rcs-find-file-hook rcs-file-status "This buffer isn't a file!" mine "You already have this file!" locked "Someone else already has this file!" unlocked message "locking file..." generate-new-buffer "*rcs*" start-process "rcs-lock" "rcs" "-l" set-process-sentinel rcs-lock-sentinel make-variable-buffer-local] 14))

(defun rcs-lock-sentinel (proc state) (byte-code "Ä!qˆebˆÅÆ!ƒ3 
Ç	ÈÉÊË#\"ˆÌ	!qˆÍÃ!ˆÎ ˆÏÐ	\"ˆÑÄ!!)‚< ÒÄ!!ˆÏÓ!‡" [proc fname rcs-file-name t process-buffer re-search-forward "locked
done$" set-file-modes + 384 32 4 get-file-buffer set-buffer-modified-p save-buffer message "File %s locked." kill-buffer pop-to-buffer "Uh-oh... problems locking file..."] 14))

(defun rcs-check-in nil (interactive) (byte-code "ÈˆÉ	!ÈÈÈ?ƒ ÊË!‚x Ì=ƒ# ÊÍ!‚x Î=ƒ/ ÊÏ!‚x Ð=…x Ñ …< Ò ˆÆ‰ˆÓÔ!‰ˆ	‰ˆÕÖ
×ØÙ&‰ˆÚÛ\"ˆ
qˆÜÇ!ˆ‰ˆÝÞß!àP\"ˆá!ˆâã!,‡" [foo buffer-file-name buf proc file buffer-read-only t rcs-file-name nil rcs-file-status error "This buffer isn't a file!" locked "Someone else already has this file!" unlocked "Nobody has this file, not even you!" mine buffer-modified-p save-buffer generate-new-buffer "*rcs*" start-process "rcs-ci" "ci" "-f" "-u" set-process-sentinel rcs-check-in-sentinel make-variable-buffer-local process-send-string read-string "RCS log comment: " "
" process-send-eof message "Checking in (and unlocking) file..."] 15))

(defun rcs-check-in-sentinel (proc stat) (byte-code "Å!qˆebˆÆÇÁÂ#ƒ+ ÈÉ!ˆÊ!…! qˆË )ˆÌÅ!!‚4 ÍÅ!!ˆÈÎ!‡" [proc nil t buf rcs-file-name process-buffer re-search-forward "^done$" message "Checked in (and unlocked)." get-file-buffer clear-visited-file-modtime kill-buffer pop-to-buffer "Uh-oh... problems unlocking (and checking in) file..."] 11))

(defun rcs nil (interactive) (byte-code "ÁˆÂ>ƒ ÃÂ\"‰ˆÄÅ!‚ ÂB‰ˆÄÆ!‡" [find-file-hooks nil rcs-find-file-hook delq message "RCS mode off" "RCS mode on"] 4))