;ELC   
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.


(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\317&\207" [require pcvs-util custom-declare-variable cvs-display-full-name funcall function #[0 "\300\207" [t] 1 #1=""] "Specifies how the filenames should be displayed in the listing.\nIf non-nil, their full filename name will be displayed, else only the\nnon-directory part." :group pcl-cvs :type (boolean) cvs-allow-dir-commit #[0 "\300\207" [nil] 1 #1#] "Allow `cvs-mode-commit' on directories.\nIf you commit without any marked file and with the cursor positioned\non a directory entry, cvs would commit the whole directory.  This seems\nto confuse some users sometimes." (boolean)] 8)
(custom-declare-face 'cvs-header '((((class color) (background dark)) (:foreground "lightyellow" :weight bold)) (((class color) (background light)) (:foreground "blue4" :weight bold)) (t (:weight bold))) "PCL-CVS face used to highlight directory changes." :group 'pcl-cvs)
(custom-declare-face 'cvs-filename '((((class color) (background dark)) (:foreground "lightblue")) (((class color) (background light)) (:foreground "blue4")) (t nil)) "PCL-CVS face used to highlight file names." :group 'pcl-cvs)
(custom-declare-face 'cvs-unknown '((((class color) (background dark)) (:foreground "red1")) (((class color) (background light)) (:foreground "red1")) (t (:slant italic))) "PCL-CVS face used to highlight unknown file status." :group 'pcl-cvs)
(custom-declare-face 'cvs-handled '((((class color) (background dark)) (:foreground "pink")) (((class color) (background light)) (:foreground "pink")) (t nil)) "PCL-CVS face used to highlight handled file status." :group 'pcl-cvs)
(custom-declare-face 'cvs-need-action '((((class color) (background dark)) (:foreground "orange")) (((class color) (background light)) (:foreground "orange")) (t (:slant italic))) "PCL-CVS face used to highlight status of files needing action." :group 'pcl-cvs)
(custom-declare-face 'cvs-marked '((((min-colors 88) (class color) (background dark)) (:foreground "green1" :weight bold)) (((class color) (background dark)) (:foreground "green" :weight bold)) (((class color) (background light)) (:foreground "green3" :weight bold)) (t (:weight bold))) "PCL-CVS face used to highlight marked file indicator." :group 'pcl-cvs)
(custom-declare-face 'cvs-msg '((t :slant italic)) "PCL-CVS face used to highlight CVS messages." :group 'pcl-cvs)
(defvar cvs-fi-up-to-date-face 'cvs-handled)
(defvar cvs-fi-unknown-face 'cvs-unknown)
(defvar cvs-fi-conflict-face 'font-lock-warning-face)#@58 The prefix that CVS prepends to files when rcsmerge'ing.
(defvar cvs-bakprefix ".#" (#$ . 2641))#@45 Local keymap for text properties of status.
(defvar cvs-status-map (define-keymap "<mouse-2>" 'cvs-mode-toggle-mark) (#$ . 2743))#@71 compiler-macro for inlining `cvs-fileinfo-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-fileinfo-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo-p (and (memq (type-of cl-x) cl-struct-cvs-fileinfo-tags) t)) nil] 9 (#$ . 2878)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-fileinfo-p compiler-macro cvs-fileinfo-p--cmacro] 4)#@13 

(fn CL-X)
(defalias 'cvs-fileinfo-p #[257 "\301!>\205	 \302\207" [cl-struct-cvs-fileinfo-tags type-of t] 3 (#$ . 3277)])
(byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put cvs-fileinfo-p side-effect-free error-free pure t define-symbol-prop cvs-fileinfo cl-deftype-satisfies] 6)#@77 compiler-macro for inlining `cvs-fileinfo->marked'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-fileinfo->marked--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->marked (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 1))) nil] 9 (#$ . 3601)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-fileinfo->marked compiler-macro cvs-fileinfo->marked--cmacro] 4)#@64 Access slot "marked" of `cvs-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'cvs-fileinfo->marked #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 1] 5 (#$ . 4077)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->marked side-effect-free t] 4)#@75 compiler-macro for inlining `cvs-fileinfo->type'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-fileinfo->type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->type (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 2))) nil] 9 (#$ . 4426)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-fileinfo->type compiler-macro cvs-fileinfo->type--cmacro] 4)#@62 Access slot "type" of `cvs-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'cvs-fileinfo->type #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 2] 5 (#$ . 4892)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->type side-effect-free t] 4)#@78 compiler-macro for inlining `cvs-fileinfo->subtype'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-fileinfo->subtype--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->subtype (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 3))) nil] 9 (#$ . 5235)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-fileinfo->subtype compiler-macro cvs-fileinfo->subtype--cmacro] 4)#@65 Access slot "subtype" of `cvs-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'cvs-fileinfo->subtype #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 3] 5 (#$ . 5716)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->subtype side-effect-free t] 4)#@74 compiler-macro for inlining `cvs-fileinfo->dir'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-fileinfo->dir--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->dir (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 4))) nil] 9 (#$ . 6068)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-fileinfo->dir compiler-macro cvs-fileinfo->dir--cmacro] 4)#@61 Access slot "dir" of `cvs-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'cvs-fileinfo->dir #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 4] 5 (#$ . 6529)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->dir side-effect-free t] 4)#@75 compiler-macro for inlining `cvs-fileinfo->file'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-fileinfo->file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->file (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 5))) nil] 9 (#$ . 6869)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-fileinfo->file compiler-macro cvs-fileinfo->file--cmacro] 4)#@62 Access slot "file" of `cvs-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'cvs-fileinfo->file #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 5] 5 (#$ . 7335)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->file side-effect-free t] 4)#@79 compiler-macro for inlining `cvs-fileinfo->base-rev'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-fileinfo->base-rev--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->base-rev (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 6))) nil] 9 (#$ . 7678)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-fileinfo->base-rev compiler-macro cvs-fileinfo->base-rev--cmacro] 4)#@66 Access slot "base-rev" of `cvs-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'cvs-fileinfo->base-rev #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 6] 5 (#$ . 8164)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->base-rev side-effect-free t] 4)#@79 compiler-macro for inlining `cvs-fileinfo->head-rev'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-fileinfo->head-rev--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->head-rev (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 7))) nil] 9 (#$ . 8519)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-fileinfo->head-rev compiler-macro cvs-fileinfo->head-rev--cmacro] 4)#@66 Access slot "head-rev" of `cvs-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'cvs-fileinfo->head-rev #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 7] 5 (#$ . 9005)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->head-rev side-effect-free t] 4)#@76 compiler-macro for inlining `cvs-fileinfo->merge'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-fileinfo->merge--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->merge (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 8))) nil] 9 (#$ . 9360)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-fileinfo->merge compiler-macro cvs-fileinfo->merge--cmacro] 4)#@63 Access slot "merge" of `cvs-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'cvs-fileinfo->merge #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 8] 5 (#$ . 9831)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->merge side-effect-free t] 4)#@79 compiler-macro for inlining `cvs-fileinfo->full-log'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'cvs-fileinfo->full-log--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cvs-fileinfo->full-log (progn (or (cvs-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'cvs-fileinfo cl-x))) (aref cl-x 9))) nil] 9 (#$ . 10177)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop cvs-fileinfo->full-log compiler-macro cvs-fileinfo->full-log--cmacro] 4)#@66 Access slot "full-log" of `cvs-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'cvs-fileinfo->full-log #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 9] 5 (#$ . 10664)])
(byte-code "\300\301\302\303#\300\207" [function-put cvs-fileinfo->full-log side-effect-free t] 4)#@145 compiler-macro for inlining `-cvs-create-fileinfo'.

(fn CL-WHOLE &cl-quote TYPE DIR FILE FULL-LOG &key MARKED SUBTYPE MERGE BASE-REV HEAD-REV)
(defalias '-cvs-create-fileinfo--cmacro #[1413 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203U \211@\306>\203= \211A\2045 \307\310@\"\210\211AA\262\202 \311>A@\203L \312\262\202 \307\313@\"\210\202 \210\314\315\316\312\312&\207" [plist-member :marked :subtype :merge :base-rev :head-rev (:marked :subtype :merge :base-rev :head-rev :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:marked :subtype :merge :base-rev :head-rev)" cl--defsubst-expand (type dir file full-log marked subtype merge base-rev head-rev) (cl-block -cvs-create-fileinfo (record 'cvs-fileinfo marked type subtype dir file base-rev head-rev merge full-log))] 26 (#$ . 11021)])
(byte-code "\300\301\302\303#\300\207" [define-symbol-prop -cvs-create-fileinfo compiler-macro -cvs-create-fileinfo--cmacro] 4)#@122 Constructor for objects of type `cvs-fileinfo'.

(fn TYPE DIR FILE FULL-LOG &key MARKED SUBTYPE MERGE BASE-REV HEAD-REV)
(defalias '-cvs-create-fileinfo #[1156 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203U \211@\306>\203= \211A\2045 \307\310@\"\210\211AA\262\202 \311>A@\203L \312\262\202 \307\313@\"\210\202 \210\314\315\f&\n\207" [plist-member :marked :subtype :merge :base-rev :head-rev (:marked :subtype :merge :base-rev :head-rev :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:marked :subtype :merge :base-rev :head-rev)" record cvs-fileinfo] 21 (#$ . 12062)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put -cvs-create-fileinfo side-effect-free t cl-struct-define cvs-fileinfo nil cl-structure-object record ((cl-tag-slot) (marked) (type) (subtype) (dir) (file) (base-rev) (head-rev) (merge) (full-log)) cl-struct-cvs-fileinfo-tags] 11)#@37 

(fn TYPE DIR FILE MSG &rest KEYS)
(defalias 'cvs-create-fileinfo #[1156 "\300\301\302&!\207" [cvs-check-fileinfo apply -cvs-create-fileinfo] 13 (#$ . 13071)])#@81 Return the full path for the file that is described in FILEINFO.

(fn FILEINFO)
(defalias 'cvs-fileinfo->full-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\301!>\204! \302\303\304D\"\210\306H\307=\2035 \211\310\230\2031 \311\207\312!\207\211\301!>\204E \302\303\304D\"\210\313HP\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 4 2 DIRCHANGE "" "." directory-file-name 5] 7 (#$ . 13248)])#@63 Return the filename of FI as it should be displayed.

(fn FI)
(defalias 'cvs-fileinfo->pp-name #[257 "\203 \302!\207\303!	>\204 \304\305\306D\"\210\211\307H\207" [cvs-display-full-name cl-struct-cvs-fileinfo-tags cvs-fileinfo->full-name type-of signal wrong-type-argument cvs-fileinfo 5] 5 (#$ . 13694)])#@73 Construct the file name of the backup file for FILEINFO.

(fn FILEINFO)
(defalias 'cvs-fileinfo->backup-file #[257 "\303!>\204 \304\305\306D\"\210\211\307H\303!>\204! \304\305\306D\"\210\310H\311\312!!\313\314\315\316\317\n!\317!\320R#\315\211\203[ \211@\321!\203T \203Q \322\"\203T \211\262A\266\202\202: \210P)\207" [cl-struct-cvs-fileinfo-tags default-directory cvs-bakprefix type-of signal wrong-type-argument cvs-fileinfo 4 5 file-name-as-directory expand-file-name directory-files "." nil "\\`" regexp-quote "\\(\\.[0-9]+\\.[0-9]+\\)+\\'" file-readable-p file-newer-than-file-p] 10 (#$ . 14010)])#@54 Check FI's conformance to some conventions.

(fn FI)
(defalias 'cvs-check-fileinfo #[257 "\301\302!>\204 \303\304\305D\"\210\306H\302!>\204\" \303\304\305D\"\210\307H\302!>\2045 \303\304\305D\"\210\310H\302!>\204H \303\304\305D\"\210\311H\302!>\204\\ \303\304\305D\"\210\312H\302!>\204p \303\304\305	D\"\210\313H\302!>\204\205 \303\304\305\nD\"\210\314H\302	!>\204\232 \303\304\305D\"\210\315H\316\262	\317>\203\320\262	\203\263 ;\203\321\262	\203\277 ;\203\322\262	\211;\203\323\262	;\203\324!\204\325\230\204\344 \326!\230\203\327\262	;\203\330!\230\203\331\262	9\203\332\262	\333\267\202\204\334\230\202\202\335\203	\207\336\337\n\f#\207" [cl-struct-cvs-fileinfo-tags none type-of signal wrong-type-argument cvs-fileinfo 2 3 1 4 5 6 7 9 marked (t nil) base-rev head-rev full-log dir file-name-absolute-p "" file-name-as-directory file file-name-nondirectory type consistency #s(hash-table size 12 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (DIRCHANGE 263 UNKNOWN 274 CONFLICT 274 NEED-MERGE 274 REMOVED 274 UP-TO-DATE 274 MESSAGE 274 MODIFIED 274 DEAD 274 MISSING 274 ADDED 274 NEED-UPDATE 274)) "." nil error "Invalid :%s in cvs-fileinfo %s"] 14 (#$ . 14639)])#@395 Fileinfo state descriptions for pcl-cvs.
This is an assoc list.  Each element consists of (STATE . FUNS):
- STATE (described in `cvs-create-fileinfo') is the key.
- FUNS is the list of applicable operations.
  The first one (if any) should be the "default" action.
Most of the actions have the obvious meaning.
`safe-rm' indicates that the file can be removed without losing
  any information.
(defconst cvs-states (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\205 \315\316BBBBB\317BBBBBBBBB\207" [cvs-allow-dir-commit (NEED-UPDATE update diff ignore) (UP-TO-DATE update nil remove diff safe-rm revert) (MODIFIED update commit undo remove diff merge diff-base) (ADDED update commit remove) (MISSING remove undo update safe-rm revert) (REMOVED commit add undo safe-rm) (NEED-MERGE update undo diff diff-base) (CONFLICT merge remove undo commit diff diff-base) DIRCHANGE remove update diff commit (tag) ((UNKNOWN ignore add remove) (DEAD) (MESSAGE))] 14) (#$ . 15928))#@166 Check if FUNC is applicable to FI-OR-TYPE.
If FUNC is nil, always return t.
FI-OR-TYPE can either be a symbol (a fileinfo-type) or a fileinfo.

(fn FI-OR-TYPE FUNC)
(defalias 'cvs-applicable-p #[514 "9\203	 \202 \302!>\204 \303\304\305D\"\210\306H\211\307=?\205+ 	\236A>@=\207" [cl-struct-cvs-fileinfo-tags cvs-states type-of signal wrong-type-argument cvs-fileinfo 2 MESSAGE] 6 (#$ . 16918)])#@46 

(fn STR FACE &optional KEYMAP &rest PROPS)
(defalias 'cvs-add-face #[898 "\203 \300!\203 \301BB\262\302\303BB\262\304\305G\306BB$\210\207" [keymapp keymap mouse-face highlight add-text-properties 0 font-lock-face] 10 (#$ . 17328)])#@120 Pretty print FILEINFO.  Insert a printed representation in current buffer.
For use by the ewoc package.

(fn FILEINFO)
(defalias 'cvs-fileinfo-pp #[257 "\302!\210\303!>\204 \304\305\306D\"\210\211\307H\303!>\204% \304\305\306D\"\210\310H\311\267\202Z \312\313\314!\315\316\317\316%\320Q\202\313\321\322\303!>\204Q \304\305\306D\"\210\323H\"\324\"\202\303!>\204i \304\305\306D\"\210\325H\203v \313\326\327\"\202w \330\313\331!\332\316\317\316%\303!>\204\220 \304\305\306D\"\210\333H\206\227 \334\303!>\204\250 \304\305\306D\"\210\335H\336=\203\265 \334\202\273 \337\340!!\341\342\340	!\227\343Q!\344!\203\320 \211J\206\321 \345\262\313	#\266\202\203\346 \340!\227\206\365 \203\364 \230\204\364 \206\365 \334\321\346\n&\266\206\347\261\207" [cl-struct-cvs-fileinfo-tags cvs-status-map cvs-check-fileinfo type-of signal wrong-type-argument cvs-fileinfo 2 3 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (DIRCHANGE 46 MESSAGE 61)) "In directory " cvs-add-face cvs-fileinfo->full-name cvs-header t cvs-goal-column ":" format "Message: %s" 9 cvs-msg 1 "*" cvs-marked " " cvs-fileinfo->pp-name cvs-filename 6 "" 7 DEAD capitalize symbol-name intern-soft "cvs-fi-" "-face" boundp cvs-need-action "%-11s %s %-11s %-11s %s" "\n"] 16 (#$ . 17584)])#@68 Update FI with the information provided in FI-NEW.

(fn FI FI-NEW)
(defalias 'cvs-fileinfo-update #[514 "\301!>\204 \302\303\304D\"\210\211\305H\301!>\204! \302\303\304D\"\210\306H\301!>\2044 \302\303\304D\"\210\305I\210\301!>\204I \302\303\304D\"\210\307\301!>\204[ \302\303\304D\"\210\307HI\210\301!>\204p \302\303\304D\"\210\310\301!>\204\202 \302\303\304D\"\210\310HI\210\301!>\204\227 \302\303\304D\"\210\311\301!>\204\251 \302\303\304D\"\210\311HI\210\301!>\204\276 \302\303\304D\"\210\312\301!>\204\320 \302\303\304D\"\210\312HI\210\211\203\356 \301!>\204\351 \302\303\304D\"\210\306I\207\313>\205\301!>\204\302\303\304D\"\210\306\314I\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 2 8 3 9 6 7 (UP-TO-DATE NEED-UPDATE) nil] 10 (#$ . 18927)])#@274 Compare fileinfo A with fileinfo B and return t if A is `less'.
The ordering defined by this function is such that directories are
sorted alphabetically, and inside every directory the DIRCHANGE
fileinfo will appear first, followed by all files (alphabetically).

(fn A B)
(defalias 'cvs-fileinfo< #[514 "\301!>\204 \302\303\304D\"\210\305H\301!>\204! \302\303\304D\"\210\305H\231\203* \306\207\301!>\2049 \302\303\304D\"\210\305H\301!>\204K \302\303\304D\"\210\305H\230\204T \307\207\301!>\204c \302\303\304D\"\210\211\310H\311=\203m \307\207\301!>\204| \302\303\304D\"\210\310H\311=\203\206 \306\207\301!>\204\225 \302\303\304D\"\210\312H\301!>\204\247 \302\303\304D\"\210\312H\231\207" [cl-struct-cvs-fileinfo-tags type-of signal wrong-type-argument cvs-fileinfo 4 t nil 2 DIRCHANGE 5] 7 (#$ . 19788)])#@175 List of fileinfos for DIR, extracted from CVS/Entries.
Unless ALL is non-nil, returns only the files that are not up-to-date.
DIR can also be a file.

(fn DIR &optional ALL)
(defalias 'cvs-fileinfo-from-entries #[513 "\301\232\203\n \302\202% \303!\203 \304!\262\302\202% \305!\306!\206# \301\262\307\310\"\302\311!\204E \312\2039 \313\202: \314\206A \315\301$C\207\316\317\320\"r\211q\210\321\322\"\216\323!\210eb\210\204k \312\314\315\301$B\262\202\230 \324\325\326!\327Q\302\320#\203\210 \320\262\330\224b\210`\330\225}\210\202\230 \312\313\301$B\262ee}\210\331\332!\203n\333\224\333\225U\204\272 \334\335\304\336\337!!P\"\"\262\202h\336\337!\336\340!\336\341!\302\342\302\330\333O\343\232\203\333 \344\262\333\302O\262\202N\345\fP!\204\353 \346\262\202N\347\232\203\372 \350\262\302\262\202N\351\232\203\352\262\202N\353\fP!\3548\262\355\356\357\320#\262\360H\361U\203/\330\360O\362\363\302OQ\262\232)\262\203C\n\205>\364\262\202N\365P\232\203N\366\262\203f\312\301\367\n\370&B\262\266\333y\210\202\230 *\210\207" [system-time-locale "" nil file-directory-p file-name-as-directory file-name-nondirectory file-name-directory expand-file-name "CVS/Entries" file-readable-p cvs-create-fileinfo UNKNOWN DIRCHANGE "." generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "^[^/]*/" regexp-quote "/.*" 0 looking-at "\\([^/]*\\)/\\([^/]*\\)/\\([^/]*\\)/\\([^/]*\\)/" 1 append cvs-fileinfo-from-entries match-string 2 3 4 MODIFIED "-" REMOVED file-exists-p MISSING "0" ADDED "Result of merge" MERGED file-attributes 5 "C" format-time-string "%c" 8 48 " " 9 UP-TO-DATE "Result of merge+" CONFLICT :base-rev :subtype] 21 (#$ . 20632)])
(provide 'pcvs-info)